Textbox weergeven als tijd, niet als kommagetal

[toverkamp]

Ik heb een formulier gemaakt waar je gegevens kan opvragen en opslaan. Als je het filiaalnummer opzoekt via een combobox komt er in een andere combobox automatisch alle kassanummers tevoorschijn. Wanneer je een kassanummer kiest komen er nog meer gegevens tevoorschijn in een textbox waaronder de tijd van melding. Deze wordt als een kommagetal weergegeven (0,35), terwijl dit 11:25 moet zijn.

de code in vba die ik gebruik is:

Private Sub storinggereedidnr_Change()
    Dim c As Range, filteredRange As Range
    With Sheets("reactietijden").Range("B4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:=storinggereedidnr.Value
        
    End With
       
    With Worksheets("reactietijden")
    Set datmelding = .Range("g5:g3000").Find(storinggereedidnr.Text, LookIn:=xlValues, lookat:=xlWhole)
    If Not datmelding Is Nothing Then
        storinggereeddatmelding.Text = .Range("b" & datmelding.Row)
        storinggereedtijdmelding.Text = .Range("e" & datmelding.Row)

End If
End With

End Sub

Het gaat hierbij om de textbox "storinggereedtijdmelding". ik heb deze code ook al een keer gebruikt en het volgende stukje toegevoegd:

storinggereedtijdmelding= Format(storinggereedtijdmelding, "[u:mm]")

Maar dan blijft het kommagetal nog steeds staan. Weet iemand wat er veranderd of toegevoegd moet worden?

 

[Spiderman]

Hoi toverkamp,

2 vragen:

1> Waar heb je de code 'storinggereedtijdmelding= Format(storinggereedtijdmelding, "[u:mm]")' staan?
2> Kun je je bestandje hier plaatsen of naar me mailen?

Suc6

 

[toverkamp]

Hoi toverkamp,

2 vragen:

1> Waar heb je de code 'storinggereedtijdmelding= Format(storinggereedtijdmelding, "[u:mm]")' staan?
2> Kun je je bestandje hier plaatsen of naar me mailen?

Suc6

Hallo spiderman,

ik heb de code bij de textbox storinggereeddatmelding staan:

Private Sub storinggereeddatmelding_Change()

storinggereedtijdmelding = Format(storinggereedtijdmelding, "[u:mm]")

With Worksheets("reactietijden")
    Set tijdmelding = .Range("b5:b3000").Find(storinggereeddatmelding.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not tijdmelding Is Nothing Then
        storinggereedtijdmelding.Text = .Range("e" & tijdmelding.Row)

End If
End With
End Sub

Ik heb het bestandje toegevoegd. Ik hoop dat het zo duidelijk is!

groeten, toverkamp

 

[Spiderman]

Hoi toverkamp,

Verander:

Private Sub storinggereedidnr_Change()

   
    Dim c As Range, filteredRange As Range
    With Sheets("reactietijden").Range("B4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:=storinggereedidnr.Value
        
    End With
    
    With Sheets("reactietijden").AutoFilter.Range
        On Error Resume Next
        Set filteredRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(5))
        storinggereedform.storinggereedtijdmelding.AddItem c
    Next
       
    
    With Worksheets("reactietijden")
    Set datmelding = .Range("g5:g3000").Find(storinggereedidnr.Text, LookIn:=xlValues, lookat:=xlWhole)
    If Not datmelding Is Nothing Then
        storinggereeddatmelding.Text = .Range("b" & datmelding.Row)

End If
End With

End Sub

Eens in:

Private Sub storinggereedidnr_Change()

   
    Dim c As Range, filteredRange As Range
    With Sheets("reactietijden").Range("B4").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=6, Criteria1:=storinggereedidnr.Value
        
    End With
    
    With Sheets("reactietijden").AutoFilter.Range
        On Error Resume Next
        Set filteredRange = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    For Each c In Intersect(filteredRange, Sheets("reactietijden").Columns(5))
        storinggereedform.storinggereedtijdmelding.AddItem c.[B][COLOR="Red"]Text[/COLOR][/B]
    Next
       
    
    With Worksheets("reactietijden")
    Set datmelding = .Range("g5:g3000").Find(storinggereedidnr.Text, LookIn:=xlValues, lookat:=xlWhole)
    If Not datmelding Is Nothing Then
        storinggereeddatmelding.Text = .Range("b" & datmelding.Row)

End If
End With

End Sub

Geeft dit het gewenste resultaat

 

[toverkamp]

Ja het werkt!! Bedankt:thumb:

 

[toverkamp]

Ik heb deze code een iets andere vorm gegeven, en nu geeft ie dus de tijd weer als kommagetal.

De code die ik nu gebruik is:

Private Sub storinggereedordernummer_Change()
Dim storinggereedfiliaalgegevens As Range

[B]storinggereedtijdmelding = Format(storinggereedtijdmelding, "[u:mm]")[/B]
With Worksheets("openstaande storingen")
    Set storinggereedfiliaalgegevens = .Range("h5:h30").Find(storinggereedordernummer.Text, LookIn:=xlValues, lookat:=xlWhole)
    If Not storinggereedfiliaalgegevens Is Nothing Then
        storinggereedfiliaalnummer.Text = .Range("f" & storinggereedfiliaalgegevens.Row)
        storinggereedkassanr.Text = .Range("g" & storinggereedfiliaalgegevens.Row)
        storinggereedidnummer.Text = .Range("ay" & storinggereedfiliaalgegevens.Row)
        storinggereeddatmelding.Text = .Range("g" & storinggereedfiliaalgegevens.Row)
       [B] storinggereedtijdmelding.Text = .Range("e" & storinggereedfiliaalgegevens.Row)[/B]       
        storinggereedsoortstoring.Text = .Range("aa" & storinggereedfiliaalgegevens.Row)
End If
End With
End Sub

het gaat om de vetgedrukte regels.
Mijn vraag is nu, of iemand een oplossing heeft om dit probleem op te lossen. Alvast bedankt!:thumb:

 

[Spiderman]

Hoi toverkamp,

Ik weet niet of dit het probleem is "[u:mm]" is geen juist format ":mm" wel.

Ik denk niet dat dat het probleem oplost. Als dat het geval is kun je ff een voorbeeld posten?