Gruppe
Allgemein
Bereich
Anwendung
Thema
Assistent zum Dialog aufrufen und Eingaben auswerten
Problem
Wie kann ich den Assistenten mit einer CheckListe aufrufen und diese Checkliste später auswerten?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub AssistentEinblenden()
Dim intCounter As Integer
On Error GoTo ERRORHANDLER
Assistant.Visible = True
With Assistant.NewBalloon
.Heading = "Dämlicher Karneval"
.Text = "Beantworten Sie bitte folgende Fragen:"
.CheckBoxes(1).Text = "Nur für Rheinländer geeignet"
.CheckBoxes(2).Text = "Keine Kohle für so'n Quatsch"
.CheckBoxes(3).Text = "Soeben erst zurückgekommen"
.Button = msoButtonSetOkCancel
If .Show = msoBalloonButtonOK Then
If .CheckBoxes(1).Checked And Not .CheckBoxes(2).Checked _
And Not .CheckBoxes(3).Checked Then
MsgBox "Nicht für alle Rheinländer"
ElseIf .CheckBoxes(2).Checked And .CheckBoxes(3).Checked Then
MsgBox "Dafür hast Du ziemlich lange ausgehalten"
ElseIf Not .CheckBoxes(1).Checked And Not .CheckBoxes(2).Checked _
And .CheckBoxes(3).Checked Then
MsgBox "Willkommen zu Hause"
ElseIf .CheckBoxes(2).Checked Then
MsgBox "Wer hat die schon"
End If
End If
End With
Exit Sub
ERRORHANDLER:
Beep
MsgBox prompt:="Assistent ist nicht installiert!"
End Sub