Sheets("Datenblatt").Select
Application.CutCopyMode = False
Range("B8").Select
ActiveSheet.ShowAllData
Wenn nun das gewählte Filterkriterium zu keiner Filterung geführt hat, erzeugt der Befehl ActiveSheet.ShowAllData
einen Fehler. Wie kann ich das verhindern ?