Erweiterung Schreibweise Colums
13.12.2017 12:25:23
Gerhard
mit diesem Code wird die Spalte 2 (= Spalte "C") des Autofiltes kopiert.
Es sollen jetzt die Columns(2)bis Colums(4) (Spalten "C:E") kopiert werden. Wie muss ich den Code ändern? Ich kämpfe mit der Schreibweise ...(Colums(2),(4)...
Danke für die Hilfe!
Gruß
Gerhard
Sub filtercopy()
Worksheets("Filter_Liste").Range("ra_liste").ClearContents
With Worksheets("Eintragen").AutoFilter.Range
.Resize(.Rows.Count - 1).Offset(1, 0).Columns(2).Copy
End With
End Sub
Anzeige