Bestimmte Spalten kopieren
05.01.2018 09:52:54
Sven
Guten Morgen Zusammen,
ich habe ein Makro welches mir eine bestimmte Spalte kopiert und eine definierte Anzahl weiter nach unten kopiert.
Sub Kopieren()
Dim ar As Variant, i As Integer
Dim lngAnzahl As Long
ar = Array("2017 Intern_Messe")
lngAnzahl = Worksheets("2017 Intern_Messe").Range("C2")
Application.ScreenUpdating = False
For i = LBound(ar) To UBound(ar)
With Worksheets(ar(i))
.Rows(3).Copy .Rows("4:" & lngAnzahl + 1)
End With
Next i
End Sub
Jetzt würde ich aber gerne nicht die ganze Zeile (Zeile 3) kopieren sondern nur Spalte A-E und Spalte G-P (in Zeile 3) kopieren.
Kann mit hier jemand helfen?
Mit freundlichen Grüßen Sven