Intellisense Eingabe in Textbox
05.09.2005 17:25:36
Reinhard
die Anfrage https://www.herber.de/forum/messages/662665.html wurde mit Excel gelöst, aber ich kriege meine vba-Lösung nicht zum Laufen.
In einer Textbox gibt man ein Wort ein, bei jedem Buchstaben wird die Anzeige (Ausgabe möglicher Wörter die mit dem Teilstring der Eingabe anfangen) in einer Listbox kleiner.
1. Fehler) Der Debugger markiert die Zeile:
ListBox1.List(zähl) = Worksheets("Tabelle2").Cells(n, 2)
mit Fehler 70, Zugriff verweigert o.ä.
2. Fehler) ListBox1.Clear klappt nicht, weiß jetzt grad nicht den Fehler/die Fehlernummer
Die Datei: https://www.herber.de/bbs/user/26304.xls
Der Code:
Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim zähl As Long, n As Long, vergl As String, zei As Long
zei = Worksheets("Tabelle2").Range("a65536").End(xlUp).Row
Select Case Len(TextBox1)
Case Is = 0
ListBox1.ListFillRange = "Tabelle2!B1:B" & zei
Case Else
'ListBox1.Clear
vergl = TextBox1 & Chr(KeyAscii)
MsgBox vergl
For n = 1 To zei
If InStr(Worksheets("Tabelle2").Cells(n, 1), vergl) = 1 Then
ListBox1.List(zähl) = Worksheets("Tabelle2").Cells(n, 2)
zähl = zähl + 1
End If
Next n
End Select
End Sub
Gruß
Reinhard