Hallo Marc,



ich wüsste derzeit nur einen praktikablen Weg. Wenn ein Blatt eine Gruppierung enthält, ist die Schaltfläche "Details anzeigen" bzw. "Details ausblenden" aktiviert, sonst nicht. Das kann man ja ausnutzen:





      

Sub Gruppierung_im_Blatt_pruefen()

If CommandBars.FindControl(ID:=462).Enabled Then

MsgBox "Das Blatt enthält Gruppierungen!"

Else

MsgBox "Das Blatt enthält keine Gruppierungen!"

End If

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß,



geschrieben von Matthias5 , 09.06.2005, 12:36 Uhr , 111 mal gelesen