Alle leere Zellen samt dessen was in Spalte 1 steht soll gelöscht werden. Ich hatte die ganze Datumsreihe vergessen.
https://www.herber.de/bbs/user/118457.xls
Danke nochmal. Gruß Lutz
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Sub deleteBlanks()
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub