Microsoft Excel

Herbers Excel/VBA-Archiv

Per VBA eingefügte Daten überschreiben letzte Zeile


Betrifft: Per VBA eingefügte Daten überschreiben letzte Zeile von: Maurice
Geschrieben am: 24.10.2019 13:34:07

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

  

Betrifft: AW: Per VBA eingefügte Daten überschreiben letzte Zeile von: UweD
Geschrieben am: 24.10.2019 14:07:52

Hallo


lastrowQ = Worksheets("Tabelle1").Range("d65536").End(xlUp).Row + 1


LG UweD


Beiträge aus dem Excel-Forum zum Thema "Per VBA eingefügte Daten überschreiben letzte Zeile"