Spezialfilter VBA
13.05.2005 15:54:28
sebastian
habe in einem sheet im makro mit einem spezialfilter laufen. ein button soll alle werte wieder einblenden (bei bedarf), wenn werte zuvor gefiltert wurden. zunächst soll geprüft werden, ob alle daten in dem sheet eingeblendet sind. ist das der fall, soll eine msgbox erscheinen, die den user darauf hinweist.
folgendes habe ich geschrieben, was aber nicht funktioniert:
Private Sub CommandButton1_Click()
If ActiveSheet.ShowAllData Is True Then
MsgBox ("Es werden bereits alle Werte angezeigt")
Else
ActiveSheet.ShowAllData
End Sub
Was muss ich ändern?
Vielen Dank und Gruß
Sebastian