ich habe folgendes Problem. Ich möchte eine Listbox 2-spaltig füllen. Dazu habe ich unten stehenden Code erstellt. Nun habe ich das Problem, dass aber die Do LOOp Schleife zwar in der gewünschten Anzahl durchlaufen wird, allerdings wird die Listbox nicht gefüllt, also .ListCount = 0, so dass dann danach abgebrochen wird. Es wird angezeigt, dass die Eigenschaft List nicht aufgerufen werden konnte.
Würde mich freuen, wenn sich jemand den Code mal ansehen könnte.
Vielen Dank.
Gruß
Steffen
Private Sub Listbox()
Dim objWord As Object
Dim objBlatt As Worksheet
Dim intI As Integer
Dim strTitel As String
Dim strLänge As String
Dim strTitelliste As String
Dim iRow As Integer
Dim iloop As Integer
Dim anzahl_der_teilnehmer As Integer
'Tabelle1
Sheets("Tabelle1").Select
'Hier werden nun die belegten Zeilen gezählt und somit die Teilnehmerzahl ermittelt
anzahl_der_teilnehmer = WorksheetFunction.Count(Sheets("Tabelle").Range("B4:B65000").Value)
'Worksheets(1).Name
On Error Resume Next
'Listenfelddialog frmAuswahl aufrufen
With frmAuswahl
'Fenstertiteltext festlegen
.Caption = APP_NAME
'Eingabeaufforderungstext festlegen
.lblPrompt.Caption = "Wählen Sie etwas aus:"
'Listenfeld konfigurieren
With .lstListbox
'Zwei Spalten anlegen
.ColumnCount = 2
'Spaltenbreiten festlegen
.ColumnWidths = "-1;-1"
iloop = 0
iRow = 4
'Alle Spalten durchlaufen
Do
.List(.ListCount - 1, 1) = Cells(iRow, 1).Value
.List(.ListCount - 1, 2) = Cells(iRow, 2).Value
iRow = iRow + 1
iloop = iloop + 1
Loop While iloop < anzahl_der_teilnehmer
'Wenn Listenfeld leer ist, dann...
If .ListCount = 0 Then
'... Makro beenden
End
'Ansonsten...
Else
'... erstes Listenelement markieren
.ListIndex = 0
End If
End With
'Userform anzeigen
.Show
End With
End Sub