Wie mach ich optionen?

tobislaf
Und wieder ich
diesmal will ich wissen wie ich ausgangsoptionen mache das statt OK, Ja und Nein
steht und die dan unter einander auch verzweige.
Wolf
guck mal in der VB-Hilfe unter MsgBox-Funktion.

/edit:
der code in vb(a) 6.0
code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
Sub wasweisich()
a = MsgBox("Bitte mal auf ja oder Nein klicken", buttons:=4)
If a = vbYes Then
MsgBox prompt:="Sie haben gerade auf ja gedrückt", Title:="ja"
Else
MsgBox prompt:="Sie haben gerade auf nein gedrückt", Title:="nee"
End If
End Sub
tobislaf
das was du schreibs hat mehr geholfen als Karl Klammer
und jetz die Preisfrage: wie ändere ich den Nahmen der Option und die Anzahl dieser
Wolf
hmm, das wird etwas komplizierter, weil sich das nicht mehr mit msgbox lösen lässt. Welche IDE benutzt du (VBA-Makro-Editor von Word, VB 2005...)? Wäre notwendig zu wissen, da die von der Bedienung her unterschiedlich sind.
tobislaf
Das Produkt heist auf den Namen genau:

Microsoft Excel 2002
Wolf
Ok, dann mach's so:
Im VB-Edtor klickst du auf Einfügen>UserForm. Jetzt hast du ein Formular. Wenn das kleine Fenster "Werkzeugsammlung" noch nicht angezeigt wird, Ansicht>Werkzeugsammlung. Wenn der "Projekt-Explorer" noch nicht da ist, geht er genau so einblenden.

Bring das Formular mit den weißen Kästchen am Rand auf die richtige Größe. Drück dann in der Werkzeugsammlung auf Label (der Button mit dem A) Zieh dann mit der Maus das Label auf der UserForm. Auf der Fläche mit den schwarzen Punkten sollte jetzt eine kleine Fläche sein, die keine Punkte hat, dafür aber den Text "Label 1". Da kommt jetzt dein Text rein. Der Text ist eine Eigenschaft von dem Label. Also kann man ihn im Eigenschaftsfenster ändern. Wenn es noch nicht da ist, Ansicht>Eigenschaftsfenster. Die Eigenschaft, die den Text enthält, heißt Capiton. Also einfach in der Tabelle hinter Capiton deinen Text schreiben.

Damit der User auch was anklicken kann, bekommt das Formular jetzt Buttons. Die gehen genau so wie das Label, nur dass du in der Werkzeugsammlung auf Befehlsschaltfläche drücken musst (sieht aus wie ein ganz normaler Button). Jetzt einfach für jede Antwortmöglichkeit einen Button machen, mit Capiton beschriften. Dann alles mit den weißen Kästchen auf die richtige Größe bringen und noch schön anordnen. Die UserForm selbst hat auch eine Eigenschaft Capiton, da kannst du den Text in der Titelleiste reinschreiben.

Nach dem gleichen Schema machst du jetzt noch die anderen Fenster mit Auswahlmöglichkeiten.

Das Ganze sieht jetzt zwar schon wundervoll aus, ist aber vollkommen sinnlos, weil nichts passiert, wenn man die Schaltflächen anklickt. Das wird jetzt geändert:

Mit Doppelklick auf die Buttons kommst du in die Prozedur, die ausgeführt wird, wenn der User draufklickt.

Die Befehle:
code:
1:
Userform2.Show
Zeigt die UserForm2 an.
code:
1:
Unload Me
Beendet die UserForm, von der aus es aufgerufen wird.

So, das war aber das letzte, was ich für dich gemacht hab, ein Forum ist für Rückfragen da und nicht, dass einer einem einen Crashkurs in VB gibt. Warum lösch ich den Text eigentlich nicht? Es gibt ja eine edit-Funktion... Für sowas sind Bücher da, viele kosten keine 10€! Ende