SpinButton Uhrzeit
18.04.2008 13:20:00
jamswolf
mit folgenden Makro ( aus dem Forum geklaut) möchte ich gerne die Uhrzeit in eine Tabelle eintragen! Schaffe es aber nicht das Makro umzuschreiben. Kann mir jemand helfen?
Vielen Dank in vorraus! Martin Wolf
Sub SetValue(ByVal datum As Date)
TextBox1.Value = Format(datum, "dd.mm.yyyy")
Label1.Caption = Format(Weekday(datum), "dddd")
'Label2.Caption = "KW:" & KWoche
SpinButton1.Value = CLng(datum)
End Sub
Private Sub CancelButton1_Click()
Unload Me
End Sub
Private Sub EndButton_Click()
ActiveCell.FormulaR1C1 = (CDate(SpinButton1.Value))
Unload Me
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
Private Sub SpinButton1_Change()
SetValue (CDate(SpinButton1.Value))
End Sub
Private Sub TextBox1_Enter()
MsgBox "Finger weg!"
End Sub
Private Sub ToDayButton_Click()
SetValue (Date)
End Sub