Hilfe zu Datenübernahme - MS Excel

[HeikoH]

Hi Jörg,

ja - ist etwas stümperhaft, aber es funktioniert in Deinem Fall sicher. Normalerweise müsste noch vermieden werden, dass das einen Fehler ergibt.

...aber es funktioniert und das ist das Wichtigste - danke nochmal

Da ist es mit VBA doch etwas einfacher:

na gut - ich probier mich mal damit

Dim lngLZ As Long, lngZ As Long

lngZ = Cells(Rows.Count, 1).End(xlUp).Row
For lngZ = lngLZ To 1 Step -1
    If Cells(lngZ, 1) = "" Then
        Rows(lngZ).EntireRow.Delete
    End If
Next

dauert aber etwas - hab ich noch nicht gemacht  
  

> (ungetestet)  

...aber nicht mehr lange...  
  

> Viele Grüße  

auch von mir  
HeikoH