Ich möchte aus einer Tabelle1 Daten kopieren und zwar aus Spalte A Spalte B und Spalte F und G aus Spalte A soll bis zur letzten beschriebenen Zeile alles kopiert werden.
Eingefügt wird in Tabelle2 In Spalte A,B,F und G
Danke für eure Hilfe
Sub CopyColumns()
With Sheets("Tabelle1")
.Columns("A:A").Copy (Sheets("Tabelle2").Columns("A:A"))
.Columns("B:B").Copy (Sheets("Tabelle2").Columns("B:B"))
.Columns("F:F").Copy (Sheets("Tabelle2").Columns("F:F"))
.Columns("G:G").Copy (Sheets("Tabelle2").Columns("G:G"))
End With
End Sub
Viele GrüßeSub CopyColumns()
Dim lngLastRow As Long
Dim rngCopy As Range
With Sheets("Tabelle1")
lngLastRow = .Range("A1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 1), .Cells(lngLastRow, 1))
rngCopy.Copy (Sheets("Tabelle2").Range("A1"))
lngLastRow = .Range("B1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 2), .Cells(lngLastRow, 2))
rngCopy.Copy (Sheets("Tabelle2").Range("B1"))
lngLastRow = .Range("F1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 6), .Cells(lngLastRow, 6))
rngCopy.Copy (Sheets("Tabelle2").Range("F1"))
lngLastRow = .Range("G1048576").End(xlUp).Row
Set rngCopy = .Range(.Cells(1, 7), .Cells(lngLastRow, 7))
rngCopy.Copy (Sheets("Tabelle2").Range("G1"))
End With
End Sub
Viele Grüße