Assistent zum Dialog aufrufen und Eingaben auswerten

Thema: Allgemein - Gruppe Anwendung

Arbeitsmappe

127600    098300

Problem: Wie kann ich den Assistenten mit einer CheckListe aufrufen und diese Checkliste später auswerten?

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