ich habe eine variable Tabelle mit AutoFilter. Ich möchte nun die gefilterten Daten (Spalte A) in eine neues Tabellenblatt kopieren. Das wird benötigt, weil dieses neue Tabellenblatt von einem Dritten bearbeitet werden muss. Eine Mehrbenutzerbearbeitung ist aufgrund unseres DMS-Systems nicht möglich.
Ich habe das Ganze über Makroaufzeichnung hinterlegt. Das Problem ist aber, dass im VBA nur eindeutige Zellbezüge (siehe unten in Fett) aufgezeichnet wurden. Die Filterung kann aber eine unterschiedliche Anzahl der Zeilen liefern im Laufe der Zeit.
Wie kann ich diese variable Zeilenanzahl über VBA integrieren?
Bisher sieht das Ganze so aus:
' GB 1 Kopieren in eigene Tabelle
'
Sheets("IST").Select
ActiveSheet.Range("$A$1:$AQ$2500").AutoFilter Field:=1, Criteria1:="GB 1"
Range("A1:AQ7").Select
Selection.Copy
Sheets("GB 1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("A:T").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "GB"
Columns("A:S").Select
Columns("A:S").EntireColumn.AutoFit
Range("A2").Select
Sheets("IST").Select
ActiveSheet.Range("$A$1:$AQ$2500").AutoFilter Field:=1
Range("A2").Select
Vielen Dank für Eure Ideen.
Gruß
Uwe