|
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.
Sub Kopieren_und_einfuegen()
'
Dim Quellbereich As Range, Zielbereich As Range
Set Quellbereich = Sheets("Tabelle1").Range("B4:H33")
'kopiert untereinander
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.
Set Zielbereich = Sheets("Tabelle2").Cells(Sheets("Tabelle2").Columns.Count, 1).End(xlToLeft).Offset(1, 0)
Danke im Voraus!
Viele Grüße!
Gruenzeug
|