in einer Userform habe ich 6 Optionsbutton mit denen ich 3 unterschiedliche Filterungen vornehme, die ich einerseits auf den Bildschirm anzeigen lasse um dort wiederum Veränderungen vornehmen zukönnen und andererseits ausdrucken lasse.
Alles funktioniert im Grunde auch.
Meine Frage wäre, wie kann ich es erreichen das der Autofilter selbst stets ausgeblendet bleibt?
Beim drucken erledigt es sich.
Wenn ich im nachfolgenden Code am Schluß den Befehl "Selection.AutoFilter
" setze, geht alles wieder in die Grundeinstellung. :-(
Sub Anzeige_Gesamt()
Dim lLetzteT As Long
Set wksKreis = Worksheets("Kreis")
lLetzteT = IIf(wksKreis.Range("D65536") <> "", 65536, wksKreis.Range("D65536").End(xlUp).Row)
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
On Error Resume Next
wksKreis.ShowAllData
If ufAuswahl.ComboBox1.Value = "" Then
MsgBox ("Es muß schon eine Nummer ausgesucht werden,") & vbLf & " " _
& vbLf & "die dann übernommen werden soll !"
Exit Sub
Else
Call Unprot
wksKreis.Range("A1:G" & lLetzteT).AutoFilter Field:=5, Criteria1:=ufAuswahl.ComboBox1.Value
Call Prot
End If
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub
Kann mir wohl jemand helfen?
Gruß Korl