Kopierter Bereich erweitert sich automatisch
04.12.2017 10:21:43
MatthiasW
meine VBA Kenntnisse sind leider erst wenige Tage alt. Aus diesem Grund stellt sich mir folgende Herausforderung: Ich möchte einen Dynamischen Bereich aus Sheet Quelle in ein Sheet Ziel kopieren. Nach tagelanger Recherche funktioniert mein Code nun auch. Allerdings mit einer Einschränkung. Der zu kopierende Bereich wächst nach jedem Makrodurchgang um die kopierten zwei Zeilen an. In der Quelle sind von A1 bis AL3 Werte eingetragen. Also ist Zeile 3 die letzte beschriebene Zeile. Um Formatierungsfehler auszuschließen habe ich bereits die Zeilen 4 bis Ende komplett gelöscht und auch das Sheet komplett neu angelegt. Der Fehler bleibt leider bestehen und derzeit kopiere ich insg. 29 Zeilen, Tendenz steigend. Wo liegt mein Fehler? Hier noch der aktuelle Code:
Sub auswählen()
'Variablen Deklaration
Dim nextrow As Long
nextrow = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Dim lastrow As Long
lastrow = ActiveSheet.Range("A65536").End(xlUp).Row
Dim Start As String
Start = "Start"
Dim Datengrundlagegesamt As String
Datengrundlagegesamt = "Datengrundlage gesamt"
'Kopieren und Einfügen von Daten
worksheets(Start).Activate
ActiveSheet.Range(Cells(2, 1), Cells(lastrow, 28)).Copy
worksheets(Datengrundlagegesamt).Cells(nextrow, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
worksheets(Datengrundlagegesamt).Activate
End Sub
Vielen Dank schon mal vorab für eure Hilfe.
Grüße, Matthias