Autofilter Hilfe

Question

Hallo zusammen

Wer kann mir Helfen. Ich versuche das mir der Autofilter mehrere Zeillen Seperat Sortiert habe was versucht aber geht nicht ganz oder bin ich auf dem Richtigen weg?

Wäre super wenn mir jemand Helfen kann

Code:
Sub Filtern()
'
' Filtern Makro
'

'
ActiveSheet.Range("$C$4:$C$15").AutoFilter Field:=1, Criteria1:="Personal"
ActiveSheet.Range("$C$20:$C$61").AutoFilter Field:=1, Criteria1:="IVR"
ActiveSheet.Range("$C$66:$C$107").AutoFilter Field:=1, Criteria1:="RAV"
End Sub

Answer 1

Hallo Brocki,
sollen dann die restlichen Zeilen ausgeblendet werden?

ActiveSheet.Range("$C$20:$C$61").AutoFilter Field:=1, Criteria1:="IVR"
ActiveSheet.Range("$C$66:$C$107").AutoFilter Field:=1, Criteria1:="RAV

Gruß
fedjo

Answer 2

Ja die anderen sollen ausgeblendet werden

Answer 3

Hallo Brocki

Sub Autofilter()
ActiveSheet.Range("$C$20:$C$61").Autofilter Field:=1, Criteria1:="IVR", VisibleDropDown:=False
Rows("1:19").EntireRow.Hidden = True
Rows("62:65536").EntireRow.Hidden = True
End Sub

Sub Aus()
If ActiveSheet.AutoFilterMode = True Then
Selection.Autofilter
Cells.EntireRow.Hidden = False
Else
Exit Sub
End If
End Sub

Gruß
fedjo

Answer 4

danke viel mals aber ich brauche es noch das es auf mehrere bereiche geht.

Das heisst von der Zelle C20 bis C61 mit dem Wort IVR und C66 bis C107 mit dem Wort RAV.

Answer 5

Hallo Brocki ,

Option Explicit
Sub Autofilter()
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
Rows("1:19").EntireRow.Hidden = True
Rows("62:65").EntireRow.Hidden = True
Rows("108:65536").EntireRow.Hidden = True
For Each Zelle In Range("C20:C61,C66:C107")
If Not Zelle.Text = "IVR" And Not Zelle.Text = "RAV" Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
End Sub

Sub Aus()
Cells.EntireRow.Hidden = False
End Sub

Gruß
fedjo

Answer 6

Super danke klapt. wie kann ich aber noch mehr bereiche angeben also noch C5 bis C15 mit Personal und so weiter?

Answer 7

Bereich erweitern ("C20:C61,C66:C107, C150:160")

For Each Zelle In Range("C20:C61,C66:C107")

Filtertext hinzufügen mit And
If Not Zelle.Text = "IVR" And Not Zelle.Text = "RAV" Then

Zeilen die nicht benötigt werden ausblenden.
Rows("108:65536").EntireRow.Hidden = True

Answer 8

Kannst du mir bitte noch schnell erklären was das Rows genau ist

Also da steht Rows("108:65536").EntireRow.Hidden = True

Für was stehen die Zahlen 108:65536

Danke

Answer 9

Also da steht Rows("108:65536").EntireRow.Hidden = True
Zeilen zwischen 108 und 65536 (Tabellenende) werden ausgeblendet.