Dropdown mit Vorschlagsliste
08.06.2016 08:29:16
Rookie
ich bastle gerade eine Userform mit mehreren Combo- und Textboxen. Bis jetzt auch alles schön und gut. Um das ganze noch benutzerfreundlicher zu machen, hätte ich gerne eine Combobox, die dem User die Möglichkeit gibt, bei Eingabe der ersten Buchstaben aus einer Liste einen entsprechenden Begriff auszuwählen.
Ich habe bereits etwas zusammegebaut, und im grunde genommen funktioniert es auch schon sehr gut. Mein Problem ist jetzt folgendes: Ich möchte die Vorschläge für die Combobox aus einer Liste aus einem anderen Tabellenblatt ziehen. Ich kann aber nicht auf das andere Tabellenblatt zugreifen.
Ich steh gerade komplett auf dem Schlauch. Kann mir jemand sagen warum das mit dieser Methode nicht funktioniert, und was ich tun muss um auf das andere Tabellenblatt zugreifen zu könnnen.
Private Sub cboKunde_Change()
cboKunde.List = fncListe(cboKunde.Value)
cboKunde.DropDown
End Sub
Private Sub UserForm_Activate()
cboKunde.List = fncListe
End Sub
Function fncListe(Optional sText As String)
Dim arrTmp, n As Integer, i As Integer, arrListe()
arrTmp = ThisWorkbook.Worksheets("Listen").Range(Cells(1, 23), Cells(Rows.Count, 23).End(xlUp))
ReDim arrListe(1 To UBound(arrTmp))
For i = 1 To UBound(arrTmp)
If arrTmp(i, 1) Like "*" & sText & "*" Then
n = n + 1
arrListe(n) = arrTmp(i, 1)
End If
Next
ReDim Preserve arrListe(1 To n)
fncListe = arrListe
End Function
Vielen Dank für eure Hilfe!
Mit besten Grüßen
Stefan
Anzeige