Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Zeit eingabe über Schaltfläche

• Zeit eingabe über Schaltfläche von Haller vom 08.09.2020 13:40:56
• AW: Zeit eingabe über Schaltfläche - von Joachim Lewandowski am 08.09.2020 14:19:30
  • AW: Zeit eingabe über Schaltfläche - von Haller am 08.09.2020 14:29:17
• AW: Zeit eingabe über Schaltfläche - von GerdL am 08.09.2020 14:34:02
  • AW: Zeit eingabe über Schaltfläche - von Haller am 08.09.2020 14:39:52
    • AW: Zum Lesen u. Nachdenken o.r.T. - von GerdL am 08.09.2020 14:44:34
• einer geht noch - von Werner am 08.09.2020 14:40:37

Betrifft: Zeit eingabe über Schaltfläche von: Haller
Geschrieben am: 08.09.2020 13:40:56

Guten Tag


Ich würde gerne über eine Schaltfläche die aktuelle Zeit eintragen. Dies habe ich auch _
geschafft. Nun würde ich gerne eine zweite Zeit in die gleiche Zelle schreibe aber die alte _ Zeit soll nicht überschrieben werden.

ActiveCell.Value = Time

Hat jemand von euch eine Lösung für mich?


Vielen Dank

  

Betrifft: AW: Zeit eingabe über Schaltfläche
von: Joachim Lewandowski
Geschrieben am: 08.09.2020 14:19:30

Sub zeit()
 ActiveCell.value=Hour(ActiveCell.value) & ":" & Minute(ActiveCell.value) & "/" & Time
end Sub

Das istt dann aber Text und taugt nicht mehr zum Rechnen, es sei denn Du nimmst es mit Suche nach "/" und Rechts/links/Teil wieder auseinander
Guß

  

Betrifft: AW: Zeit eingabe über Schaltfläche
von: Haller
Geschrieben am: 08.09.2020 14:29:17

Vielen Dank für die Hilfe!

Leider überschreibt es die Zelle wider wenn ich die Schaltfläche erneut drücke

  

Betrifft: AW: Zeit eingabe über Schaltfläche
von: GerdL
Geschrieben am: 08.09.2020 14:34:02

Moin

Private Sub CommandButton1_Click()
 
    ActiveCell.NumberFormat = "@"
    If IsEmpty(ActiveCell) Then
        ActiveCell = Format(Time, "hh:mm:ss")
    Else
        MsgBox "Diese Tabelle hat " & Cells.CountLarge & " Zellen!"
        ActiveCell = ActiveCell.Text & vbCrLf & Time
    End If
        
End Sub

Gruß Gerd

  

Betrifft: AW: Zeit eingabe über Schaltfläche
von: Haller
Geschrieben am: 08.09.2020 14:39:52

Herzlichen Dank!

Wozu wird die MsgBox benötigt?

Ansonsten funktioniert es einwandfrei! Perfekt!

  

Betrifft: AW: Zum Lesen u. Nachdenken o.r.T.
von: GerdL
Geschrieben am: 08.09.2020 14:44:34

Gruß Gerd

  

Betrifft: einer geht noch
von: Werner
Geschrieben am: 08.09.2020 14:40:37

Hallo,

Sub Schaltfläche1_Klicken()
If ActiveCell <> "" Then
    If InStr(ActiveCell, " - ") > 0 Then
        MsgBox "Zeit ist bereits erfasst"
    Else
        ActiveCell = ActiveCell.Text & " - " & Time
    End If
Else
    ActiveCell = Time
    ActiveCell.NumberFormat = "hh:mm:ss"
End If
End Sub

Gruß Werner

Beiträge aus dem Excel-Forum zum Thema "Zeit eingabe über Schaltfläche"