Sub WochentagAusblenden()
Const Spalte = 1 ' Datum in Spalte 1
Dim lz As Long, i As Long
lz = Cells(65536, Spalte).End(xlUp).Row 'letzte benutzte Zeile
Application.ScreenUpdating = False
For i = 1 To lz
Cells(i, 1).EntireRow.Hidden = (Weekday(Cells(i, Spalte)) = 4) 'Sonntag=1, ... Mittwoch=4
Next i
Application.ScreenUpdating = True
End Sub
Sub mittwoch_loeschen()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If WorksheetFunction.Weekday(zelle.Value, 1) = 4 Then zelle.EntireRow.Delete
Next zelle
End Sub
Sub mittwoch_loeschen()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("a:A")
If zelle.Value = "" Then Exit Sub
If WorksheetFunction.Weekday(zelle.Value, 1) = 4 Then zelle.EntireRow.Delete
Next zelle
End Sub
Sub mittwoch_loeschen()
Dim i As Long, lz As Long
lz = Range("A65536").End(xlUp).Row
For i = lz To 1 Step -1
If Weekday(Cells(i, 1).Value, 1) = 4 Then Rows(i).Delete
Next i
End Sub
zelle 3 in schleife
___________________
1 Montag
2 Dienstag
3 Mittwoch --->
4 Donnerstag
5 Freitag
wird gelöscht:
______________
1 Montag
2 Dienstag
3 Donnerstag
4 Freitag
nächster wert:4 also Freitag
also ist der Donnerstag übersehen worden.