VBA Column anreihen
06.11.2020 14:44:03
Joshua
ich hab folgendes vermutlich symples Problem. Ich möchte eine Spalte aus einer Arbeitsmappe in eine andere Arbeitsmappe kopieren und dabei im Folgenenden weitere Inhalte rechts in Spalten anfügen. Folgendes habe ich ausprobiert und bin gescheitert.
Sub KopierenMittelwert()
Dim wsDaten As Worksheet
Dim wsZiel As Worksheet
Dim lLetzeReiheDaten As Long
Dim lLetzeReiheZiel As Long
Set wsDaten = Workbooks("MetaTabelle Spiro.xlsx").Worksheets("Eingang")
Set wsZiel = Workbooks("MetaTabelle Spiro.xlsx").Worksheets("Mittelwerte")
lLetzeReiheDaten = wsDaten.Cells(wsDaten.Rows.Count, "D").End(xlUp).Row
lLetzeReiheZiel = wsZiel.Cells(wsZiel.Columns.Count, 3).End(xlToLeft).Offset(0, 1).Column
wsDaten.Range("D2:D2400" & lLetzeReiheDaten).Copy _
wsZiel.Range("3" & lLetzeReiheZiel).PasteSpecial xlPasteValues
End Sub