Hallo Leute,
ich bin neu in diesem Forum und brauche eure Hilfe. Ich habe ein Formular erstellt, welches mir ermöglichen soll eine Umfrage in Excel einzugeben.
Nun habe ich zur beseren Handhabung alle Fragen Gruppiert. Jetzt habe ich das Problem, das fünf der Fragen eine mehrfach Auswahl zulassen sollen.
Kann ich das irgendwie Bewerkstelligen, ohne die Gruppierung dabei aufzulösen???
Vielen Dank und beste Grüße
Adam
Hallo Adam,
willkommen im Forum.
Für Mehrfachauswahlen sind die CheckBoxes (Kontrollkästchen) zuständig.
Also müsstest Du die entsprechenden OptionButtons gegen CheckBoxes austauschen.
Gruß Uwe
Vielen Dank für die schnelle Antwort.
Manchmal sieht man den Wald vor lauter Bäumen nicht.
Jetzt habe ich zu dem oben aufgeführten Formular ein riesiges Problem.
Ich versuche die einzelnen Commandbuttons mit Funktion versehen.
Die Buttons "RESET" und "CLOSE" waren noch recht einfach zu schreiben.
Jetzt möchte ich die "<--" und "-->" Buttons und den "SAVE & NEW" Button mit funktion versehen.
Dabei soll mit den Pfeiltasten durch die einzelnen Eingaben geklickt werden und mit der
"SAVE & NEW" Taste sollen kommplet neue Eingaben in die Tabelle gemacht werden.
Hat jemand lust sich dieser Herausforderung zu stellen und mir dabei zu Helfen???
LG
Adam
Hallo Adam,
was meinst Du denn mit "durch die einzelnen Eingaben" ? Geht es dann mit 26 bis 50 weiter?
Du könntest z.B. abwechselnd die jetzigen auf visible=false setzen und 25 andere auf visible=true.
Schaue Dir auch mal die Multipages an. Du könntest, wie Du es sicher von anderen Dialogen kennst, einzelne "Reiter" erzeugen und mit abfragen füllen. Dann brauchst Du vielleicht das next nicht mehr.
Du könntest auch mit Scrollbalken arbeiten und mehr als 25 Frageblöcke darstellen.
Wie Du speichern kannst ist klar? Für New gehst Du einfach alle Objekte durch und setzt sie zurück. Intelligenter wäre dazu natürlich eine Schleife. Im Prinzip so:
Code:
Sub test()
'Variablendeklarationen
Dim conObject As Object
'Schleife ueber alle Objekte des Userform
For Each conObject In UserForm1.Controls
'Entscheidung in Abhaengigkeit des Typenamens
'Beachte Schreibweise klein / gross !!
Select Case TypeName(conObject)
'falls Optionbutton
Case "OptionButton"
'Value aendern
conObject.Value = False
'falls Textbox
Case "TextBox"
'Text aendern
conObject.Text = ""
'Ende Entscheidung in Abhaengigkeit des Typenamens
End Select
Next
End Sub