Checkbox mit vba abfragen

Computer: Software & Programmierung Office Software
#1

Hallo

habe ca. 40 checkboxen in einem Excel2000 und möchte mit einer for/next Schleife die Zustände ändern.
Es gelingt mir nicht die Elemente in der subRoutine anzusprechen.
Wie kann ich den Namen checkboxTyp1 ,checkboxTyp2…Typx mit einer Variable erzeugen „checkboxTyp“ & variable nimmt mir VBA nicht an.
Wie muss ich den Syntax wählen, damit ich Farbe, value, usw. aus der Subroutine ändern kann.
Vielen Dank für die Hilfe

Urs

#2

Hallo Urs

versuchs mal hiermit[musst dir das Modul noch nach deinen Bedürfnissen umstellen

Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 5
Controls(„CheckBox“ & iCounter).Value = True
Next iCounter
End Sub

mfg
Spaguzzi

ich verwende diesen Teil des "Initialize-Modules um alle Checkboxes beim Laden des Formulares auf True oder False zu setzen

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

habe ca. 40 checkboxen in einem Excel2000 und möchte mit einer
for/next Schleife die Zustände ändern.
Es gelingt mir nicht die Elemente in der subRoutine
anzusprechen.
Wie kann ich den Namen checkboxTyp1 ,checkboxTyp2…Typx mit
einer Variable erzeugen „checkboxTyp“ & variable nimmt mir VBA
nicht an.
Wie muss ich den Syntax wählen, damit ich Farbe, value, usw.
aus der Subroutine ändern kann.

Urs

versuchs mal hiermit[musst dir das Modul noch nach deinen
Bedürfnissen umstellen

Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 5
Controls(„CheckBox“ & iCounter).Value = True
Next iCounter
End Sub

Spaguzzi

ich verwende diesen Teil des "Initialize-Modules um alle
Checkboxes beim Laden des Formulares auf True oder False zu
setzen

Hallo Spaguzzi
ich kriege immer Fehlermeldungen „Typen unverträglich“ oder „Objektvariable nicht definiert“ oder sonst was.
Wie und wo muss ich die Variable Controls() definieren?
Versuch: public controls () as OLEobjects schlug fehl.
Gruss Urs

#4

ich kriege immer Fehlermeldungen „Typen unverträglich“ oder
„Objektvariable nicht definiert“ oder sonst was.
Wie und wo muss ich die Variable Controls() definieren?
Versuch: public controls () as OLEobjects schlug fehl.

Hi Urs,
der Code ist in Ordnung. In welcher Zeile kommen der Debugger und poste mal den Gesamtcode.
Gruß
Reinhard

#5

Hallo Urs,

wo liegen denn die Steuerelemente rum? Handelt es sich hier um ein VBA-Formular oder dümpeln die direkt auf dem Worksheet rum? Wenn letzteres, sind es Elemente aus der Toolbox oder handelt es sich um Formularbestandteile? Denn je nachdem, um was es sich hier eigentlich handelt, unterscheidet sich bereits die Collection in welcher die Elemente zu finden sind.

Gruß
Daniel

#6

Hallo Reinhard und Daniel
Vielen Dank für euren Einsatz habe den Syntax rausgefunden.

Public WS_Navigation As Worksheet
if WS_Navigation.OLEObjects(„CheckBox_“ & CStr(Gruppe) & „_“ & CStr(Pos)).Object.Value = True Then
msgbox „wahr“
End If
das .Object. musste irgendwie rein, wieso weiss ich auch nicht, aber jetzt funktioniert’s
Gruss Urs

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]