Combobox - Eingabe Suchbegriff (nicht nur 1 Buchstabe)

Text auswählen, Zahl übernehmen - war mein Beitrag vom 14.11.2019 15:00:44.
Dazu hat mir Werner folgende Lösung gepostet:

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex > -1 Then
'Blattname anpassen
ActiveCell = Worksheets("Tabelle1").Columns("A") _
.Find(what:=Me.ComboBox1, _
LookIn:=xlValues, lookat:=xlWhole).Offset(, 1).Value
Unload Me
End If
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
'Blatt mit der Liste in Spalte A
'Blattname an deine Bedürfnisse anpassen
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.AddItem .Cells(i, "A")
Next i
End With
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel   _
_
As Boolean)
Cancel = True
UserForm1.Show
End Sub

3

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

• AW: Combobox - Eingabe Suchbegriff (nicht nur 1 Buchstabe)

  25.11.2019 21:52:44

  Werner
• so wie es aussieht....

  01.12.2019 09:29:36

  Werner
• AW: so wie es aussieht....

  01.12.2019 12:07:35

  Peter