Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Schleife mit Userform

Betrifft: Schleife mit Userform von: nata
Geschrieben am: 07.09.2004 18:07:08

Hallo Leute!

arbeite momentan an Erstellung eines Fragebogens in Excel mit Hilfe UserForms und verschiedenen Dialogfeldern. Die meisten Fragen sind aber anhand einer UserForm mit 2 Optionsfeldern (ja/nein) und Commandbutton "Ok" standartisiert. Das einzige, was sich ändert, sind die Fragen, also das Label.

Wie kann man eine Schleife schreiben und im Durchlauf jedes mal das Label ändern und Werte in die Tabelle denentsprechend einfügen, ohne dass man 50 UserForms erstellen und die dann hintereinander aufrufen muss?

Vielen herzlichen danlk im Voraus!

Natalie

  


Betrifft: AW: Schleife mit Userform von: andre
Geschrieben am: 07.09.2004 18:47:22

Hallo Natalie,
das userform musst Du trotzdem 50x aufrufen ... Definiere im Modul eine globale variable und schreibe die 50 Texte z.B. in eine Tabelle A1 bis A50
im Modul
Public i%
Sub Frage()
for i=1 to 50
userform1.show
next
End Sub

und im Userform

Sub Userform1_initialize()
Label1.Caption=sheets("LabelTexte").cells(i,1)
End Sub


Die Auswertung machst Du im Click-Ereignis des OK-Buttons, und im selben Ereignis setzt Du userform1.hide sonst gibt's Probleme mit dem 50fachen Aufruf.



 

Beiträge aus den Excel-Beispielen zum Thema "Schleife mit Userform"