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

Per Button Datum / Zeit eintragen

Forumthread: Per Button Datum / Zeit eintragen

Per Button Datum / Zeit eintragen
23.04.2022 19:43:10
mablu
Hallo
ich möchte in die Aktive Zelle das Datum, und eine Zelle rechts davon die Aktuelle Uhrzeit eintragen per Command Button 3
ich kann das jetzt mit zwei Buttons schon machen möchte diese aber zusammen fassen in einen weiss aber nicht wie das geht
kann mir hier jemand behilflich sein beim Makro?
Hier die Codes der beiden Command Buttons

Private Sub CommandButton1_Click()
With ActiveCell
Select Case .Value
Case ""
.Value = Format(Date, "ddd dd.mm.yy")
Case Else
If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
.Value = Format(Date, "ddd dd.mm.yy")
Else
Exit Sub
End If
End Select
End With
End Sub


Private Sub CommandButton2_Click()
With ActiveCell
Select Case .Value
Case ""
.Value = Format(Time, "hh:mm")
Case Else
If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
.Value = Format(Time, "hh:mm")
Else
Exit Sub
End If
End Select
End With
End Sub
Vielen Dank für die Hilfe mablu
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Per Button Datum / Zeit eintragen
23.04.2022 19:59:56
Mullit
Hallo,

With ActiveCell.Offset(0, 1)
End With
Gruß, Mullit
AW: Per Button Datum / Zeit eintragen
23.04.2022 20:23:16
GerdL
Hallo mablu

Private Sub CommandButton3_Click()
Dim temp As Double
temp = Now
With ActiveCell
Select Case .Value & .Offset(0, 1).Value
Case ""
.Value = Format(temp, "ddd dd.mm.yy")
.Offset(0, 1).Value = Format(temp - Int(temp), "hh:mm")
Case Else
If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
.Value = Format(temp, "ddd dd.mm.yy")
.Offset(0, 1).Value = Format(temp - Int(temp), "hh:mm")
End If
End Select
End With
End Sub
Gruß Gerd
Anzeige
AW: Per Button Datum / Zeit eintragen
23.04.2022 20:37:00
onur
Dein jetziger Code produziert kein richtiges Datum bzw richtige Uhrzeit, sondern nur Text, das so aussieht wie Datum bzw Uhrzeit.
So ist es korrekt:

Private Sub CommandButton3_Click()
With ActiveCell
If .Text  "" Then
If MsgBox("Überschreiben?", vbYesNo) = vbNo Then Exit Sub
End If
.Value = Date:
.NumberFormat = "ddd dd.mm.yy"
.Offset(0, 1).Value = Time
.Offset(0, 1).NumberFormat = "hh:mm"
End With
End Sub

Anzeige
AW: Per Button Datum / Zeit eintragen gelöst
23.04.2022 21:03:40
mablu
Absolut Genial, so schnell kompetente Antwort und bestens gelöst vielen Dank
und ein schönes Wochenende
mablu
Gerne !
23.04.2022 21:55:49
onur
;
Anzeige
Anzeige

Infobox / Tutorial

Datum und Uhrzeit per Button in Excel eintragen

Schritt-für-Schritt-Anleitung

Um Datum und Uhrzeit in Excel per Button einzutragen, kannst Du folgende Schritte befolgen:

  1. Entwickler-Tab aktivieren: Falls noch nicht geschehen, aktiviere den Entwickler-Tab in Excel. Gehe dazu auf Datei > Optionen > Menüband anpassen und aktiviere das Kontrollkästchen für den Entwickler-Tab.

  2. Command Button einfügen: Klicke im Entwickler-Tab auf Einfügen und wähle Button (Formularsteuerelement). Ziehe den Button auf das Arbeitsblatt.

  3. Makro zuweisen: Nach dem Platzieren des Buttons wirst Du aufgefordert, ein Makro zuzuweisen. Klicke auf Neu, um ein neues Makro zu erstellen.

  4. Code einfügen: Füge den folgenden VBA-Code in das Makro ein:

    Private Sub CommandButton3_Click()
   Dim temp As Double
   temp = Now
   With ActiveCell
       Select Case .Value & .Offset(0, 1).Value
       Case ""
           .Value = Format(temp, "ddd dd.mm.yy")
           .Offset(0, 1).Value = Format(temp - Int(temp), "hh:mm")
       Case Else
           If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
               .Value = Format(temp, "ddd dd.mm.yy")
               .Offset(0, 1).Value = Format(temp - Int(temp), "hh:mm")
           End If
       End Select
   End With
End Sub

  5. Testen: Klicke auf den Button, um zu testen, ob das Datum und die Uhrzeit korrekt in die aktive Zelle und die Zelle daneben eingetragen werden.

Häufige Fehler und Lösungen

  • Fehler: Falsches Format: Wenn das Datum und die Uhrzeit als Text erscheinen, stelle sicher, dass Du die .NumberFormat-Eigenschaft korrekt verwendest. 

    .NumberFormat = "ddd dd.mm.yy"

  • Fehler: Kein Eintrag: Wenn die Werte nicht eingetragen werden, überprüfe, ob die aktive Zelle leer ist oder ob Du die Überschreibung bestätigst.

Alternative Methoden

Falls Du keinen Button verwenden möchtest, kannst Du auch eine Tastenkombination erstellen, um Datum und Uhrzeit einzugeben. Ein einfacher Weg könnte sein:

  1. Datum: Drücke Strg + ; für das aktuelle Datum.
  2. Uhrzeit: Drücke Strg + Shift + ; für die aktuelle Uhrzeit.

Praktische Beispiele

Um die Funktionsweise besser zu verstehen, hier ein Beispiel:

  • Angenommen, Du arbeitest an einem Bericht und möchtest in Zelle A1 das aktuelle Datum und in Zelle B1 die aktuelle Uhrzeit eintragen. Nutze den oben genannten Code und klicke auf den Button. Das Ergebnis wird in A1 und B1 wie folgt aussehen:

    • A1: Mon 01.01.23
    • B1: 12:00

Tipps für Profis

  • Anpassung des Formats: Du kannst das Datumsformat nach Deinen Wünschen anpassen. Ändere die .NumberFormat-Eigenschaft entsprechend.

  • Fehlerbehandlung: Implementiere erweiterte Fehlerbehandlungen, um die Benutzerfreundlichkeit zu erhöhen. Nutze On Error GoTo für eine saubere Fehlerbehandlung im VBA-Code.

FAQ: Häufige Fragen

1. Wie kann ich das Datum und die Uhrzeit in verschiedenen Formaten eintragen?
Du kannst das Format anpassen, indem Du die .NumberFormat-Eigenschaft in Deinem VBA-Code änderst.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code funktioniert in den meisten modernen Excel-Versionen, die VBA unterstützen (z.B. Excel 2010 und höher).

3. Was passiert, wenn die aktive Zelle nicht leer ist?
Wenn die aktive Zelle bereits einen Wert hat, wirst Du gefragt, ob Du den bestehenden Wert überschreiben möchtest.

Beliebteste Forumthreads (12 Monate)

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