Tijd in ComboBox

[CorVerm]

Beste mensen,

In een formulier heb ik een ComboBox gestopt. Middels die ComboBox selecteer ik een tijd, maar in de box en uiteindelijk ook in de sheet verschijnt er een decimaal getal.

ActiveCell.Offset(1, 9).Value = ComboBox2.Text

is de code die ik nu gebruik.

Wie heeft de oplossing voor mij?

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
ActiveCell.Offset(1, 9).Value = Format(ComboBox2.Text, "hh:mm")
End Sub

2 methodes om de combobox te vullen

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 0 To 24
ComboBox1.AddItem ((i) & ":00")
ComboBox1.AddItem ((i) & ":15")
ComboBox1.AddItem ((i) & ":30")
ComboBox1.ListIndex = 0
Next
End Sub

Private Sub UserForm_Initialize()
Dim vaTime As Variant
vaTime = VBA.Array("00:00", "00:30", "01:00")
With Me.ComboBox1
.Clear
.List = vaTime
.ListIndex = -1
End With
End Sub

 

[CorVerm]

Rudi,

Ik plaats even de gehele code omdat jouw oplossing niet werkt, tenzij ik iets verkeerd doe. Op VBA gebied ben ik een amateur dus als de code niet helemaal zuiver is dan..... In ieder geval snap ik wat er staat.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Data zm").Select
Range("A" & CStr(Rows.Count)).End(xlUp).Select
ActiveCell.Offset(1, 0).Value = TextBox1.Text
ActiveCell.Offset(1, 1).Value = TextBox2.Text
ActiveCell.Offset(1, 2).Value = TextBox3.Text
ActiveCell.Offset(1, 3).Value = TextBox4.Text
ActiveCell.Offset(1, 4).Value = TextBox5.Text
ActiveCell.Offset(1, 5).Value = TextBox13.Text
ActiveCell.Offset(1, 6).Value = TextBox14.Text
ActiveCell.Offset(1, 7).Value = TextBox6.Text
ActiveCell.Offset(1, 8).Value = TextBox7.Text
ActiveCell.Offset(1, 9).Value = Format(ComboBox2.Text, "hh:mm")

ActiveCell.Offset(1, 10).Value = ComboBox1.Text
ActiveCell.Offset(1, 11).Value = TextBox9.Text

 Unload Me
    Application.ScreenUpdating = True
    
End Sub

Overigens zeer bedankt voor de andere codes. Ik ga er mee aan de slag.

 

[Warme bakkertje]

Cor, Ik heb het eventjes in een voorbeeldje gegoten zodat je iets hebt om te vergelijken

 

[CorVerm]

Rudi,
Heel erg bedankt voor je voorbeeld, het is nu een stuk duidelijker.
Het is helemaal goed gekomen.
Bedankt. :thumb: