Wochenendenhervorheben gemäß der Anzahl der Mitarbeiter

[Tommiks]

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.

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

[Klaus-Dieter]

Hallo,

anhand eines Quelltextes, der offenbar nicht das macht, was er soll, wird wohl niemand helfen können.

[schauan]

Hallöchen,

4 ist die Spalte. Und was heißt Rows?

[Tommiks]

Guten Morgen Klaus-Dieter,

ich habe die Datei hinzugefügt.
Ich hoffe es, dass man mich mit Hilfe der Datei besser verstehen kann.

Bedanke mich im Voraus für die Rückmeldung.

[00202]

Ich habe es versucht im Code "Rows.Count" anstelle von "4" einzusetzen,aber hatte keinen Erfolg.

Hallo,  

schreibe es so:  

Code:

For Zeile = 15 To ZeileEnd
    If Weekday(.Cells(Zeile, 4).Value) = 1 Or Weekday(.Cells(Zeile, 4).Value) = 7 Then
        .Cells(Zeile, 4).Resize(, .Cells(3, .Columns.Count).End(xlToLeft).Column - 3).Interior.ColorIndex = 37
    Else
        .Cells(Zeile, 4).Resize(, .Cells(3, .Columns.Count).End(xlToLeft).Column - 3).Interior.ColorIndex = xlColorIndexNone
    End If
Next Zeile

[Tommiks]

@case,  

wie kann man die Berechnungen in den Zellen E8 , E9, E10, E11, E13, und E14 entsprechend der Anzahl der Namensliste erweitern?
Vielen Dank... Ich hoffe, dass der Urlaubsplaner fertig ist 

Falls ich nichts übersehen haben sollte

[00202]

wie kann man die Berechnungen in den Zellen E8 , E9, E10, E11, E13, und E14 entsprechend der Anzahl der Namensliste erweitern?

Hallo,  

so...