Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt

Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:30:03
Andreas
Hallo Excel Profis!
Ich habe folgendes Problem:
1. Ich möchte per CommandButton in die jeweils aktive Zelle per klick die aktuelle Uhrzeit im Format hh:mm eintragen ohne das die "=JETZT()"-Funktion" benutzt wird, diese verändert nämlich diese Zelle beim erneuten aufruf der Arbeitsmappe wieder.
Wenn schon ein Wert in der Zelle steht, sollte eine Überschreiben-Abfrage erscheinen, damit ich nichts versehentlich lösche.
2. Per 2. CommandButton möchte ich in die jeweils aktive Zelle das aktuelle Datum im Format TT.MM.JJ eintragen, allerdings auch ohne die "=HEUTE()"-Funktion (aus den oben genannten Gründen), auch hier wäre eine Überschreiben-Abfrage nicht schlecht.
Ich hoffe mir kann Jemand helfen, Danke schon mal!
mfg, Andreas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:47:30
Kurt
Hi,
wenn das Commandbutton aus der Steuerelemente-Toolbox sind,
stelle die Eigenschaft: TakeFocusOnClick auf False.
Option Explicit
Const M As String = "Soll die Zelle überschrieben werden?"
Dim Msg As Integer
Private Sub CommandButton1_Click()
If Len(ActiveCell) > 0 Then
Msg = MsgBox(M, 36)
If Msg = 6 Then Zeit
Else
Zeit
End If
End Sub
Private Sub CommandButton2_Click()
If Len(ActiveCell) > 0 Then
Msg = MsgBox(M, 36)
If Msg = 6 Then Datum
Else
Datum
End If
End Sub
Private Sub Zeit()
ActiveCell = Time
ActiveCell.NumberFormat = "hh:mm"
End Sub
Private Sub Datum()
ActiveCell = Date
ActiveCell.NumberFormat = "dd.mm.yy"
End Sub
Mfg Kurt

Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:47:37
Andi
Hi,
zu 1.:

Private Sub CommandButton1_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

und 2. funktioniert dann eigentlich analog:

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

Schönen Gruß,
Andi
Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
ransi
HAllo Andreas
teste mal..


Option Explicit
Private Sub CommandButton1_Click()
If ActiveCell = "" Then
    ActiveCell = Now
Else:
    If MsgBox("Überschreiben ?", vbYesNo) = vbYes Then ActiveCell = Now
End If
End Sub
Private Sub CommandButton2_Click()
If ActiveCell = "" Then
    ActiveCell = Format(Now, "DD.MM.YY")
Else:
    If MsgBox("Überschreiben ?", vbYesNo) = vbYes Then ActiveCell = Format(Now, "DD.MM.YY")
End If
End Sub


ransi
Anzeige
Danke!
22.09.2006 15:54:23
Andreas
Danke für die Lösungen!
Ich teste sie gleich.
mfg, Andreas
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Aktuelle Uhrzeit in aktive Zelle einfügen


Schritt-für-Schritt-Anleitung

Um die aktuelle Uhrzeit in die aktive Zelle einzufügen, kannst du im Excel VBA einen CommandButton verwenden. Folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11.
  2. Füge einen CommandButton hinzu: Wähle im Menü "Einfügen" den "CommandButton" aus.
  3. Doppelklicke auf den CommandButton: Dies öffnet das Code-Fenster für den Button.
  4. Füge den folgenden Code ein, um die aktuelle Uhrzeit zu schreiben:
Option Explicit
Const M As String = "Soll die Zelle überschrieben werden?"
Dim Msg As Integer

Private Sub CommandButton1_Click()
    If Len(ActiveCell) > 0 Then
        Msg = MsgBox(M, vbYesNo + vbQuestion)
        If Msg = vbYes Then
            ActiveCell.Value = Format(Time, "hh:mm")
        End If
    Else
        ActiveCell.Value = Format(Time, "hh:mm")
    End If
End Sub
  1. Für das aktuelle Datum kannst du einen weiteren CommandButton verwenden. Füge diesen Code in das Code-Fenster des zweiten Buttons ein:
Private Sub CommandButton2_Click()
    If Len(ActiveCell) > 0 Then
        Msg = MsgBox(M, vbYesNo + vbQuestion)
        If Msg = vbYes Then
            ActiveCell.Value = Format(Date, "dd.mm.yy")
        End If
    Else
        ActiveCell.Value = Format(Date, "dd.mm.yy")
    End If
End Sub

Häufige Fehler und Lösungen

  • Fehler bei der Zelle: Wenn der Code nicht funktioniert, stelle sicher, dass die richtige Zelle aktiv ist.
  • VBA-Fehler: Überprüfe, ob die Berechtigungen für das Ausführen von Makros aktiviert sind.
  • Formatierungsprobleme: Vergiss nicht, die Zelle auf das richtige Format einzustellen, z.B. "hh:mm" für die Uhrzeit.

Alternative Methoden

Wenn du die aktuelle Uhrzeit ohne VBA einfügen möchtest, kannst du die Funktion =JETZT() verwenden, beachte jedoch, dass sich diese bei jeder Neuberechnung aktualisiert. Eine andere Möglichkeit ist die Verwendung eines Shortcuts:

  • Shortcut für aktuelle Uhrzeit: Drücke STRG + SHIFT + ; (Semikolon), um die aktuelle Uhrzeit direkt in die aktive Zelle einzufügen.

Praktische Beispiele

  1. Aktuelle Uhrzeit in Zelle A1 einfügen:

    • Klicke auf Zelle A1 und drücke den CommandButton, um die aktuelle Uhrzeit im Format "hh:mm" einzufügen.
  2. Aktuelles Datum in Zelle A2 einfügen:

    • Klicke auf Zelle A2 und drücke den CommandButton für das Datum, um das aktuelle Datum im Format "dd.mm.yy" einzufügen.

Tipps für Profis

  • Automatisierung: Du kannst die Buttons so programmieren, dass sie beim Öffnen der Datei automatisch die aktuelle Uhrzeit oder das Datum einfügen.
  • Erweiterung der Funktionalität: Entwickle den Code weiter, um zusätzliche Formate oder Funktionen hinzuzufügen, z.B. das Einfügen von Zeitstempeln.

FAQ: Häufige Fragen

1. Wie kann ich die aktuelle Uhrzeit in Excel anzeigen, ohne sie ständig neu eingeben zu müssen?
Verwende den VBA-Code, wie oben beschrieben, um die Uhrzeit per Button-Klick einzufügen.

2. Gibt es eine Möglichkeit, die aktuelle Uhrzeit automatisch in einer bestimmten Zelle zu haben?
Ja, das geht mit der =JETZT()-Funktion, aber beachte, dass sich dieser Wert bei jeder Neuberechnung ändert. VBA ist die bessere Option für statische Werte.

3. Kann ich die Uhrzeit auch in anderen Formaten speichern?
Ja, passe einfach das Format im VBA-Code an, um andere Zeitformate zu verwenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige