Microsoft Excel

Herbers Excel/VBA-Archiv

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

Zeit eingabe über Schaltfläche

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"