Rohdaten eines alten Backups einspielen

Hallo,
ich habe noch eine Frage wegen dem Einspielen von Backup-Daten aus einer geschlossenen alten Datei in eine geöffnete XLSM Datei was ich gerne automatisieren möchte.In einer xlsm Datei befinden sich mehrere Tabellenblätter, die schreibgeschützt sind. Dort befinden sich auch unter dem Blatt "Rohdaten" die abgespeicherten Datensätze. DIese ändern sich fortlaufend, so dass sich die Zeilenanzahl immer wieder ändert und mir unbekannt ist.
Die xlsm Datei legt bei jedem Start in einem Backup-Ordner D:\Backups\ eine Kopie der Datei an nach Name: Backup-Datum-Uhrzeit.xlsm. Wenn mal wieder ein Update der XLSM Datei durchgeführt wurde, würde ich jetzt gerne automatisiert die Rohdaten aus dem alten Backup-File einspielen, da sich zwischenzeitlich viele Daten geändert haben.
Dazu müsste es den Bereich der Backupdatei auf dem Tabellenblatt Rohdaten zwischen C5-AH(letzte beschriebene Zeile) kopieren und auf das aktuelle File in das Blatt Rohdaten ab C5-AH(letzte Zeile) kopieren. Das Hauptproblem das ich sehe ist das parallele Öffnen der beiden Dateien, denn beim Start des Backups werden durch Makros viele Daten geändert. Daher wäre es vl geschickt die DAtei geschlossen zu halten, die Daten zu kopieren und auf dem aktuell geöffnet File im Tabellenblatt Rohdaten einzufügen? Geht sowas und wenn ja, kann mir da vl jemand helfen?
Ganz lieben Dank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, :-)
... per VBA: ;-)


Option Explicit
Const strSheetQ As String = "Rohdaten" ' DIE Tabelle wird ausgelesen
Const strSheetZ As String = "Rohdaten" ' Die Tabelle in DIESER Datei
Const strPath As String = "C:\TMP\" ' Pfad
Const strFile As String = "TestDatei.xlsm" ' Datei
Const strPathFile As String = strPath & strFile ' Pfad und Datei
Public Sub Main()
Dim strRange As String
' Wenn ein Fehler auftritt gehe zu der angegebenen Sprungmarke
On Error GoTo Fin
' With-Block - alles was sich auf dieses Objekt bezieht MUSS mit einem Punkt beginnen
With ThisWorkbook.Worksheets(strSheetZ)
' Ermittle die letzte Zeile in Spalte C der Quelldatei und schreibe es in Zeile 1 Spalte 200
.Cells(1, 200).Formula = "=COUNTA('" & strPath & "[" & strFile & "]" & strSheetQ & "'!C:C)"
' Range bilden + 4 weil es erst in Zeile 5 beginnt
strRange = "C5:C" & .Cells(1, 200).Value + 4
' Schreibe die Bezugsformel fur Quelldatei in den Bereich C5:AH letzteZeile mit Daten aus Quelldatei
.Range("C5:AH" & .Cells(1, 200).Value + 4).Formula = "='" & Mid(strPathFile, 1, InStrRev(strPathFile, "\")) & _
"[" & Mid(strPathFile, InStrRev(strPathFile, "\") + 1) & "]" & strSheetQ & "'!" & strRange
' Formel in Werte umwandeln
.Range("C5:AH" & .Cells(1, 200)).Value = .Range("C5:AH" & .Cells(1, 200)).Value
' Ermittelte Zeilenanzahl wieder löschen
.Cells(1, 200).ClearContents
End With
Fin:
' Wenn ein Fehler aufgetreten ist - ausgeben mit Fehlerzahl und Beschreibung
If Err.Number  0 Then MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub

Der Code wurde von mir getestet und brummt. Du musst die entsprechenden Parameter anpassen! Kommentare im Code sollten ausreichend sein. ;-)
Servus
Case

'............. With ThisWorkbook.Worksheets(strSheetZ) ' Ab Zeile 5 bis Ende löschen .Rows(5).Resize(.Rows(.UsedRange.Rows.CountLarge).Row).ClearContents ' Ermittle die letzte Zeile in Spalte C der Quelldatei und schreibe es in Zeile 1 Spalte 200 .Cells(1, 200).Formula = "=COUNTA('" & strPath & "[" & strFile & "]" & strSheetQ & "'!C:C)" '.............

'............. ' Formel in Werte umwandeln .Range("C5:AH" & .Cells(1, 200)).Value = .Range("C5:AH" & .Cells(1, 200)).Value ' 0 Werte löschen, da die geschrieben werden, wenn Zellen in Quelldatei leer .Range("C5:AH" & .Cells(1, 200)).Replace What:=0, Replacement:="", LookAt:=xlWhole ' Ermittelte Zeilenanzahl wieder löschen .Cells(1, 200).ClearContents '.............

Beliebteste Forumthreads (12 Monate)

Rohdaten eines alten Backups einspielen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rohdaten eines alten Backups einspielen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread