Wochentage ausblenden
Joerg
mit dem folgenden Makro gelingt es mir, Zeilen mit einem bestimmten Wochentag 'unsichtbar' zu machen,
leider funktioniert es nur immer mit einem Wochentag.
Sub Wochentagausbleden()
Const Spalte = 1 ' Datum in Spalte 1
Dim lz As Long, i As Long
lz = Cells(65536, Spalte).End(xlUp).Row 'letzte benutzte Spalte
Application.ScreenUpdating = False
For i = 1 To lz
Cells(i, 1).EntireRow.Hidden = (WeekDay(Cells(i, Spalte)) = 2) 'Montag=2
Next i
Application.ScreenUpdating = True
End Sub
Wie bekomme ich es hin, das gleichzeitig mehrere Wochentage ausgeblendet werden ( z.B. MO, Mi, Fr bis So)?
Danke an alle die helfen
Gruss Joerg
Anzeige