Wie aktiviert man die Autovervollständigung für ein Textfeld beim Tippen in Excel?
Standardmäßig merkt sich Excel die Inhalte, die Sie in Zellen des aktuellen Arbeitsblatts eingeben, und vervollständigt sie automatisch, sobald Sie beim nächsten Mal einen passenden Anfangsbuchstaben in eine neue Zelle eingeben. Doch wie können Sie alle Inhalte eines Arbeitsblatts für die Autovervollständigung in einem Textfeld (ActiveX-Steuerelement) nutzen? Dieser Artikel stellt eine VBA-Methode vor, mit der das Textfeld beim Eingeben eines Anfangsbuchstabens automatisch Vorschläge anzeigt.
Autovervollständigung eines Textfelds beim Tippen mithilfe von VBA-Code
Autovervollständigung eines Textfelds beim Tippen mithilfe von VBA-Code
Gehen Sie wie folgt vor, um ein Textfeld beim Eingeben eines Anfangsbuchstabens automatisch vervollständigen zu lassen.
1. Fügen Sie ein Textfeld ein, indem Sie auf Entwickler > Einfügen > Textfeld (ActiveX-Steuerelement) klicken. Siehe Screenshot:
2. Klicken Sie anschließend auf Entwickler > Einfügen > Listenfeld (ActiveX-Steuerelement), um ein Listenfeld in das aktuelle Arbeitsblatt einzufügen. Siehe Screenshot:
3. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen, wie im folgenden Screenshot gezeigt.
4. Fügen Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Codefenster ein. Klicken Sie anschließend auf Extras > Verweise, und aktivieren Sie im Dialogfeld Verweise – VBAProject die Option Microsoft Scripting Runtime. Siehe Screenshot:
VBA-Code: Autovervollständigung eines Textfelds beim Tippen
Dim xRg As Range
Dim xDic As New Dictionary
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Me.ListBox1.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xVal As String
On Error Resume Next
If IsNumeric(Target.Value) Then
xVal = Str(Target.Value)
Else
xVal = Target.Value
End If
If xVal <> "" Then
If Not xDic.Exists(xVal) Then
xDic.Add xVal, xVal
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ListBox1.Visible = False
End Sub
Private Sub Worksheet_Activate()
Dim I As Long
Dim xStr As String
On Error Resume Next
If xRg Is Nothing Then
Set xRg = ActiveSheet.UsedRange
End If
Me.ListBox1.Visible = False
xDic.RemoveAll
With Me.ListBox1
For I = 1 To xRg.Count
xStr = xRg(I).Value
If xStr <> "" Then
.AddItem xStr
If Not xDic.Exists(xStr) Then
xDic.Add xStr, xStr
End If
End If
Next
End With
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With Me.ListBox1
.Top = Me.TextBox1.Top
.Left = Me.TextBox1.Left + Me.TextBox1.Width
.Width = Me.TextBox1.Width
End With
TextBoxVal Me.TextBox1.Object
End Sub
Sub TextBoxVal(xTextBox As Variant)
Dim I As Long
Dim xStr As String
On Error Resume Next
Application.ScreenUpdating = False
If xRg Is Nothing Then Exit Sub
Me.ListBox1.Clear
xStr = xTextBox.Value
If xStr = "" Then
Me.ListBox1.Visible = False
Application.EnableEvents = True
Exit Sub
End If
For I = 0 To UBound(xDic.Items)
If Left(xDic.Items(I), Len(xStr)) = xStr Then
Me.ListBox1.AddItem xDic.Items(I)
End If
Next
Me.ListBox1.Visible = True
If Me.ListBox1.ListCount > 0 Then
With xTextBox
.Value = Me.ListBox1.List(0)
.SelStart = Len(xStr)
.SelLength = Len(Me.ListBox1.List(0))
End With
End If
Me.ListBox1.Activate
Me.ListBox1.Selected(0) = True
Application.ScreenUpdating = True
End Sub
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Me.TextBox1.Value = Me.ListBox1.Value
End If
End Sub
Hinweis: Im Code sind ListBox1 und Textbox1 die Namen des Listenfelds und des Textfelds, die Sie in Ihr Arbeitsblatt eingefügt haben.
5. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
6. Deaktivieren Sie den Entwurfsmodus, indem Sie im Arbeitsblatt auf Entwickler > Entwurfsmodus klicken.
7. Wechseln Sie nun zu einem anderen Arbeitsblatt und kehren Sie danach zum vorherigen Arbeitsblatt zurück, um den VBA-Code zu aktivieren.
Ab sofort werden beim Eingeben eines Anfangsbuchstabens in das Textfeld alle im Arbeitsblatt vorhandenen Texte, die mit diesem Buchstaben beginnen, automatisch im Listenfeld rechts daneben angezeigt. Doppelklicken Sie einfach auf den gewünschten Eintrag, um ihn direkt in das Textfeld einzufügen. Siehe Screenshot:
Hinweis: Sie können die Pfeil-nach-oben- oder Pfeil-nach-unten-Taste verwenden, um zwischen allen Vorschlägen im Listenfeld zu navigieren, und anschließend die Eingabetaste drücken, um den gewünschten Eintrag in das Textfeld zu übernehmen.
Verwandte Artikel:
- Wie kann man erreichen, dass der Text eines Textfelds automatisch ausgewählt wird, sobald es in Excel ausgewählt ist?
- Wie löscht man den Inhalt eines Textfelds beim Anklicken in Excel?
- Wie verknüpft man den Inhalt mehrerer Zellen zu einem einzigen Textfeld in Excel?
- Wie deaktiviert man die Bearbeitung in einem Textfeld, um Benutzereingaben in Excel zu unterbinden?
- Wie formatiert man ein Textfeld in Excel als Prozentwert?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins