Listboxname über Schleife ansprechen
05.01.2007 17:55:04
Christoph
ich habe ein Problem mit dem Ansprechen von Listboxen über Namen.
Ich möchte über eine Schleife einen Listbox-Namen übergeben und diesen füllen. Dies klappt aber nicht, da ich Ihn nicht sauber definiere und einen Fehler 91 bekomme. Was mach ich falsch.
Über eine Antwort wäre ich dankbar.
Anbei ein kleiner Codebestandteil.
mfg
Christoph
Private Sub UserForm_Initialize()
Dim strAktBuchst As String
' Hier liegt das Problem. Object oder Variant funktioniert nicht.
Dim varCombBox As ?
shAUSW.Select
lngAnzDatSatz = cells(Rows.Count, cells(1, Columns.Count).End(xlToLeft).Column).End(xlUp).Row
' Hier wird eine Schleife durchlaufen, die die Namen der ListBox holt
For lngI = 1 To 12
strAktBuchst = shINIT.cells(lngI, 7)
' hier werden die Namen aus einem anderen Arbeitsblatt eingelesen. Der Wert erscheint.
varCombBox.name = shINIT.cells(lngI, 9)
' Hier erfolgt der Fehler 91, weil er mit dem übergebenen Namen nicht anfangen kann
With varCombBox
.List = suchDaten
.ListIndex = 0
End With
Next lngI
End Sub