Hallo Wer-Weiss-Was-Gemeinde,
ich habe ein hoffentliches kleines Problem in Excel:
Nach dem Datenimport (Textfile) gibt es in meiner Spalte(E)=Datum einige Einträge, die in diese Spalte importiert werden, die kein Datumsformat aufweisen.
Ich bnötige jetzt ein Makro, welches die Zeilen in Spalte E überprüft und wenn dort kein Datum steht (Format TT.MM.JJ) kann diese ganze Zeile gelöscht werden. Durch den Datenimport werden die Spalten A bis Y gefüllt. Bei der Zeilenzahl kann ich keine genauen Angaben machen, es können aber schon mal über 20.000 Zeilen sein.
Ich hoffe, es gibt eine Lösung.
Gruß Stefan
Nach dem Datenimport (Textfile) gibt es in meiner
Spalte(E)=Datum einige Einträge, die in diese Spalte
importiert werden, die kein Datumsformat aufweisen.
Ich bnötige jetzt ein Makro, welches die Zeilen in Spalte E
überprüft und wenn dort kein Datum steht (Format TT.MM.JJ)
kann diese ganze Zeile gelöscht werden. Durch den Datenimport
Hallo Stefan,
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Aufrufen des Makros über Alt+F8…
Sub Loesch()
Dim Zei As Long
On Error GoTo Ende
Application.ScreenUpdating = False
For Zei = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
If Not IsDate(Cells(Zei, 5)) Then Cells(Zei, 5).EntireRow.Delete
Next Zei
Ende:
Application.ScreenUpdating = True
End Sub
Gruß
Reinhard
Hallo Reinhard,
hat wieder hervorragend geklappt. Vielen herzlichen Dank. Ich bin froh, dass man solche Menschen wie dich hier im Forum hat, da kann man hundertprozentig davon ausgehen, dass einem geholfen wird. Sonst findet man ja auch vieles über die Suchroutine, aber manchmal ist es halt speziell. Noch einmal vielen Dank und einen guten Start ins Jahr 2009
wünscht
Stefan aus Hamburg