Zeilen _ Spaltenbereiche kopieren
20.11.2022 21:40:05
Christian
ich habe ein Problem, ich möchte ein Makro auf der Tabelle1 Starten, dass mir in Tabelle KALK einen Autofilter setzt, dass funktioniert auch..:-) aber bei der Kopierfunktion
der gefilterten Daten, kopiert er die Zellen der ersten Tabelle "Startseite" auf der ich gerade stehe.... wenn ich nochmals "ThisWorkbook.Worksheets("KALK") für die Kopierfunktion setze ThisWorkbook.Worksheets("KALK").Range("G12:G5000,P12:Q5000").Select bringt er einen Fehler... Schön wäre es auch, wenn die Spaltenlänge die ich kopieren möchte dynamisch wären :-) , als von G12 bis ..... und P12 bis Q ........ :-)
Vielleicht kann mir jemand helfen. Vielen Dank im Voraus
Christian
Sub Export2()
' Autofilter setzen und lösen
ThisWorkbook.Worksheets("KALK").Range("D11").AutoFilter
' Filtern: Bestimmter Werte
ThisWorkbook.Worksheets("KALK").Range("D11").AutoFilter 13, Array("8", "7", "3", "2"), xlFilterValues
Range("G12:G5000,P12:Q5000").Select
Selection.Copy
Sheets("EXPORT").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub