VBA Prozedur Kombinationsfeld füllen

Hallo Leute,
ich verzweifele hier daheim. Nun habe ich schon im Selbststudium mit dem Buch "Einstieg in VBA mit Excel" alles versucht, aber ich komme absolut nicht weiter und hoffe hier auf euer Knowhow.
Ich habe eine Userform namens frmObjektAendern.
In dieser Userform gibt es ein Textfeld namens txtObjektSuchen.
Darunter ein Kombinationsfeld namens cmbObjektSuchen.
Zielstellung:
Durch Eingabe von Buchstaben/Suchbegriffen soll im Kombinationsfeld bereits mit der Suche gestartet werden und eine Liste als Ergebnis geliefert werden.
Ich benutze folgende Prozedur, nur klappt es nicht:

Private Sub txtObjektSuchen_Change()
' Liste mit Objekten füllen, die zum eingegebenen Text passen
ListeObjektefuellen Me
End Sub

'Liste mit Objekten füllen, die zu eingegebenen Text passen

Public Sub ListeObjektefuellen(frm As UserForm)
Dim Zeile As Integer
'Zugehörige Tabelle aktivieren
ThisWorkbook.Worksheets("Objektliste NSL").Activate
'Liste fuellen
frm.cmbObjektSuchen.Clear
Zeile = 5
Do While Cells(Zeile, 5).Value  ""
'Falls eingegebene Zeichen im Objektnamen vorkommen,
'dann diesen Objektnamen der Liste hinzufügen
If InStr(StrConv(Cells(Zeile, 5).Value, vbUpperCase), StrConv(frm.txtObjektSuchen.Text,  _
vbUpperCase)) > 0 Then
frm.cmbObjektSuchen.AddItem Cells(Zeile, 5).Value
End If
Zeile = Zeile + 1
Loop
'Falls Suchergebnis, ersten Eintrag anzeigen
If frm.cmbObjektSuchen.ListCount  0 Then
frm.cmbObjektSuchen.ListIndex = 0
End If
End Sub

Kann mir jemand sagen was ich falsch mache?Bitte?!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub txtObjektSuchen_Change() Dim rng As Range Dim strFirst As String cmbObjektSuchen.Clear 'Zugehörige Tabelle aktivieren With ThisWorkbook.Worksheets("Objektliste NSL") 'nix .Activate Set rng = .Columns(5).Find(What:=txtObjektSuchen, LookIn:=xlValues, LookAt:=xlPart, _ MatchCase:=False, After:=.Cells(1, 5)) If Not rng Is Nothing Then strFirst = rng.Address Do If rng.Row > 4 Then cmbObjektSuchen.AddItem rng Set rng = .Columns(5).FindNext(rng) Loop While Not rng Is Nothing And strFirst <> rng.Address End If 'Falls Suchergebnis, ersten Eintrag anzeigen If cmbObjektSuchen.ListCount <> 0 Then cmbObjektSuchen.ListIndex = 0 Set rng = Nothing End Sub

Private Sub txtObjektSuchen_Change() Dim rng As Range Dim strFirst As String cmbObjektSuchen.Clear 'Zugehörige Tabelle aktivieren With ThisWorkbook.Worksheets("Objektliste NSL") 'nix .Activate Set rng = .Columns(5).Find(What:=txtObjektSuchen, LookIn:=xlValues, LookAt:=xlPart, _ MatchCase:=False, After:=.Cells(1, 5)) If Not rng Is Nothing Then strFirst = rng.Address Do If rng.Row > 4 Then cmbObjektSuchen.AddItem rng Set rng = .Columns(5).FindNext(rng) Loop While Not rng Is Nothing And strFirst <> rng.Address End If End With 'Falls Suchergebnis, ersten Eintrag anzeigen If cmbObjektSuchen.ListCount <> 0 Then cmbObjektSuchen.ListIndex = 0 Set rng = Nothing End Sub

Hallo Sepp,
das ist natürlich die beste Idee, nur kann ich hier offenbar nur .xl* hochladen. Meine Datei hat jedoch den Typ
.xlsx bzw. xlsm
Kannst du mir sagen wie ich sie dann hochladen kann.
Ich versuche es mal so darzustellen. Spalte 5 soll im Kombinationsfeld beim Suchen erscheinen. Der erste Eintrag der Tabelle beginnt in Zeile 5.
Status ID Objekt-Nr.: Kd.-Nr. Objektname Straße Haus-nr.: PLZ
aktiv 8000 00656 13000 Warenberg Rialtoring 26 12589
aktiv 6000 00483 13001 Adler Dörpfeldstr. 73 12489
aktiv 7000 00816 13002 Californien Kurfürstendamm 35 10719
aktiv 2010 01267 13003 Fuchs Finkenschlag 36 12527
aktiv 2897 01266 13004 Wohnhaus Finkenschlag 88 12527
aktiv 4000 01278 13005 Wohnberg Studistr. 107 12683

Beliebteste Forumthreads (12 Monate)

VBA Prozedur Kombinationsfeld füllen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

58 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Prozedur Kombinationsfeld füllen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

58 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread