Office: VBA Autofilter mit Zahlen!

Hallo

Ich habe eine eine Tabelle wo die Spalte c mit 4 Stellingen zahlen befüllt ist. Über die Eingabe in einer textbox soll bei der ersten Zahl gefiltert werden. Also textbox Eingabe zum Beispiel 3 alles filtern in Spalte C wo die drei drin ist usw. Bis die vierstellige Zahl ausgeschrieben ist.

Mit Text Filtern klappt das ohne Probleme, nur das filtern mit Zahlen funktioniert nicht.

Habe im Netz schon einige Beispiele ausprobiert, nichts hat geklappt.

Könnt ihr mir da weiterhelfen?

 

Du wandelst die Eingabe nicht in eine Zahl um. Zu Deinem Code kann ich nur vermutungen anstelen, was wohl daran liegt das ich nicht auf fremde Rechner schaue..

 

Hallo Steazo,

warum willst du die Standardfunktion Autofilter per VBA nachbauen? Das ergibt keinen Vorteil.

 

@Klaus-Dieter

das kann durchaus Sinn machen, wenn eine Tabelle sehr viele Spalten hat --> weit rechts suchen muss und man aber einen bestimmten Teil der Spalten im Fokus/Bildschirm haben will.

Da wäre der Lösungsweg allerdings --> ins Ribbon einbauen.

Gruß Uwe

 

Vielleicht mal das Beispiel für die Suche mehrere Bergiffe dazu.

Gruß Uwe

 

Das ist wohl eher ein an den Haaren herbeigezogenes Argument, zumal der Fragesteller in Spalte C filtern möchte...
Außerdem löst es nicht das eigentliche Problem, welches man aber ohne bereitgestellte Beispielmappe nicht nachvollziehen kann.

---

 

Hallo,
stimmt , ich könnte es druch den normalen Autofilter auch erreichen.
Mir gefällt diese Variante über VBA besser.
Vielleicht könntet Ihr mir denn Fehler an Hand meiner Beispieldatei aufzeigen.

Danke euch

 

Hallo,

Sollte für deine Zwecke ausreichen.

Gruß Uwe

 

Hi,

ich würde nicht das Change-Ereignis der TextBox für das Filtern benutzen sondern das KeyDown-Ereignis. Wenn du die komplette Eingabe gemacht hast dann drücke Enter und der Filter wird entsprechend gesetzt:

Code:

' Code für das Filtern in Abhängigkeit der Auswahl in der ComboBox
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim varSuche As Variant '<== als Variant da Inhalt sowohl Text als auch Ziffern sein kann
    ' Enter wurde gedrückt
    If KeyCode = 13 Then
        If Range("AC1").Value = "Falsch" Then
            MsgBox "Erst unter 'Suche in Spalte' die Spalte wo gesucht werden soll, eingeben !!!", vbExclamation
            Exit Sub
        End If
        ' Textbox ist leer oder wird geleert dann Filter zurücksetzen
        If TextBox1 = "" Then
            ActiveSheet.ShowAllData
        Else
            ' Filterung in der ausgewählten Spalte
            Select Case SpalteBox1
                Case "A"
                    varSuche = TextBox1
                    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Criteria1:="=*" & varSuche & "*"
                Case "B"
                    varSuche = TextBox1
                    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:="=*" & varSuche & "*"
                Case "C"
                    varSuche = CLng(TextBox1) '<== TextBox-Inhalt muss erst in eine Zahl umgewandelt werden
                    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=3, Criteria1:=varSuche
            End Select
        End If
    End If
End Sub

---

 

Das ist auch ein Weg.
Da kann man aber, wenn es um vollständige Begriffe vielleicht zur Lösung in #5 greifen und kann mit Komma als Trenner nach mehreren Begriffen filtern.
Aber das wollte er wohl so nicht.

Gruß Uwe

 

Ich hab grad gesehen, dass es Spalten mit Zahlen gibt. Ändere diese Prozedur im Modul1 so:

Code:

Option Explicit

Sub filtern()
    Dim Suche, iSpalte&: Suche = Tabelle1.TextBox1: iSpalte = Tabelle1.SpalteBox1.ListIndex + 1
    If Tabelle1.SpalteBox1.ListIndex = -1 Then Exit Sub
    With Tabelle1.ListObjects(1).Range
        .AutoFilter
        If iSpalte < 3 Or iSpalte > 6 Then
            .AutoFilter Field:=iSpalte, Criteria1:="*" & Suche & "*"
        Else
            If Suche <> "" Then .AutoFilter Field:=iSpalte, Criteria1:=CDbl(Suche)
        End If
    End With
End Sub

Gruß Uwe

 

Hallo.
Hat beides von euch geklappt.
Dankeschön.

Gruß Christian