nach dem ich hier schon so viel von den Excel-Helfern profitiert habe, möchte ich Euch gern einen kleinen Code-Schnipsel vorstellen (ist für die Profis sicher nichts neues). Ich persönlich find es total genial.
Voraussetzung: ein großer Datenbestand, in dem man per per Autofilter einen oder mehrere Einträge suchen möchte, 1 Textfeld (Textbox1).
Mit dem Code wird der Autofilter ab dem 4. (in dem Textfeld) eingegebenen Buchstaben gesetzt. Mit jedem weiteren eingegebenen Buchstaben wird der Autofilter aktualisiert und das Ergebnis immer weiter eingegrenzt. Man kann also einfach drauf los schreiben, so lange, bis man das gewünschte Ergebnis sieht.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Eingabe As String
Eingabe = TextBox1.Text
If Len(TextBox1.Text) > 3 Then
Cancel = True
Selection.Autofilter Field:=27, Criteria1:="*" & Eingabe & "*", Operator:=xlOr, VisibleDropDown:=False
With ActiveWindow
.ScrollRow = 1
.ScrollColumn = 1
End With
TextBox1.Activate
End If
If KeyCode = 13 Then 'Wenn Return gedrückt wird ...
Ab hier wird der Autofilter gesetzt, wenn man die Return-Taste gedrückt hat. Der Code muss natürlich noch nach belieben angepasst werden.
Es ist schon wirklich genial, welche Funktionen Excel zu bieten hat. Leider ist es für den Laien (wie mich) doch recht schwierig.
Also, viel Spaß und vor allem vielen Dank an meine Helfer.
Gruß und ein schönes Wochenende
Stefan