Hallo und guten Tag

Für das Tabellenblatt 1 habe ich ein Marko erfasst, mit welchem ich mit Eingabe einer Zahl entsprechende Zellen mit Farbe füllen kann.

Nun habe ich im Exceldokument 31 Tabellenblätter, welche den gleichen Code wie Tabellenblatt 1 beinhalten sollten.

Damit ich nun nicht in allen 31 Tabellenblätter den Code von Blatt 1 eingeben muss meine Anfrage:

- Gib es einen Code, welchen ich eingaben kann um die Anwendung von Blatt 1 auf alle 31 Blätter anwenden zu können?

- Wo und wie gebe ich diesen ein?

Mein Code lautete:

Private Sub Worksheet_Change(ByVal Target As Range)
'Einfärben der Zellen nach Eingabe der entsprechenden Zahl
Select Case Target
 
'1 = 08.00-12.00 und 13.00-17.30 Uhr
Case 1
Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 'morgen 6 von 21 bis
Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 'nachmittag 26 von 43 bis
 
'2 = 08.30-12.30 und 13.30-18.00 Uhr
Case 2
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3
 
'3 = 09.30-13.00 und 14.00-19.00 Uhr
Case 3
Range(Target.Offset(0, 12), Target.Offset(, 25)).Interior.ColorIndex = 3
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3
 
'4 = 08.30-12.30
Case 4
Range(Target.Offset(0, 8), Target.Offset(, 23)).Interior.ColorIndex = 3
'Range(Target.Offset(0, 26), Target.Offset(, 43)).Interior.ColorIndex = 3 (nachmittag keine Anzeige)
 
'5 = 13.30-18.00 Uhr
Case 5
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 28), Target.Offset(, 45)).Interior.ColorIndex = 3
 
'7 = 13.00-19.00 Uhr
Case 7
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 26), Target.Offset(, 49)).Interior.ColorIndex = 3
 
'8 = 14.00-19.00 Uhr
Case 8
'Range(Target.Offset(0, 6), Target.Offset(, 21)).Interior.ColorIndex = 3 (morgen keine Anzeige)
Range(Target.Offset(0, 30), Target.Offset(, 49)).Interior.ColorIndex = 3
 
'9 = 08.00-12.30 und 14.15-19.00 Uhr
Case 9
Range(Target.Offset(0, 6), Target.Offset(, 23)).Interior.ColorIndex = 3
Range(Target.Offset(0, 31), Target.Offset(, 49)).Interior.ColorIndex = 3
 
 
 
End Select
 
End Sub

Besten Dank für eure Mithilfe

Gruss

jojue