Fortschreibung von Daten
17.10.2017 13:36:00
Daten
ich versuche gerade mittels VBA Code Daten aus einem Formular in einer anderen Excel Arbeitsmappe als Historie fortzuschreiben. Ziel ist, dass bei jedem Speichern des Formulars eine bereits erstellte Excel Arbeitsmappe geöffnet wird, die Daten als neue Zeile eingefügt und die Arbeitsmappe anschließend gespeichert und wieder geschlossen wird. Das Ganze funktioniert bisher auch, bis auf die Fortschreibung der Daten. Beim Speichern wird immer nur die erste Zeile mit Daten gefüllt, wenn die Zeile bereits mit Daten gefüllt ist werden diese überschrieben. Der Code sieht bisher so aus:
Option Explicit
Dim Datum1 As Date, Datum2 As Date
Dim Erfasser As String, Bearbeiter As String, Status As String, Bestellung As String, Materialnr As String, Bezeichnung As String, Grund As String
Dim znr As Long, Nr As Long
Dim Pfad As String, Datei As String
Dim LR As Long, i As Long
Sub Dateien_übertragen()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Pfad und Dateiname für die Historie
Pfad = "M:\Beispielpfad
Datei = "Datei.xlsx"
' Zuordnung der Variablen aus Formular
ThisWorkbook.Worksheets("Formular").Activate
Datum1 = Range("B3")
Datum2 = Range("F3")
Erfasser = Range("B4")
Bearbeiter = Range("F4")
Status = Range("F5")
Bestellung = Range("A8")
Materialnr = Range("B8")
Bezeichnung = Range("C8")
Grund = Range("D8")
Nr = Range("B5")
' Einfügen der Werte in die Historie
Workbooks.Open (Pfad & Datei)
With ActiveWorkbook.Worksheets("Tabelle1")
znr = Range("A1").CurrentRegion.Rows.Count + 1
Range("A" & znr) = Nr
Range("B" & znr) = Datum1
Range("C" & znr) = Erfasser
Range("D" & znr) = Datum2
Range("E" & znr) = Bearbeiter
Range("F" & znr) = Status
Range("G" & znr) = Bestellung
Range("H" & znr) = Materialnr
Range("I" & znr) = Bezeichnung
Range("J" & znr) = Grund
End With
ThisWorkbook.Save
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Was mache ich falsch?
Danke schon im Voraus für eure Hilfe
Viele Grüße