Zeilen löschen, wenn

Forumthread: Zeilen löschen, wenn

Harald

Hallo Excelfreunde,
mein Versuch Makrorecorder und manuelle Codeeingabe zu verbinden, entwickelt sich (mal wieder) zur Lachnummer :-(
Die Datei heißt z.B. NIO_FS_20040104.xls wobei die letzten 8 Zahlen das Datum darstellen.
In den Zellen A2 bis max A8 steht üblicherweise 20040104 ...manchmal aber leider auch was anderes.
Der Code soll für die Zeilen 2 - 8 alle Zeilen löschen, die in Spalte A nicht das Datum aus dem Dateinamen haben.
Gruß
Harald

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeilen löschen, wenn

Beni
Besten Dank. Genau das wollt ich wissen o.T.

Harald

AW: Zeilen löschen, wenn

Beni

Hallo Harald,
Gruss Beni


Sub Zeilen_löschen_wenn()
For d = 2 To 8
If Cells(d, 1) <> Right(ActiveWorkbook.Name, 8) Then Cells(d, 1).EntireRow.Delete
Next d
End Sub

Besten Dank. Genau das wollt ich wissen o.T.

Harald

Forumthread: Zeilen löschen, wenn

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread