0160-93 82 19 37 | Nehmen Sie 
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.
Private Sub Worksheet_Change(ByVal Target As Range)a
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
