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