Per VBA eingefügte Daten überschreiben letzte Zeile
24.10.2019 13:34:07
Maurice
Wenn ich nun schon einmal "importiert" habe und es nochmal ausführe fügt er die Daten nicht in die erste freie Zeile sindern in die letzte gefüllte Zeile ein. So fehlt mir dann von dem ersten Datensatz der letzte Eintrag.
Ich hoffe das war verständlich.
Ich bitte beine be*chi*senen VBA Skills zu entschuldigen. Ich gebe mein bestes.
Private Sub AuswertungKopieren()
Dim lastrowZ As Integer
Dim firstrowZ As Integer
Dim lastrowQ As Integer
'Variablen Zieldatei
lastrowZ = Worksheets("Daten").Range("d65536").End(xlUp).Row
If lastrowZ = 1 Then
firstrowZ = 1
Else
firstrowZ = lastrowZ + 1
End If
'Öffne Datendatei
Workbooks.Open Filename:=ActiveWorkbook.Path & "\Auswertung.xlsx"
Sheets("Tabelle1").Select
'Variablen Datendatei
lastrowQ = Worksheets("Tabelle1").Range("d65536").End(xlUp).Row
'Kopiere Daten
Worksheets("Tabelle1").Activate
Range(Cells(3, 1), Cells(lastrowQ, 9)).Copy
Workbooks("Auswertung komplett.xlsm").Worksheets("Daten").Activate
Cells(firstrowZ, "A").End(xlUp).PasteSpecial xlPasteValues
'Schließe Datendatei
Application.CutCopyMode = False
Workbooks("Auswertung.xlsx").Close SaveChanges:=False
End Sub
Anzeige