Supportnet / Forum / Tabellenkalkulation
dynamisches formular
Frage
Hallo zusammen
ich möchte gerne ein dynamisches from generieren und zwar mit einer bis 7 checkboxen. die schleife krieg ich ja hin, aber das einfügen der checkbox klappt nicht. bis jetzt habe ich folgenden code. was stimmt darin nicht?
Dim checkbox As MSForms.checkbox
Set checkbox = Me.Controls.Add("Forms.checkBox.1")
With checkbox ´
.Left = 110
.Top = 200
.Width = 120
.Height = 24
End With
besten dank im voraus für eure hilfe
andrea
Antwort 1 von coros
Hi Andrea,
was darin nicht stimmt? In Deinem Code sehe ich nirgends die von Dir angesprochene Schleife, die Du ja, wie Du geschrieben hast, hinbekommst. Das einzige was ich sehe ist, dass Du anhand der Eigenschaften die Checkbox mit der Nr. 1 positionierst. Um Dir helfen zu können müsste man schon wissen, was Du gerne machen möchtest. Du schreibst Checkboxen einfügen, das kann man nur, wenn man ein Klassenmodul erstellt, mit dem man dann die Checkboxen erzeugen und in die UserForm integrieren kann. Wenn Du allerdings meinst, dass Du bereits 7 Checkboxen in Deiner UserForm positioniert hast, diese aber mit .Visible = False ausgeblendet wurden, Du diese dann wieder über eine Schleife einblenden und auch positionieren möchtest, dann müsstest Du mit Controls("CheckBox" & i).Visible = True die Checkboxen anhand einer Schleife wieder einblenden und dann mit With Controls("CheckBox" & i) dann die entsprechenden Eigenschaften setzen.
Also wie Du siehst, anhand Deiner Fragestellung wird nicht klar, mir jedenfalls nicht, was Du möchtest. Eventuell war ja die Lösung schon bei meiner Antwort dabei. Wenn nicht, dann formuliere Deine Frage noch mal anders, bzw. etwas genauer, damit man Dir helfen kann.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
was darin nicht stimmt? In Deinem Code sehe ich nirgends die von Dir angesprochene Schleife, die Du ja, wie Du geschrieben hast, hinbekommst. Das einzige was ich sehe ist, dass Du anhand der Eigenschaften die Checkbox mit der Nr. 1 positionierst. Um Dir helfen zu können müsste man schon wissen, was Du gerne machen möchtest. Du schreibst Checkboxen einfügen, das kann man nur, wenn man ein Klassenmodul erstellt, mit dem man dann die Checkboxen erzeugen und in die UserForm integrieren kann. Wenn Du allerdings meinst, dass Du bereits 7 Checkboxen in Deiner UserForm positioniert hast, diese aber mit .Visible = False ausgeblendet wurden, Du diese dann wieder über eine Schleife einblenden und auch positionieren möchtest, dann müsstest Du mit Controls("CheckBox" & i).Visible = True die Checkboxen anhand einer Schleife wieder einblenden und dann mit With Controls("CheckBox" & i) dann die entsprechenden Eigenschaften setzen.
Also wie Du siehst, anhand Deiner Fragestellung wird nicht klar, mir jedenfalls nicht, was Du möchtest. Eventuell war ja die Lösung schon bei meiner Antwort dabei. Wenn nicht, dann formuliere Deine Frage noch mal anders, bzw. etwas genauer, damit man Dir helfen kann.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von bird
hallo coros
und alle anderen leser
danke für deine fragen, ich seh schon, die fülle der möglichkeiten übersteigt meine phantasie :-)
ich versuch erst mal mit dem visibel, das scheint für meine zwecke zu genügen.
wenn´s nicht geht meld ich mich wieder.
herzlichen dank und ein schönes wochenende
andrea
und alle anderen leser
danke für deine fragen, ich seh schon, die fülle der möglichkeiten übersteigt meine phantasie :-)
ich versuch erst mal mit dem visibel, das scheint für meine zwecke zu genügen.
wenn´s nicht geht meld ich mich wieder.
herzlichen dank und ein schönes wochenende
andrea