ich habe eine Arbeitsmappe mit einem Übersichtsblatt auf welchem ein Anfangs- und ein Enddatum steht. Auf einem zweiten Tabellenblatt stehen Detaildaten, in denen ich nun per Makro alle Zeilen mit Datum Enddatum löschen möchte.
Hier mein Versuch, das Makro löscht aber leider ALLE Zeilen, was ist falsch?
Sub M3_DelRowsNotWeek1()
' Alle Zeilen die nicht in Woche 1 liegen
Dim wks3 As Worksheet
Dim a As Long
Set wks3 = Sheets("Worksheet_Woche1")
wks3.Select
For a = wks3.Cells(Rows.Count, 4).End(xlUp).Row To 5 Step -1
If wks3.Cells(a, 4).Value Sheets("Wochenplan").Cells(5, 27).Value Then
wks3.Rows(a).Delete
End If
Next a
End Sub
Vielen Dank und viele Grüsse
Christian