Userform tijd vanuit werksheet en datum sorteren

[whiskey0010]

Beste mensen,

Dit is mijn eerste post dus ik hoop dat het goed gaat.

Mijn probleem, via onderstaande code haal ik gegevens uit een werkmap. Cel A is de datum en word daarop ook goed gesorteerd. Cel B is een tijd welke er in decimalen in komt te staan.

Ik ben werkelijk al een week aan het Googlen en aan het harken om het goed te krijgen maar zonder succes. Wie weet raad?

BIJLAGE: Bekijk bijlage Trucking.xls

 

[snb]

Kun je svp even je bestandje erbij doen ?

 

[whiskey0010]

Ik heb hem er bij mijn eerste post bijgezet snb.

 

[whiskey0010]

Iemand een idee hoe ik dit voor elkaar krijg?

 

[snb]

Dit is voldoende.
Verwijder de code in de activate gebeurtenis:

Private Sub Userform_Initialize()
    With Sheets("trucking")
         .Cells(1).CurrentRegion.Sort .Cells(2, 2), , .Cells(2, 3), , , , , xlYes
         ListBox1.List = .Cells(1).CurrentRegion.Value
    End With
    
    With ListBox1
        .ColumnCount = 7
        .ColumnWidths = "60;60;90;60;60;60;30"
    End With
    For j = 1 To ListBox1.ListCount - 1
        ListBox1.List(j, 2) = FormatDateTime(ListBox1.List(j, 2), 4)
        ListBox1.List(j, 6) = FormatDateTime(ListBox1.List(j, 6), 4)
        ListBox1.List(j, 1) = FormatDateTime(ListBox1.List(j, 1), 2)
        ListBox1.List(j, 5) = FormatDateTime(ListBox1.List(j, 5), 2)
    Next
End Sub

 

[whiskey0010]

SNB je bent een topper Eindelijk kan ik verder.

 

[snb]

svp niet citeren (quoten) !

NB. Deze code is overbodig, want deze eigenschappen kun je gewoon bij het ontwerp instellen.

[I][COLOR="#0000CD"]With ListBox1
  .ColumnCount = 7
  .ColumnWidths = "60;60;90;60;60;60;30"
End With[/COLOR][/I]

 

[whiskey0010]

Bedankt SNB ik ga ermee stoeien. Een andere vraag je hebt mijn bestandje gezien en is het nu ook mogelijk om met een dubbel klik in de listbox gegevens die niet in de list box staan in een userform te krijgen om te editen?

Dus bv: In een werksheet komt een klant meerdere malen voor en gebruik ik per klant 30 kollomen met invoer vanuit een userform. In de listbox laat ik echter maar 10 kollomen zien. Ik wil nu door in de listbox op een bepaalde regel (klant) te dubbelklikken dat er een userform gestart word met alle 30 kollomen met inhoud erin om te kunnen editen en weer te kunnen opslaan in de juiste rij van de werksheet.

Enig idee hoe ik dit moet aanpakken?

EDIT: Laat maar even, ik heb een bestandje gevonden waar gelijk een zoekfunctie inzit. Helaas werkt ook hier de tijd notatie niet goed in

Bekijk bijlage trucking met zoeken.xlsm