Assistent zum Dialog aufrufen und Eingaben auswerten

Home Zurück Vor

Download der Beispiel-Arbeitsmappe

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