Excel VBA Destination
04.10.2021 14:15:01
Cenk
Sub tabelle_Zusammenfassen()
Dim i As Integer
Dim Zusammenfassung As Worksheet
Set Zusammenfassung = Worksheets("Zusammenfassung")
For i = 2 To Worksheets.Count
Set BereichZielTab1 = Worksheets(i).Range("A19:D27")
Set LetzteZeileZusammenfassung = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
BereichZielTab1.Copy Destination:=LetzteZeileZusammenfassung
Next i
End Sub
Kann mir jemand hiermit helfen?
Möchte hier, dass Values übertragen werden. Wenn ich ausführe, kommen #Bezug etc.
LG
Cenk :)
Anzeige