ich habe in Spalte A Kundennummern stehen und in Spalte B ein Datum. Wie bekomme ich das per VBA gelöst:
Script prüft ob das Datum in Spalte B "jünger" als 30.09.2013 ist, wenn ja dann lösche die komplette Zeile.
Ich freue mich über eure Hilfe.
A | B | |
1 | Id | Datum |
2 | 1 | 28.09.2013 |
3 | 2 | 29.09.2013 |
4 | 3 | 30.09.2013 |
5 | 4 | 28.09.2013 |
6 | 5 | 02.10.2013 |
Sub ZeilenLoeschen()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Name anpassen
i = .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case Val(Application.Version)
Case 11, 12 'E2003, E2007
.Range("B1:B" & i).AutoFilter Field:=1, Criteria1:=Array(2, "
Dim x&
For x = 6 To 2 Step -1
If Cells(x, 2) > 41547 Then Rows(Cells(x, 2).Row).Delete
Next
Gruß Matthias
Dim x As Long
For x = 6 To 2 Step -1
If Cells(x, 2)