|
Hallo zusammen,
ich komme leider mit meinem Problem und meinen Kenntnissen nicht weiter :(. Vielleicht könnt ihr mir helfen?!
Ziel ist, einen Bereich "B4:H33" zu kopieren und den Inhalt in ein zweites Tabellenblatt in die erste freie Spalte zu kopieren. Alles was mir bislang mit Recherche und Test gelungen war, ist das Kopieren nebeneinander.
1 2 3 4 5 6 7 8 9 10 11 12 | Sub Kopieren_und_einfuegen()
Dim Quellbereich As Range, Zielbereich As Range
Set Quellbereich = Sheets("Tabelle1").Range("B4:H33")
Set Zielbereich = Sheets("Tabelle2").Cells(Sheets("Tabelle2").Rows.Count, 1).End(xlUp).Offset(1, 0)
Zielbereich.Resize(Quellbereich.Rows.Count, Quellbereich.Columns.Count).Value = Quellbereich.Value
End Sub
|
Wie bekomme ich es hin, den zu kopierenden Bereich, der immer im gleichen Range "B4:H33" steht, neben die vorhandenen Daten in Tabelle2 zu kopieren?
Meine Idee war folgendes, was jedoch kein sinnvolles Ergebnis liefert.
1 | Set Zielbereich = Sheets("Tabelle2").Cells(Sheets("Tabelle2").Columns.Count, 1).End(xlToLeft).Offset(1, 0)
|
Danke im Voraus!
Viele Grüße!
Gruenzeug
|