Userform zur Suche von Namen

Hallo Excelfreunde,
ich habe eine Userform in der ich in einer Textbox Namen eingeben kann. In einer dazugehörigen Listbox werden alle Namen des Tabellenblattes angezeigt, die mit den gleichen Buchstaben wie der "gesuchte" Namen aus der Textbox beginnen.
Der gesuchte Namen soll nun nachdem man die Textbox verläßt (Textbox_Exit) in eine Zelle eingetragen werden, oder nachdem der gesuchte Namen in der Listbox angeklickt wird (Listbox_Change).
Ich bekomme es hin, dass das eine oder andere geht. Jedoch nicht wenn ich beide Lösungen (Textbox_exit und Listbox_Change) kombiniere.
Ich habe die Datei hinzugefügt, damit es besser verständlich ist. https://www.herber.de/bbs/user/42022.xls
Wie kann ich das Problem lösen?
Gruß
Dieterlem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
es gibt (weiterhin) nur zwei Möglichkeiten, die TextBox zu verlassen:
a) Schließen wird gedrückt - dann wird geschlossen.
b) Die Auswahl in der ListBox wird getroffen - dann tritt ListBox_Change ein
und der ausgewählte Wert wird in die Zelle geschrieben.
Bei Möglichkeit b) wäre es sinnlos, den ersten Wert aus der Ergebnisliste (Listbox)
in die Zelle zu schreiben - er würde beim ListBox_Change sofort mit dem ausgewählten Wert überschrieben.
Bleibt die Möglichkeit a). Dann tritt das Click-Ereignis des Schließen-Buttons ein.
Hier könnte man den ersten Listenwert in die Zelle übernehmen.
TextBox_Exit wird in keinem Fall gebraucht.
Probier mal (Code der UF):


Option Explicit
Private Sub cbuSchließen_Click()
If lboAuswahl.ListCount > 0 Then Sheets(1).Range("B1") = lboAuswahl.List(0)
Unload Me
End Sub
Private Sub lboAuswahl_Change()
Sheets(1).Range("B1") = lboAuswahl.Value
Unload Me
End Sub
Private Sub tboSuch_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim SuchName As String, rngF As Range, strF As String
lboAuswahl.Clear
SuchName = tboSuch & "*"
'   If SuchName = "" Then Exit Sub  ' Suchname kann nicht leer sein, ist mindestens "*"
With Sheets(1).Range("A1:A100")
Set rngF = .Find(What:=SuchName, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rngF Is Nothing Then
strF = rngF.Address
Do
lboAuswahl.AddItem rngF.Value
Set rngF = .FindNext(rngF)
Loop While Not rngF Is Nothing And rngF.Address  strF
End If
End With
If lboAuswahl.ListCount = 0 Then MsgBox "Der gesuchte Wert wurde nicht gefunden!"
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform zur Suche von Namen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread