26.08.2021, 06:25
Hallo zusammen,
der folgende Code hervorhebt die Wochenenden, aber nur die Spalte 4 (Spalte D).
In der Zeile 3 ab Spalte 5(Spalte E) der Tabelle werden die Namen der MA aufgelistet. Dieser Bereich ist leider variabel.
Der Code, den ich brauche soll, die Zeile 2 überprüfen,und bis zum Ende der MA-Liste die Hervorhebung der Wochenenden durchführen. Die MA Liste fängt bei "(E,3)" an, und ist erweiterbar in Richtung (xxxxxx,3)
Ich habe es versucht im Code "Rows.Count" anstelle von "4" einzusetzen,aber hatte keinen Erfolg.
der folgende Code hervorhebt die Wochenenden, aber nur die Spalte 4 (Spalte D).
In der Zeile 3 ab Spalte 5(Spalte E) der Tabelle werden die Namen der MA aufgelistet. Dieser Bereich ist leider variabel.
Der Code, den ich brauche soll, die Zeile 2 überprüfen,und bis zum Ende der MA-Liste die Hervorhebung der Wochenenden durchführen. Die MA Liste fängt bei "(E,3)" an, und ist erweiterbar in Richtung (xxxxxx,3)
Ich habe es versucht im Code "Rows.Count" anstelle von "4" einzusetzen,aber hatte keinen Erfolg.
Code:
'Wochenendenhervorheben
Dim Zeile As Long
Dim ZeileEnd As Long
With ThisWorkbook.Worksheets("Urlaubsplan 641-642")
ZeileEnd = .UsedRange.Rows.Count
For Zeile = 15 To ZeileEnd
If Weekday(.Cells(Zeile, 4).Value) = 1 Or Weekday(.Cells(Zeile, 4).Value) = 7 Then
.Cells(Zeile, 4).Interior.ColorIndex = 37
Else
.Cells(Zeile, 4).Interior.ColorIndex = xlColorIndexNone
End If
Next Zeile
End With
End Sub
