Range(Target.Address, Target ... umschreiben
Karsten
ich möchte u.s. Makro im Modul verwenden. Dabei stoppt er immer bei:
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
Kann mir da jemand weiterhelfen?
Gruß
Karsten
Sub a()
Dim X, farbe As Byte
Select Case Target
Case Is = "Montag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 38
Case Is = "Dienstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 8
Case Is = "Mittwoch"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 40
Case Is = "Donnerstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 35
Case Is = "Freitag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 39
Case Is = "Samstag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 34
Case Is = "Sonntag"
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = 36
Case Else
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
End Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowDeletingRows:= _
True
End Sub