habe Folgende Fragen.
Ich hoffe ihr könnt mir nochmal helfen?
sh. Code unten
1. Beim Autofilter verdecken mir die Dropdownpfeile teilweise die Überschriften.
Da ich nur eine Spalte filtern muss hab ich's wie unten gelöst.
Geht das eleganter?
2. Wenn ich beim Ein- und Ausschalten des Autofilters nicht eine Zelle [A1000] selecte,
kann ich in Format- und Symbolleiste einige Symbole nicht anklicken.
Select ist nicht so toll. Gibt es dafür eine andere Möglichkeit?
3. Ich verstehe nicht warum ich zum Ein- und Ausschalten den selben Code verwenden muss.
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Kann mir das mal Jemand erklären?
Hier der Code
Private Sub ToggleButton1_Click()
'*** Filter ***
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Filter Off"
ToggleButton1.BackColor = RGB(255, 0, 255)
'Filter einschalten
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = False
With [A3]
.AutoFilter Field:=1, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=2, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=3, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=4, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=5, Criteria1:=">0", Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=6, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=7, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=8, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=9, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=10, Operator:=xlAnd, visibledropdown:=False
.AutoFilter Field:=11, Operator:=xlAnd, visibledropdown:=False
End With
With ActiveSheet
.Shapes("CommandButton3").Visible = True
.Shapes("CommandButton1").Visible = True
.[A1000].Select
End With
ActiveWindow.ScrollRow = 3
Else
ToggleButton1.Caption = "Filter On"
ToggleButton1.BackColor = RGB(0, 255, 255)
'Filter ausschalten
With ActiveSheet
If .AutoFilterMode = True Then .AutoFilterMode = False
.Shapes("CommandButton3").Visible = False
.Shapes("CommandButton1").Visible = False
.[A1000].Select
End With
ActiveWindow.ScrollRow = 3
End If
End Sub
Danke vorab.Charly