|
Hi zusammen,
ich habe in meinem Projekt eine Userform, wo je nach Anzahl der Namen in einer Datenbank eine variable Anzahl Labels, optionbuttons für ja/nein eine zugehörige combobox erstellt werden.
Die Combobox soll jeweils nur angezeigt werden, wenn für den entsprechenden Namen der Optionbutton für "Nein" aktiviert ist.
Daran scheitere ich aktuell. Eine Idee war, den Code dafür direkt in den Userform-Code einzufügen im Moment der Erstellung der Boxen, beispielsweise mit
1 | If Option12 = true then Combo1.visible = true
|
Der Code dafür habe ich mir aus nem anderen Forum geklaut, sieht aktuell so aus:
1 2 3 4 5 | With Me.CodeModule
For i = 1 To anzahl - 1
.InsertLines 2, "Private Sub Option2" & i & "_Click()" & Chr(13) & "Combo" & i & ".visible = true" & Chr(13) & "End Sub"
Next
End With
|
Allerdings scheitert die Ausführung an dem "Codemodule". Ist da von der Syntax her was falsch oder kann ich ads hier nicht verwenden aus irgend welchen Gründen? gibt es vielleicht noch elegantere Lösungen um meine Idee zu realisieren?
Bitte seht es mir nach dass ich VBA aktuell autodidaktisch lerne und ggf. grundlegend falsche Ideen haben könnte ;)
Danke für eure Hilfe
Grüße
Jonas
|