Sichtbare Zellen kopieren
18.12.2019 11:29:53
Laui
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
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
Anzeige