im folgenden Codes möchte ich den Name von CommandButtons auslesen und den Index in den CommandButton Name für eine Schleife in einer Sub sondern keinen Click Event verwenden(denn der Name der CommandButtons in meinem Fall besteht aus "CommandButton" und einem sequenziellem Index ). Mit Hilfe dieser Schleife können alle CommandButtons automatisch ausgeblendet werden, sobald eine der beiden Zellen keine Inhalte beinhalten.
Das Problem ist als ich das Makro ausführe, tut die Schleife gar nicht. Weiß jemand wie mein Wunsch realisiert werden kann?
Sub Template_Button_Ein_Ausblenden()
Dim zelleZeile As Integer
Dim buttonIndex As Integer
zelleZeile = 2
buttonIndex = 2
Do While zelleZeile "" And Cells(zelleZeile, 3) "" Then
UserForm1.ActiveControl.Pages(ActiveControl.Value).ActiveControl.Name.Visible = _
True
Else
UserForm1.ActiveControl.Pages(ActiveControl.Value).ActiveControl.Name.Visible = _
False
End If
zelleZeile = zelleZeile + 1
buttonIndex = buttonIndex + 1
Loop
End Sub