Formater ListBox i Excel med VBA

Måske:
Private Sub UserForm_Activate()
    For Each cc In Range("Sheet1!D1:M1").Cells
        ListBox1.AddItem Format(cc, "dd-mm-yy")
    Next cc
End Sub

Ser faktisk OK ud, med hensyn til Dato formatet. Men alt bliver vist i 1 kolonne i stedet for flere feks. som nendenstående:

01-10-2012    dag 1    timer 1    ælkadsf    13-10-2012    sdfg    ASD
01-10-2012    Dag 2    timer 2    dfg    14-10-2012    dsfg    asd
02-10-2012    Dag 3    timer 3    sdfg    15-10-2012    AD    asd

Altså lige som hvis det stod i regnearket. Det er forøvrigt heller ikke alle celler som indeholder datoer, så jeg får nok brug for flere forskellige typer formatering. Jeg ved på forhånd hvilken formatering, der skal være i hvilken kolonne, det vil være det samme hvergang, hvis det kan hjælpe noget.

Vil det så sige, at de øvrige data er placeret i de respektive kolonner i hver sin række - eller?

Ja, hvert "element/Tekst stump" i hver sin celle.

Eksempel:
Private Sub UserForm_activate()
    With Me.ListBox1
        .ColumnCount = 7
        .ColumnWidths = "40;30;30;40;50;60;70"  'Kolonne bredder i ListBox - Justeres
   
        For ræk = 1 To 5
            .AddItem Format(Cells(ræk, 4), "dd-mm-yy")                      'datofelt
            .List(.ListCount - 1, 1) = Cells(ræk, 5)
            .List(.ListCount - 1, 2) = Cells(ræk, 6)
            .List(.ListCount - 1, 3) = Cells(ræk, 7)
            .List(.ListCount - 1, 4) = Format(Cells(ræk, 8), "dd-mm-yy")    'datofelt
            .List(.ListCount - 1, 5) = Cells(ræk, 9)
            .List(.ListCount - 1, 6) = Cells(ræk, 10)
        Next ræk
    End With
End Sub

Hejsa

Den kan jeg ikke få til at virke, kan du uddrybe den lidt?

Mvh

Christian

Hej

Hvad er det, der ikke virker?

I den enkelte række i listboksen er der nu oprettet 7 kolonner, der får overført data fra regnearket.

Hejsa.

Den henter data forkert ind.

Jeg har løst problemet selv.

Dim Data As Variant
Dim Dn As Long
Dim Ac As Long
Dim Ray As Variant
Dim StartCelle as Range
Dim SlutCelle as Range

Data = Range(Sheet4.Range(StartCelle), Sheet4.Range(SlutCelle)).Value

ReDim Ray(1 To UBound(Data, 1), 1 To UBound(Data, 2))

On Error Resume Next

For Dn = 1 To UBound(Data, 1)
  For Ac = 1 To UBound(Data, 2)
        If Ac = 1 Then Data(Dn, Ac) = Format(Data(Dn, Ac), "dd-mm-yyyy")
        If Ac = 6 Then Data(Dn, Ac) = Format(Data(Dn, Ac), "hh:mm")
        If Ac = 7 Then Data(Dn, Ac) = Format(Data(Dn, Ac), "hh:mm")
        Ray(Dn, Ac) = Data(Dn, Ac)
    Next Ac
Next Dn

ListBox1.List = Data

Takker for forslagne :-)