Office: Leere Zeilen löschen

Hallo,

ich mache gerade meine ersten Schritte mit Makros. Momentan versuche ich eine Funktion die folgende Schritte durchgeht:

1. Zeile 1-7 auswählen und in Zwischenablage kopieren
2. Neues Dokument erstellen
3. Zeilen als Werte einfügen
4. Die kopierten Zeilen in denen in Zeile B kein Wert ist löschen
5. Als CSV abspeichern

Dazu habe ich mir folgenden Code zusammengebastelt:

Sub Export2CSV()

Rows("1:7").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Selection.Cells.PasteSpecial Paste:=xlPasteValues

On Error Resume Next
ActiveSheet.Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

ActiveWorkbook.SaveAs FileFormat:=clCSV, CreateBackup:=False

End Sub

Das kopieren und exportieren der Daten funktioniert gut. Danach allerdings garnichts mehr.

Kann mir einer von euch da vielleicht weiterhelfen?

Vielen Dank und viele Grüße
Lucas

:)

 

Hallo Lucas,

versuch's mal so: Code:

 

Vielen Dank für deine Hilfe. Habe es hinbekommen!