Hilfe zu Datenübernahme - MS Excel

[Jörg Lorenz]

Hi Heiko,

Jo, hab gemerkt wo mein Fehler war, klappt jetzt mit der Wechseln Funktion - das * 1 dahinter bedeutet das die Werte in Zahlen umgewandelt werden?!?

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

Vielleicht dann noch ne Frage - jede fünfte Zeile ist eine Leerzeile oder mit Text gefüllt - die will ich auch raushaben und nicht mühselig per Hand löschen - gibt es dafür auch eine Funktion?

Per Funktion stelle ich mir das etwas mühsam vor, wenn es sicher auch geht. Da ist es mit VBA doch etwas einfacher:

• Feststellen, was die letzte ausgefüllte Zelle in einer Spalte ist (z. B. cells(rows.count, Spaltennummer).end(xlup).row)
• Von der letzten (gerade festgestellten) Zeile bis zur ersten eine Schleife, die die leeren Zeilen löscht.

Hier ist mal ein Beispiel, das die Spalte 1 auf leere Zellen prüft:

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

(ungetestet)

Viele Grüße

Jörg