HERBERS Excel-Forum - die Beispiele

Thema: Assistent zum Dialog aufrufen und Eingaben auswerten

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Anwendung

Laufzeitfehler 1004: Anwendungs- oder objektorient Exel immer in neuer Anwendung öffnen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
anwendungen öffnen VBA Anwendung schließen
Beliebige Anwendung in VBA schließen allgemein
AW: Fertige Anwendungen/Formulare Fertige Anwendungen/Formulare.
Anwendungs- oder objektori. Fehler allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
Laufende Anwendung ermitteln und beenden Laufzeitfehler 1004, Anwendungs und obj.
eine datei in anwendung Diagramme in Vektorformat für andere Anwendungen?
allgemeingültig Blattschutz aufheben Nur eine Mappe pro Anwendung
Anwendung im Vordergrund Anwendungs- oder objektdefinierter Fehler
andere anwendung steuern, mauszeiger auslesen? allgemeine Frage...
if then Anwendung in einem Makro Solver - allgemein
Solver - allgemein MsgBox anzeigen / Zellen auswählen / Anwendung ?
Formatierung für fremde Anwendung Meldung bei nicht geöffneter Anwendung
Name der aktiven Anwendung Anwendungs- oder Objektbezogener Fehler
Frage zum Forum allgemein Anwendungen in verschiedenen Fenstern öffnen
Anwendungs- oder objektdefinierter Fehler Allgemeine Frage - Finanz-Planungsmodell
Problem mit dem Schließen der Excel-Anwendung Anwendungen schliessen und Windows herunterfahren
Pivoteingrenzung Formel verallgemeinern Anwendungsfehler With ThisWorkbook.Worksheets ...
Hardcopy aus anderer Anwendung einfügen makro verallgemeinern
Office allgemein, bitte hilfe allgemein
Allgemeine Frage zu Makro Komprimieren möglich? Allgemeine Frage
Tabelle aus anderer Anwendung formatieren Wechsel zwischen Anwendungen mit VBA
andere Excelanwendung öffnen bedingte Formatierung allgemein