Zeile aus kopieren
21.06.2016 10:51:01
David
ich möchte eine Zeile aus Tabelle1 in Tabelle2 kopieren. Das gelingt auch, jedoch wird die Zeile aus Tabelle 1 als Spalte in Tabelle2 eingefügt.
Hier der Code, mit dem ich arbeite:
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 1
Bereich = "B5:AJ5"
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle1")
Set Zieltab = ActiveWorkbook.Worksheets("Tabelle2")
For Each Zelle In Quelltab.Range("B5:AJ5")
Zieltab.Cells(Zaehler, 2) = Zelle
Zaehler = Zaehler + 1
Next Zelle
End Sub
Vielen Dank!