VBA Variable als CommandButton #

Question

Ich schreibe etwas Code um und dachte darüber nach, aber es scheint nicht zu funktionieren, dass meine Syntax richtig ist. Ich möchte eine for-Schleife verwenden, um ein Array von Befehlsschaltflächen zu füllen und ihre Sichtbarkeit zu steuern. Ich brauche nur Hilfe mit meiner Syntax, um zu definieren, welche CommandButton Nummer ich in der Schleife arbeite. Zum Beispiel CommandButton1, CommandButton2 usw.

Public Sub LoadLots(sName As String, streamLots() As String) 
    Label1.Caption = sName 
    For o = 1 To 9 
     If streamLots(o) <> "" Then 
      CommandButton& o &.Caption = streamLots(o) 
      CommandButton& o & .Visable = True 
     Else 
      CommandButton& o & .Visable = False 
     End If 
    Next 
End Sub 

Answer 1

Verwenden Sie die Userform.Controls Sammlung mit den Befehlsschaltflächen namentlich referenzieren.

Public Sub LoadLots(sName As String, streamLots() As String) 
    Dim btn As MSForms.CommandButton 
    Label1.Caption = sName 
    For o = 1 To 9 
     Set btn = Me.Controls("CommandButton" & o) 
     If streamLots(o) <> "" Then 
      btn.Caption = streamLots(o) 
      btn.Visible = True 
     Else 
      btn.Visible = False 
     End If 
    Next 
End Sub