Supportnet / Forum / Tabellenkalkulation
makro mit autofilter
Frage
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
Antwort 1 von fedjo
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