Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum und Uhrzeit speichern

Forumthread: Datum und Uhrzeit speichern

Datum und Uhrzeit speichern
25.11.2015 16:57:31
Roman
Hallo,
ich habe einen Button mit dem ich den Blattschutz entferne von meiner Datei.
Nun möchte ich, dass sobald dieser Button gedrückt wurde das Datum (Spalte A) und die Uhrzeit (Spalte B) auf einer Seite gespeichert wird.
Wenn die Datei beendet wird speichert er das Datum (Spalte C) und die Uhrzeit. (Spalte D)
Hat hierzu jemand Rat?

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
AW: Datum und Uhrzeit speichern
26.11.2015 11:13:45
Roman
Hallo,
danke funktioniert super. :)
Danke.
Wie schaffe ich es noch, dass er beim Schließen der Mappe zugleich in Spalte 5 die Differenz der Zeit ausrechnet, ohne das ich vorher eine Formel im Tabellenblatt hinterlegen muss?

AW: Datum und Uhrzeit speichern
26.11.2015 12:17:42
fcs
Hallo Roman,
es sit ja auch so schwer, die Start-Zeit von der Ende-Zeit abzuziehen. 
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
.Cells(Zeile, 5) = (.Cells(Zeile ,3) + .Cells(Zeile, 4)) - (.Cells(Zeile, 1) + .Cells( _
Zeile, 2))
End With
If bolSaved = True Then Me.Save
End Sub

Gruß
Franz

Anzeige
AW: Datum und Uhrzeit speichern
26.11.2015 16:26:50
Katja
Hallo
funktioniert wunderbar.
Ein Problem ist mir noch aufgefallen.
Sobald ich mich zwar nicht anmelde aber ich als letzter User angemeldet war überschreibt er das alte Datum und die Uhrzeit mit dem neuem Datum und der neuen Uhrzeit obwohl ich gar nicht angemeldet war.
Hast du hierzu eine Lösung?

Anzeige
AW: Datum und Uhrzeit speichern
27.11.2015 15:20:05
fcs
Hallo Katja,
mit einer Prüfung ob die Zelle in Spalte C leer ist sollte es funktionieren.
Gruß
Franz 
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
If IsEmpty(.Cells(Zeile, 3)) Then
.Cells(Zeile, 3) = Date
.Cells(Zeile, 4) = Time
.Cells(Zeile, 5) = (.Cells(Zeile, 3) + .Cells(Zeile, 4)) - _
(.Cells(Zeile, 1) + .Cells(Zeile, 2))
If bolSaved = True Then Me.Save
End If
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Datum in Formel automatisch
Bernd

Hallo,
könnt ihr mir bei folgender Aufgabe weiterhelfen:
In anhängender Datei ist in Zelle C1 eine Summenformel (=SUMME(B1:B31))
Ich will nun, dass anstatt der Zelle B1 diejenige Zelle in der Spalte B berücksichtigt ist, in der in Spalte A das aktuelle Datum steht.
z.B: Datum:...
04.11.2008 09:54:00
Thread-ID: 1021481
11 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Anzeige
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
Anzeige
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige