21.06.2016, 10:49
(Dieser Beitrag wurde zuletzt bearbeitet: 21.06.2016, 11:02 von WillWissen.
Bearbeitungsgrund: Formatierung Minischrift aufgehoben und Code in Tags gesetzt
)
Hallo zusammen,
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:
Vielen Dank und beste Grüße,
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:
Code:
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 und beste Grüße,
David