Ich würde meiner Userform1 ein neues Textfeld zuweisen.
Dieses Textfeld soll automatisch vervollständigt werden.
Die Spalte "B" ab Zeile "1" aus dem Worksheets("Bearbeiten") gibt die Werte vor.
Man gibt einen Buchstaben oder eine Zahl ein- und wenn diese bereits dort zu finden sind - soll das entsprechende gefundene in das "Textfeld" übertragen werden- aber auch änderbar bleiben.-
Das können Texte und Zahlen sein. Hier mal eine kleine Auswahl...
Computer
Drucker
Lap-Top
Scanner
Smartphone
3-fach Verteiler
Telefon
USB-Kamera
7-fach verteiler
Zi. 12
R 047
Nun habe ich einiges Probiert- komme aber nicht weiter. Mein Buch VBA mit Excel hat zwar so was ähnliches- aber es läuft nicht.
Option Explicit
Private Sub TXT_Suchbegriff_KeyUp _
(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim intz As Integer
Dim intL As Integer
'Die Lösch-Tasten sollen deaktiviert sein
If KeyCode = 8 Or KeyCode = 46 Or KeyCode = 116 Then Exit Sub
With Worksheets("Bearbeiten")
For intz = 1 To .UsedRange.Rows.Count
If UCase(TXT_Suchbegriff.Value) = _
UCase(Left(.Cells(intz, 2).Value, Len(TXT_Suchbegriff.Value))) Then
intL = Len(TXT_Suchbegriff.Value)
TXT_Suchbegriff.Value = .Cells(intz, 2).Value
TXT_Suchbegriff.SelStart = intL
TXT_Suchbegriff.SelLength = Len(TXT_Suchbegriff.Text) - intL
Exit Sub
End If
Next intz
End With
End Sub