ich habe folgenden Ausgangscode:
Sub MinCopy()
Range("A3").CurrentRegion _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Terminleiste").Range("A3")
End Sub Problem: Ich filtere zuerst mit folgenden Code:
Public Sub AutoFilter()
Range("A3:Z3").AutoFilter Field:=10, Criteria1:=""
End Sub
Danach sollen ausgewählte gefilterte Spalten kopiert werden und in ein anderes Tabellenblatt eingefügt werden: A&B aus gefilterten Tabelle in Tabelle 2 Spalte A und B ab Zeile 3
Spalte E aus gefiterten Tabelle in Tabelle 2 Spalte C ab Zeile 3
Spalte I aus gefilterten Tabelle in Tabelle 2 Spalte G ab Zeile 3
Mit dem aktuellen Code wird die gesamte Tabelle Kopiert. ich möchte aber nur ausgewählte SICHTBARE Spalten kopieren.
Vielen lieben Dank und liebe Grüße
Lau