Hallo,
Wenn ich das richtig sehe, suchst du eher eine Autovervollständigen-Aktion. Die Abkürzungen können sicher variieren oder? z.B. schon bei S für Schokolade wenn dieses Wort das Einzige ist, das mit S beginnt.
Tipp: Nimm einfach eine Combobox anstelle der Textbox und fülle diese im Userform-Initialize-Ereignis mit Werten.
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Apfel"
ComboBox1.AddItem "Pflaume"
ComboBox1.AddItem "Schokoloade"
End Sub
Oder falls du das aus einer Tabelle füllen willst dann
Private Sub UserForm_Initialize()
For Each c In Sheets("Tabelle2").Range("B2:B5").Cells
ComboBox1.AddItem c
Next c
End Sub
Wenn du nun in die Combobox ein A eingiebst wird automatisch pfel hinten dran gehängt - vorrausgesetzt die MatchEntry-Eigenschaft steht auf fmMatchEntryComplete. Du brauchst nur noch Enter oder Tab drücken um das zu übernehmen. Oder Du bemühst den Dropdown Button und wählst aus der Liste aus.
Gruß Mr. K.
|