Sheet mit Zeitstempel Blitz-sichern
Wie kann ich das akt Excel-Register Blitz-Sichern ?
am besten in eine separate Datei + Zeitstempel...
Wie geht das ???
1. VBA-Editor öffnen, dafür Alt und F11 drücken
2.
Im Projekt-Fenster (links) mit der rechten Maustaste ein Modul anlegen: z.B. "SheetExport"
oder
ein vorhandenes Modul per Doppelklick auswählen.
Anschliessend die beiden folgenden Code-Fragemente einfügen,
- eine Sub (siehe 3.)
- und eine Function (siehe 4.)
Tipp: Einfach hier markieren und kopieren.
3. Folgendes im Quellcode-Fenster eingeben.
VBA
Sub SheetExport()
'************************************************
' Diese Sub sichert das aktive Sheet in eine
' separate Mappe, die den Namen des Sheets plus
' das aktuelle Datum und Uhrzeit bekommt.
'************************************************
Dim wbZiel As Workbook, i As Integer
Dim sFileName_Ziel As String
' Neues Workbook erstellen
Set wbZiel = Workbooks.Add
' Aktuelles Sheet in's neue Workbook kopieren
ThisWorkbook.ActiveSheet.Copy Before:=wbZiel.Sheets(1)
' Zusätzliche Sheets im neuen Workbook löschen
For i = wbZiel.Worksheets.Count To 2 Step -1
wbZiel.Worksheets(i).Delete
Next i
' Dateinamen für neues Workbook zusammensetzen
sFileName_Ziel = ThisWorkbook.ActiveSheet.Name & "__" & fktZeitstempel & ".xlsx"
' Das neue Workbook mit neuem Dateinamen im akt Pfad speichern
wbZiel.SaveAs ThisWorkbook.Path & "\" & sFileName_Ziel
wbZiel.Close ' und schliessen
Set wbZiel = Nothing
End Sub
4. Ausserdem wird noch folgende Funktion benötigt.
VBA
Function fktZeitstempel() As String
'********************************************************
' Diese Funktion erstellt einen aktuellen Zeitstempel
' und gibt in als String zurück. Format: "yymmdd_hhmmss"
'********************************************************
Dim dUhrzeit As Date, dDatum As Date
Dim sDatumUndUhrzeit As String
' Akt Uhrzeit ermitteln & formatieren
dUhrzeit = Time
dUhrzeit = Format(dUhrzeit, "hh:mm:ss")
' Akt Datum ermitteln & formatieren
dDatum = Date
dDatum = Format(dDatum, "yy:mm:dd")
' Zeitstempel ( = Datum + Uhrzeit) als String zusammensetzen
sDatumUndUhrzeit = CStr(dDatum) & "_" & CStr(dUhrzeit)
' Die ":" im Zeitstempel-String entfernen, Ergebnis zurückgeben
fktZeitstempel = Replace(sDatumUndUhrzeit, ":", "")
End Function
5. Ein Tastenkombination für den schnellen Makro-Start zuweisen.
- Dafür Alt und F8 drücken
- In dem öffnenden Fenster die Sub "SheetExport" anklicken
- "Optionen" anklicken
- Und eine Tastenkombination wählen, z.B. Strg + M,
mit der man künftig das Makro bequem starten kann.
6. Ausprobieren und freuen.
