Gruppe
Dialog
Problem
2 von 4 CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden.
StandardModule: Modul1
Sub CmdsEnabled()
Dim iCounter As Integer
For iCounter = 2 To 3
ActiveSheet.OLEObjects("CommandButton" & iCounter) _
.Object.Enabled = False
Next iCounter
End Sub