Gruppen
- Top Gruppen
- 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 Mash73 vom 15.08.2020, 15:40 Options
makro mit autofilter
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$J$10000").AutoFilter Field:=2, Criteria1:="<>#N/A"
ActiveSheet.Range("$A$1:$J$10000").AutoFilter Field:=3, Criteria1:="<>#N/A"
hallo,
ich habe ein Problem mit dem Autofilter.
ich möchte mir einfach alle anzeigen die ungleich #N/A sind.
Aber irgendwie macht Excel das nicht. Er setzt Filter aber das zu sehen ist leider nicht.
Hat jemand eine Idee?
Vielen Dank im Voraus für die Hilfe
Selection.AutoFilter
ActiveSheet.Range("$A$1:$J$10000").AutoFilter Field:=2, Criteria1:="<>#N/A"
ActiveSheet.Range("$A$1:$J$10000").AutoFilter Field:=3, Criteria1:="<>#N/A"
hallo,
ich habe ein Problem mit dem Autofilter.
ich möchte mir einfach alle anzeigen die ungleich #N/A sind.
Aber irgendwie macht Excel das nicht. Er setzt Filter aber das zu sehen ist leider nicht.
Hat jemand eine Idee?
Vielen Dank im Voraus für die Hilfe
Antwort 1 von fedjo vom 15.08.2020, 17:58 Options
Hallo Mash73,
den Code in Tabelle1 einfügen.
Es werden alle Daten gefiltert in Spalte "A" auser "#N/A".
Gruß
fedjo
Option Explicit
Sub Filter()
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Not Zelle.Text > "#N/A" Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
End Sub
Sub Filter_Aus()
Cells.Rows.EntireRow.Hidden = False
End Sub
den Code in Tabelle1 einfügen.
Es werden alle Daten gefiltert in Spalte "A" auser "#N/A".
Gruß
fedjo
Option Explicit
Sub Filter()
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Not Zelle.Text > "#N/A" Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
End Sub
Sub Filter_Aus()
Cells.Rows.EntireRow.Hidden = False
End Sub
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Ansicht AutoFilter
Sindy 04.03.2007 - 95 Hits - 2 Antworten
Makro Autofilter automatisch ausführen, Daten kopieren
nobody48 22.07.2007 - 29 Hits - 1 Antwort
Excel Autofilter
Vicewein 19.07.2007 - 36 Hits - 3 Antworten
Autofilter mit Makro setzen
Susanne2 07.04.2008 - 103 Hits - 1 Antwort
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..
Neue Einträge
