Unbeantwortet_Autocomplete bei einer Textbox
25.04.2018 08:07:47
Ivii
Hallo Herber Team,
ich habe eine Frage zur autocomplete Möglichkeit einer Textbox.
LINK zur Demomappe: https://www.herber.de/bbs/user/121183.xlsm
Folgende Ausgangssituation. Ich habe eine userform1 bei der ich per Combobox einen Datensatz (wie z.B. Peter) auswählen kann und dieser per Button ("Bearbeiten") aus der Excelliste in die userform2 einpflegt wird.
Natürlich können die Felder auch manuell ausgefüllt werden, wenn beispielsweise ein neuer Datensatz angelegt werden soll. Damit dies benutzerfreundlicher wird, habe ich vor die autocomplete Möglichkeit der Textbox zu nutzen und diese auf Basis bereits angelegter Datensätze aus der Excelliste auszuführen. Das bedeutet, dass ich nicht bspw. jedes Mal den Namen des Verfassers eintragen will, sondern wenn ich "P" eintippe, das Programm überprüft welche "P" Wörter in der jeweiligen Spalte in Excel sind und das Wort auf "Peter" ergänzt.
Ich habe natürlich ausgiebig recherchiert und ja ich habe bereits erfahren das eine Combobox sinnvoller wäre. Dennoch müsste die Möglichkeit mit einer Textbox ebenfalls realisierbar sein oder?
Ich habe aus dem Internet folgenden Quellcode für mich angepasst jedoch komme ich immer wieder auf den gleichen Fehler und kann mir diesen nicht erklären.
Anbei der Code:
Option Explicit
Dim Eins As Range
Dim Zwei As Integer
Private Sub SzenarioID_Change()
Dim Drei As String
Dim Vier As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Vier = Me.SzenarioID.Text
Eins.Value = Me.SzenarioID.Text
Drei = Eins.AutoComplete(Me.SzenarioID.Text)
If Len(Drei) > 0 Then
With Me.SzenarioID
.Text = Drei
.SelStart = Len(Vier)
.SelLength = Len(Drei)
End With
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Private Sub SzenarioID_Enter()
Set Eins = Sheets(4).Range("B100000").End(xlUp).Offset(1, 0)
End Sub
Private Sub SzenarioID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Eins.ClearContents
End Sub
Demnach habe ich ja scheinbar eine der verwendeten Dimensionen nicht richtig benannt oder? Doch komme ich nicht darauf wo der Fehler liegt. Kann mir jemand bitte sagen was ich falsch mache?