mit meinen bestehenden Marko´s werden meine 12 Monatstabellen ( Janaur - Dezember ) gesichert und bei bedarf wieder eingelesen. Wie kann ich noch weiter Tabellen sichern lassen bzw. wieder einlesen lassen.
Es würde mich freuen, wenn auch noch z.B. Tabelle1, Tabelle2 gespeichert und wieder eingelesen werden könnte.
Hier mein bisherigen Marko´s:
Sub Sichern()
Dim wbZ As Workbook, wbQ As Workbook
Dim i As Integer, n As String
Application.ScreenUpdating = False
Set wbQ = ActiveWorkbook
i = 1
n = Format(DateSerial(2000, i, 1), "MMMM")
wbQ.Sheets(n).Copy
Set wbZ = ActiveWorkbook
With wbZ
For i = 2 To 12
n = Format(DateSerial(2000, i, 1), "MMMM")
wbQ.Sheets(n).Copy After:=.Sheets(.Sheets.Count)
Next i
End With
Application.ScreenUpdating = True
If Application.Dialogs(xlDialogSaveAs).Show(ThisWorkbook.Path) = False Then
MsgBox "Sicherung wurde nicht gespeichert!"
Else
ActiveWorkbook.Close
End If
End Sub
Sub Wiederherstellen()
Const Restore = "A18:N400"
Dim i As Integer, n As String
Dim wbQ As Workbook, wbZ As Workbook
Set wbZ = ActiveWorkbook
If Application.Dialogs(xlDialogOpen).Show(ThisWorkbook.Path) = False Then
MsgBox "Abbruch"
Exit Sub
End If
Set wbQ = ActiveWorkbook
For i = 1 To 12
n = Format(DateSerial(2000, i, 1), "MMMM")
wbQ.Sheets(n).Range(Restore).Copy _
wbZ.Sheets(n).Range(Restore)
Next i
wbQ.Close False
End Sub
Mfg
Michael