Wochentage farblich via VBA

Hallo ins Forum,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_change(ByVal Target As Range) Dim rngZelle As Range, strText As String for each rngzelle in target.cells Select Case rngzelle.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 next rngzelle End Sub

Guten morgen
Hätte doch testen sollen...
So gehts:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_change(ByVal Target As Range)
    Dim rngZelle As Range, strText As String
    For Each rngZelle In Target.Cells
        With rngZelle
            Select Case .Value
                Case "Samstag"
                    .Font.ColorIndex = 3
                Case "Sonntag"
                    .Font.ColorIndex = 3
                Case "Montag"
                    .Font.ColorIndex = 1
                Case "Dienstag"
                    .Font.ColorIndex = 1
                Case "Mittwoch"
                    .Font.ColorIndex = 1
                Case "Donnerstag"
                    .Font.ColorIndex = 1
                Case "Freitag"
                    .Font.ColorIndex = 1
                Case ""
                    .Font.ColorIndex = 0
            End Select
        End With
    Next rngZelle
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread