VBA Code mit Autofilter führ zu Problemen
17.01.2019 16:29:31
Frei
Ich bin ein VBA-Neuling und verzweifle mit einem Makro mit Autofilter
Das Makro soll ab einer bestimmten Zeile in einer bestimmten Spalte alle Zeilen mit dem Wert aus zelle G7 filtern und die darüberliegenden Zeilen sichtbar lassen.
Das Makro führt aber mehrheitlich dazu das die Zeilen 2-13 ausgeblendet werden obwohl der Filterbereich ab Zeile 14 einsetzen soll.
Könnt Ihr mir weiterhelfen?
Gruss Peter
Public Sub Autofilter_Name_Ein()
' FilterEin Makro
' Tastenkombination: Strg+f
ActiveSheet.Unprotect Password:="RBM" 'Blattschutz auheben
ActiveWindow.FreezePanes = False 'Ansicht frieren aufheben
Application.ScreenUpdating = False
ActiveSheet.UsedRange.AutoFilter 'Dieser Befehl hebt alle Autofilter auf
ActiveSheet.Range("A13").AutoFilter Field:=2, Criteria1:=[G7] 'Filterbereich = abA13, _
Autofilter wird in 2.Spalte des Filterbereichs gesetzt das Filterkriterium ist in zelle g7
Range("q14").Select 'Zelle zum fieren der Ansicht w?hlen
Application.ScreenUpdating = True
ActiveWindow.FreezePanes = True 'Ansicht frieren aktivieren
ActiveSheet.Protect Password:="RBM", DrawingObjects:=True, Contents:=True, Scenarios:=True ' _
_
_
_
_
_
Blattschutz aktivieren
Range("A14").Select
End Sub