Daten mit VBA an erste freie Zelle kopi.
27.06.2022 12:35:12
Peter
noch eine Anfrage an die Profis. Ich möchte bestimmte Datenbereiche in eine fortlaufende Liste kopieren d.h. immer an die letzte Stelle einer Spalte (bzw. die erste freie Zelle). Folgender Code kopiert die Daten auch, nur kopiert er Sie eben nicht ans Ende, sondern beginnt am Ziel immer ab Zeile 2? Eine Idee was ich falsch mache?
Sub Kopieren()
Dim lastrow As Long
Dim iRow As Long
Worksheets("Summary").Select
lastrow = Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Row
Range("HZ4:IA4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("Ergebnis").Select
With Sheets("Ergebnis")
iRow = .Cells(.Rows.Count & lastrow).End(xlUp).Row + 1
.Range("V" & iRow).PasteSpecial 'xlPasteValues
End With
End Sub
THX