Office: ActiveX-Steuerelemente in einer Schleife ansprechen

Hallo zusammen *Smilie

vorab sei gesagt ich bin kein VBA oder Excel Profi, also habt Nachsicht mit mir^^

Zu meinem Problem
Ich habe auf einem Tabellenblatt 18 Checkboxen zur Verfügung welche in Abhängigkeit von der Eingabe in eine TextBox entweder Visible sein sollen oder eben nicht, soll heißen: Wird in die TextBox die Zahl 5 eingegeben, sollen die ersten 5 Checkboxen Visible sein und die restlichen 13 nicht.

Dabei möchte ich die CheckBoxen welche Visible sein sollen über eine Schleife ansprechen. Also irgendwie sowas wie

Dim i As Integer

For i = 1 To CDbl(TextBox)
Tabellenblatt1.CheckBox(i).Visible = True
Next i

oder


Dim i As Integer

For i = 1 To CDbl(TextBox)
Tabellenblatt1.("CheckBox" & i).Visible = True
Next i

Mir ist klar, dass dieser Code in VBA nicht funktioniert *rolleyes.gif* aber gibt es
vielleicht einfach eine andere EINFACHE Schreibweise ohne riesigen walkaround? *biggrin.gif*

vielen Dank im voraus
feliix *Smilie

:)

 

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Tabellenblatt1.Shapes(CheckBox" & i).Visible = True

 

Hallo feliix,

welche Checkboxen hast du in Verwendung die aus Formular oder ActiveX Steuerlemente?

anbei ein Bsp. mit Formular..
Statt einer TextBox habe ich eine Zelle genommen!

Code:

 

Vielen Dank für die schnellen Antworten *Smilie

ich verwende ActiveX Steuerelemente, bin mir jetzt nicht ganz sicher inwefern ich dabei anders vorgehen muss. Trotzdem ist dein Beispiel ziemlich genau das was ich mir vorgestellt hatte, werde jetzt mal versuchen daraus schlau zu werden und es dementsprechend anzuwenden.

Vielen Dank!

edit: deinen Hinweis auf die ActiveX Steuerelemente hatte ich erst nicht gesehen *biggrin.gif* Vielen Dank!!

 

Hi,

falls du die CheckBoxen nicht umbenannt hast und sie CheckBox1 bis CheckBox5 heißen, geht es ganz einfach so:

Code: