Zeilen ohne Überschrift kopieren
22.08.2022 13:57:06
Ramadani
An erster Stelle möchte ich mich bei allen bedanken die mir bisher geholfen haben - ganz herzliches Dankeschön!
Aktueller Fall:
Ich habe einen Code verfasst, um Daten von einer Datei in eine andere zu kopieren und anschliessend zu filtern.
Nach dem Filtern sollen nur die gefilterten Daten in ein anderes Tabellenblatt kopiert werden. Dies funktioniert nicht ganz so wie ich es gerne hätte.
Die Daten werden zwar kopiert, aber leider auch die Überschrift und die benötige ich nicht.
Kann mir bitte jemand mitteilen, wie ich die gefilterten Daten ohne Überschrift kopiert bekomme?
Der Code sieht aktuell so aus:
Sub Test()
'Datei öffnen und Daten kopieren
Workbooks.Open Filename:=("Dateipfad") -> wird durch richtigen Dateipfad ersetzt. Wurde für die Bearbeitung entfernt
Sheets("Tabellenblatt").Select -> wird durch richtiges Tabellenblatt ersetzt
Columns("L:O").Select
Selection.Delete Shift:=xlToLeft
Columns("M:BN").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells.Select
Selection.Copy
Windows("Vorlage_Verlustberechnung.xlsm").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.ListObjects("DA").TableStyle = ""
Range("DA[[#Headers],[Los]]").Select
'Filter setzen
Tabelle1.Range("A1").AutoFilter
'Filtern_Januar
ActiveSheet.ListObjects("DA").Range.AutoFilter Field:=12, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2022")
Range("DA[[#Headers],[Linie]]").Select
ActiveSheet.ListObjects("DA").Range.AutoFilter Field:=2, Criteria1:="1"
'Kopieren
Tabelle1.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Tabelle2.Range("B3")
End Sub
Die benötigten Dateien sind als Anhang beigefügt (aus Datenschutzgründen wurden wichtige Zahlen durch "xxx" ersetzt)
Beste Grüsse und danke herzlichst im vorraus
https://www.herber.de/bbs/user/154764.xlsx
https://www.herber.de/bbs/user/154765.xlsm