kopieren von gefilterten Daten
28.07.2015 08:50:20
gefilterten
ich habe ein kleines Problem mit dem kopieren von gefilterten Daten.
Anbei mein Makro
*****
Sub Makro3()
ActiveSheet.Range("$A$1:$Q$324").AutoFilter Field:=17, Criteria1:=""
ActiveCell.Offset(0, -16).Columns("A:P").EntireColumn.Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
strDesktop = Environ("USERPROFILE")
ActiveWorkbook.SaveAs Filename:= _
strDesktop & "\Desktop\LSMW_Test_Makro.txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
*****
Es werden zwar, wie gewünscht, die in der Spalte Q gefilterten Daten der Spalten A-P in das neue Tabellenblatt kopiert. Allerdings werden auch leere Zeilen mitkopiert.
Folge ist, dass die gespeicherte txt-Datei fast 17 MB gross ist und die Weiterverarbeitung im SAP Probleme beim Einlesen der Leerzeilen bekommt.
WIe kann ich nur die "nicht leeren" Zeilen kopieren?
"selection.end(xlDown).select" kenne ich zwar, aber ich weiss nicht, wie ich das zusammen bekomme.
Oder muss ich einen weiteren Schritt einbauen, in dem ich in dem neuen Tabellenblatt die Daten selektiere?
Gruß
Günter