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 handelt sich um einen Button mit dem ich eine bestimmte filterung abrufe...von diesen buttons gobts paar mehr .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