AW: Datum und Uhrzeit speichern
26.11.2015 09:35:05
fcs
Hallo Roman,
nachfolgend 2 Makros mit denen man es umsetzen kann.
Der Codename einer Tabelle ist der im VBA-Projektexplorer angezeigte Name - in Klammern steht dort die Beschriftung des Tab-Registers wie im Excel-Programmfenster angezeigt.
Die Liste von Datum/Zeit wird hier endlos weiter geführt.
Wenn dies nicht der Fall sein soll, dann musst du für Zeile einen ficen Wert setzen.
Gruß
Franz
'Code in einem allgemeinen Modul
'Dieses Makro der Schaltfläche aus den Formular-Steuerelementen oder einem anderen _
Shape-Objekt zuweisen
Sub prcDatumZeit()
Dim Zeile As Long
With Tabelle1 'Codename der Tabelle in der Datum /Zeite in Spalte A/B eingetragen werden _
soll
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Zeile, 1) = Date
.Cells(Zeile, 2) = Time
End With
End Sub
'Code unter diese Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim bolSaved As Boolean
Dim Zeile As Long
bolSaved = Me.Saved 'Speicherstatus der Datei merken.
With Tabelle1 'Codename der Tabelle in der Datum/Zeit in Spalte C/D eingetragen werden soll
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(Zeile, 3) = Date
.Cells(Zeile, 4) = Time
End With
If bolSaved = True Then Me.Save
End Sub