Bereich bei Eingabe der Farbnummer färben

107004



Mit diesem Programm wird, der Bereich B1 bis B5 in der Farbe eingefärbt, deren Farbzahl in der Zelle A1 eingegeben wird. Der Code wird bei jeder Änderung der Farbzahl automatisch ausgeführt. Dafür sorgt das Worcksheet_Change Ereignis. Damit das Ereignis ausgelöst werden kann, muss der VBA-Code in das Codemodul der entsprechenden Tabelle eingefügt werden.

Private Sub Worksheet_Change(ByVal Target As Range) 

On Error Resume Next
If Not Application.Intersect(Target, Range("A1:A1")) Is Nothing Then
    farbnummer = Range("A1")
    Range("B2:B5").Select
    With Selection.Interior
    .ColorIndex = farbnummer
    .Pattern = xlSolid
    End With
    Range("A1").Select
End If
End Sub