Per Button Datum / Zeit eintragen
23.04.2022 19:43:10
mablu
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