ich sitze jetzt schon einige Tage an einem Problem, Internet war bisher auch nicht erfolgreich.
Wäre nett wenn jemand von euch mir helfen könnte.
Ich habe in einem Tabellenblatt 6 Spalten. Ein ToggleButton soll einen Autofilter für die erste Spalte aktivieren. Danach will ich mit einem zweiten ToggleButton die zweite Spalte durchsuchen, usw. Das Ziel ist es, dass bei der 2,3,4ten Suche immer die Ergebnisse aus den vorherigen Filtern bestehen bleibt und nur aus diesen Ergebnissen weitergefiltert wird. Bis jetzt springt bei Anwahl des zweiten ToggleButtons das Filtern wieder auf alles Ergebnisse und nicht auf die, die schon vorher gefiltert wurden.
Bis jetzt habe ich:
ToggleButton1:
Private Sub ToggleButton1_Click()
With ToggleButton1
.Caption = "Nummern-Suche"
If Me.ToggleButton1.Value = True Then
Call Suchen
Else
Call Suchen_aus
End If
End With
End Sub
ToggleButton2:
Private Sub ToggleButton2_Click()
With ToggleButton2
.Caption = "Länder-Suche"
If Me.ToggleButton2.Value = True Then
Call Suchen1
Else
Call Suchen_aus1
End If
End With
End Sub
Makro Suchen:
Sub Suchen()
Dim w1 As Variant
w1 = Application.InputBox("Bitte geben Sie die Bestellnummer ein.", "Nummern-Suche", , Type:= _
_
1 + 2)
Range("A2:A10000").Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$A$10000").AutoFilter Field:=1, Criteria1:=w1, _
Operator:=xlAnd
End Sub
Makro Suchen_aus:
Sub Suchen_aus()
Range("A2:A10000").Select
Selection.AutoFilter
End Sub
Suchen1 und Suchen_aus1 sind im Grunde dasselbe wie oben, nur habe ich statt "w1" "w2" geschrieben.
Wäre wirklich dankbar für jeden Tipp.
Viele Grüße