Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Column anreihen

Betrifft: VBA Column anreihen von: Joshua Feuerbacher
Geschrieben am: 06.11.2020 14:44:03

Sehr geehrte Damen und Herren,

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

Betrifft: AW: VBA Column anreihen
von: Joshua Feuerbacher
Geschrieben am: 06.11.2020 14:48:22

Im Vorraus schon einmal vielen Dank.

Betrifft: AW: VBA Column anreihen
von: Regina Resch-Jansen
Geschrieben am: 06.11.2020 15:43:51

Hi,
wenn ich Deinen Plan richtig verstanden habe, müsste das so laufen:
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(3, wsZiel.Columns.Count).End(xlToLeft).Offset(0, 1).Column

wsDaten.Range("D2:D" & lLetzeReiheDaten).Copy

wsZiel.Cells(3, lLetzeReiheZiel).PasteSpecial xlPasteValues


End Sub
Sonst mal Beispieldatei hochladen

Gruß Regina

Betrifft: AW: VBA Column anreihen
von: Joshua Feuerbacher
Geschrieben am: 06.11.2020 15:56:04

Super Danke. Mega gut!