Listbox mit 3. Eintrag füllen :

[excelri]

Danke  hat sich erledigt , habe es hinbekommen!


Hallo zusammen, in der Userform wird eine Listbox mit zwei Einträge gefüllt. Das funktioniert auch .
Nun möchte ich gern einen 3.Eintrag dazu . Ich bekomme es nicht hin. Habe die Formel aus einen Forum.

Folgende Eintrag steht in der Listbox:

Nummer   Name   

ich möchte gern das es dann so aussieht:

Nummer   Name   Datum




Das ist mein Code:

'Listboxen füllen
Private Sub UserForm_Initialize()
Dim iZeile As Long
Dim AnzArr As Long
' Reservierung
ListBox1.ColumnCount = 2

With Worksheets("Datenkal")
    ' Länge Array bestimmen
    For iZeile = 2 To .Range("A65536").End(xlUp).Row
        If .Cells(iZeile, 1) > 0 Then AnzArr = AnzArr + 1
    Next iZeile
    
    ' Array dimensionieren
    ReDim Arr(AnzArr, 1)
    
    ' Variable zurücksetzen (Recycling)
    AnzArr = 0
    
    ' Array abfüllen
    For iZeile = 2 To .Range("A65536").End(xlUp).Row
        If Left(.Cells(iZeile, 1), 2) = "AR" Then
            Arr(AnzArr, 0) = .Cells(iZeile, 1)
            Arr(AnzArr, 1) = .Cells(iZeile, 3)
            AnzArr = AnzArr + 1
        End If
    Next iZeile
    
    ' Array an Listbox übergeben
    ListBox1.List = Arr
    
End With
end sub


Danke Werner

[michel34497]

Hallo!
OHNE Test!
Füge doch in

Code:

          Arr(AnzArr, 0) = .Cells(iZeile, 1)
           Arr(AnzArr, 1) = .Cells(iZeile, 3)

noch eine Zeile ein

Code:

Arr(AnzArr, 2) = .Cells(iZeile, 4)

der rest muß noch angepasst werden