Kein grosser Spezialist in VBA und aber mit folgendem Problem!
Mit dem Eingeben einer Zahl möchte ich bestimmt definierte Zellen einfärben.
Dies konnte ich lösen.
Zum Beispiel:
Ich gebe in Zelle B11 die Zahl 1 ein und möchte dann die Zellen H12-W12 und AB12-AU12 mit roter Farbe füllen.
Mein Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Einfärben der Zellen nach Eingabe einer bestimmten Zahl auf alle Tabellenblätter
Select Case Target
'Zahl 1 = 08.00-12.00 und 13.00-17.30 Uhr
Case 1
Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'füllt Zellen H W mit _
roter Farbe
Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 'füllt Zellen AB AU _
mit roter Farbe
'Zahl 2 = 08.30-12.30 und 13.30-18.00 Uhr
Case 2
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3 'füllt Zellen J Y mit _
roter Farbe
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3 'füllt Zellen AD AU _
mit roter Farbe
'Zahl 3 = 09.30-13.00 und 14.00-19.00 Uhr
Case 3
Range(Target.Offset(0, 12), Target.Offset(, 25)).Interior.ColorIndex = 3 'füllt Zellen N AA _
mit roter Farbe
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3 'füllt Zellen AF AY _
mit roter Farbe
End Select
End Sub
Danke für eure Unterstützung
jojue