autofilter zurücksetzen
09.06.2014 00:12:16
Spenski
habe folgenden code :
Sub A()
Sheets("Daten").Select
Range("Tabelle4[[#Headers],[Artikel-Art]]").Select
ActiveSheet.ShowAllData
ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=4, Criteria1:= _
"Lager"
ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=5, Criteria1:= _
End Sub
es klappt soweit ganz gut es sei denn die tabelle ist NICHT gefiltert. dadurch ist ja der showalldata button ausgegraut und ich bekomm n laufzeitfehler.
gibts da einen code der vorher prüft ob gefiltert ist und nur dann showalldata macht wenn JA ?
gruss
christian