IF Makro, was stimmt nicht:
29.01.2004 10:40:59
Markus H.
Sub Autofilter aus()
On Error Resume Next
Dim x As Boolean
x = Application.AutoFilterMode
If x = True Then
Selection.AutoFilter
ActiveSheet.ShowAllData
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("A9").Select
Else
ActiveSheet.ShowAllData
ActiveSheet.Outline.ShowLevels RowLevels:=1
Range("A9").Select
End If
End Sub
will prüfen ob autofilter an ist, wenn ja soll der ausgeschaltet werden, und dann zeilen ausgeblended werden usw.
wenn er nicht an ist, sollen nur die zeilen ausgeblended werden..
vielen dank!
MfG
Markus
Anzeige