Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Per VBA eingefügte Daten überschreiben letzte Zeile

Per VBA eingefügte Daten überschreiben letzte Zeile
24.10.2019 13:34:07
Maurice
Hallo, ich habe hier eine Excel Datei mit einem zusammengesammelten VBA Modul (Danke hierfür an das Forum), die Daten aus einer anderen Datei im selben Verzeichnis (erneuert sich alle x Wochen) "importiert" ind das Tabellenblatt "Daten".
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA eingefügte Daten überschreiben letzte Zeile
24.10.2019 14:07:52
UweD
Hallo
lastrowQ = Worksheets("Tabelle1").Range("d65536").End(xlUp).Row + 1
LG UweD
Anzeige

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige