die Sub entnimmt beim Öffnen der Datei den Namen der sichtbaren Schaltflächen einer Liste in einem Tabellenblatt. Dieses Tabellenblatt wird mit Usr übergeben, die dortige Spalte für die Liste wird mit BTSplt1 übergeben. Blatt000 ist eine Konstante für das Tabellenblatt, auf dem die Schaltflächen abgelegt sind (aus Steuerelement-Toolbox eingefügt).
Sub Buttonsperre_01(Usr, BTSplt1)
For i = 1 To 20
If ThisWorkbook.Worksheets(Usr).Cells(i, BTSplt1) <> "" Then
Inh02 = ThisWorkbook.Worksheets(Usr).Cells(i, BTSplt1)
Worksheets(Blatt000).Inh02.Visible = True
End If
Next i
End Sub
Die Variable Inh02 ist ein String, der offensichtlich nicht als Name für die Schaltfläche akzeptiert wird, denn die Fehlermeldung heißt: # 438 Objekt unterstützt diese Eigenschaft oder Methode nicht". Wenn ich den ersten Eintrag der Liste (z.B. "Report_003") statt der Variablen eintrage, dann funktioniert das Ganze.
Kann jemand bitte einen Rat geben für die Umwandlung der Variablen in den Namen der Schaltfläche?
Vielen Dank
Hannes