ich brauche bitte Hilfe. Mein Anliegen:
Ich erstelle gerade einen Monatsarbeitsplan und habe es via VBA hinbekommen, daß Die Wochentage Montag - Freitag schwarz sowie Samstag und Sonntag rot erscheinen, wenn man diese in die jeweilige Zelle direkt einträgt. Wenn ich jedoch die Zellen kopiere (mit der Maus nach unten ziehe) bekomme ich Lauzeitfehler 13: Typen unverträglich
Hier der Code:
Option Explicit
Private Sub Worksheet_change(ByVal Target As Range)
Dim rngZelle As Range, strText As String
Select Case Target.Value
Case "Samstag"
Target.Font.ColorIndex = 3
Case "Sonntag"
Target.Font.ColorIndex = 3
Case "Montag"
Target.Font.ColorIndex = 1
Case "Dienstag"
Target.Font.ColorIndex = 1
Case "Mittwoch"
Target.Font.ColorIndex = 1
Case "Donnerstag"
Target.Font.ColorIndex = 1
Case "Freitag"
Target.Font.ColorIndex = 1
Case ""
Target.Font.ColorIndex = 0
End Select
End Sub
Hat jemand eine Idee, was da falsch ist?
Danke für Info
Uwe