Uhrzeit mit Text einsetzen
walter
ich habe gerade dies für das einsetzen der Uhrzeit gefunden:
(von Hajo 2003)
Private Sub UserForm_Initialize()
Dim ByI As Byte
For ByI = 1 To 23 ' Stunden eintragen
ComboBox1.AddItem ByI
Next ByI
For ByI = 1 To 59 ' Minute eintragen
ComboBox2.AddItem ByI
Next ByI
ComboBox1.Value = Hour(Time)
ComboBox2.Value = Minute(Time)
End Sub
Private Sub CMD_Übernehmen_Click()
Range("L13") = CDate(ComboBox1.Value & ":" & ComboBox2.Value) ' Auswahl als Zeit in Zelle _
schreiben
Range("L13").NumberFormat = "hh:mm" ' Zellformat setzen
End Sub
funktioniert auch einwandfrei.Nun möchte ich aber vor der Stunde "bis" und hinter Minute "Uhr" eingesetzt haben, fummel die
ganze Zeit bekomme es nicht hin,
also Range("L13").NumberFormat = "bis " & "hh:mm" & " Uhr" ' Zellformat setzen
mfg walter mb