Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Brocki vom 07.01.2021, 14:34 Options

Autofilter Hilfe

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

Antwort schreiben

Antwort 1 von fedjo vom 07.01.2021, 17:11 Options

Hallo Brocki,
sollen dann die restlichen Zeilen ausgeblendet werden?

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

Gruß
fedjo

Antwort 2 von Brocki vom 07.01.2021, 17:13 Options

Ja die anderen sollen ausgeblendet werden

Antwort 3 von fedjo vom 07.01.2021, 18:11 Options

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

Antwort 4 von Brocki vom 08.01.2021, 08:30 Options

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.

Antwort 5 von fedjo vom 08.01.2021, 11:29 Options

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

Antwort 6 von Brocki vom 08.01.2021, 11:48 Options

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

Antwort 7 von fedjo vom 08.01.2021, 12:09 Options

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

Antwort 8 von Brocki vom 08.01.2021, 12:51 Options

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

Antwort 9 von fedjo vom 08.01.2021, 13:12 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..