Option Explicit
 
Sub test()
Dim Stat() As String: Dim i As Long
' <commentar>
    ' KnopfArt muss bei ToggleButton geändert werden
    ' auf dem Sheet wo ich teste, habe ich nur CommandButtons
    Const KnopfArt As String = "CommandButton"
' </commentar>
Const zellein As String = "Zellen einblenden"
Const zellaus As String = "Zellen ausblenden"
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Ich merke mir ers ma wie's vorher war:
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ReDim Stat(Sheet1.OLEObjects.Count)
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 To Sheet1.OLEObjects.Count
    ' Hier muss 'ne Ausnahme für den 13. Button rein, sonnst knallts später
    If InStr(Sheet1.OLEObjects(i).progID, KnopfArt) Then
        Stat(i) = Sheet1.OLEObjects(i).Object.Caption
    End If
Next i
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nun mache ich alle ein
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 To Sheet1.OLEObjects.Count
    If Stat(i) = zellaus Then
        Sheet1.OLEObjects(i).Object = True    ' löst das Klicken aus
    End If
Next i
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nun mache ich alle aus
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 To Sheet1.OLEObjects.Count
    If Stat(i) = zellein Then
        Sheet1.OLEObjects(i).Object = True ' löst das Klicken aus
    End If
Next i
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nun setze ich alle zurück in den originalzustand
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 To Sheet1.OLEObjects.Count
    If Stat(i) = Sheet1.OLEObjects(i).Object.Caption Then
        Sheet1.OLEObjects(i).Object = True ' löst das Klicken aus
    End If
Next i
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Nun kehre ich die Auswahl um
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 To Sheet1.OLEObjects.Count
    Sheet1.OLEObjects(i).Object = True ' löst das Klicken aus
Next i
End Sub