Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Entscheiden zwischen 3 Varianten

Forumthread: VBA: Entscheiden zwischen 3 Varianten

VBA: Entscheiden zwischen 3 Varianten
26.08.2024 12:40:22
Fritz_W
Hallo Forumsbesucher,

ich bitte um eure Hilfe bei der Umsetzung folgenden Vorhabens:
Ich moechte durch ein Makro erreichen, dass nach einer Abfrage eine Wahl unter folgenden Moeglichkeiten besteht:
1. "Aufgabe wiederholen" --> Makro "Wiederholen" ausfuehren
oder
2. "Neue Aufgabe" --> Makro "Neue_Aufgabe" ausfuehren
oder
3. Test beenden --> Makro "Auswertung" ausfuehren

Fr eure Unterstuetzung vorab vielen Dank.

VG
Fritz
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 13:19:51
daniel
Hi
bei 2-3 Auswahloptionen am einfachsten über die die Messagebox: 

Sub test()

Select Case MsgBox("Weiter zur neuen Aufgabe?", vbYesNoCancel + vbQuestion)

    Case vbYes

        Call Neue_Aufgabe

    Case vbNo

        Call Wiederholen

    Case Else

        Call Auswertung

End Select

End Sub


leider lassen sich bei dieser einfachen Form die Texte der Buttons nicht frei auswählen, es gibt bei drei Optionen nur die Texte
"ja - nein - abbrechen" und "abbrechen - wiederholen - ignorieren"
dh du müsstest in der Beschreibung dann darstellen, welcher Button für was gilt.

Gruß Daniel
Anzeige
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 13:51:31
Kuwer
Hallo Fritz, 

Sub Abfrage()

  With Application.CommandBars.Add(, msoBarPopup, False, True)

    With .Controls.Add(msoControlButton, , , , True)

      .Caption = "Aufgabe wiederholen"

      .OnAction = "Wiederholen"

    End With

    With .Controls.Add(msoControlButton, , , , True)

      .Caption = "Neue Aufgabe"

      .OnAction = "Neue_Aufgabe"

    End With

    With .Controls.Add(msoControlButton, , , , True)

      .Caption = "Test beenden"

      .OnAction = "Auswertung"

    End With

    .ShowPopup

    .Delete

  End With

  On Error GoTo 0

End Sub



Sub Wiederholen()

  MsgBox "Wiederholen ausgeführt"

End Sub

Sub Neue_Aufgabe()

  MsgBox "Neue Aufgabe ausgeführt"

End Sub

Sub Auswertung()

  MsgBox "Test beendet"

End Sub


Gruß, Uwe
Anzeige
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 14:04:40
Fritz_W
Hallo Uwe,

perfekt, das funktioniert super!
Vielen Dank für Deine Hilfe

mfg
Fritz
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 13:39:56
Fritz_W
Hallo Daniel,

vielen Dank!
Das funktioniert schon mal wie von Dir beschrieben und ist auch eine gute Möglichkeit, obgleich es selbstverständlich optimal wäre, wenn man die Schaltflächen entsprechend beschriften könnte. Was meinst Du mit "in der Beschreibung darstellen?" Bedeutet das, das man der Frage "Weiter zur neuen Aufgabe?" eine Zeile darunter:
Nein = "Aufgabe wiederholen!" und eine weitere Zeile darunter
Abbrechen = "Test auswerten!"
hinzufügen könnte, dann wäre das auf jeden Fall eine Verbesserung.
Wen ja, wie geht das?

mfg
Fritz
Anzeige
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 14:09:00
daniel
Hi
du kannst in den Text einen Zeilenumbruch einfügen, dafür gibt es in VBA die Variable vbLF.

sieht dann so aus: 
Select Case Msgbox("JA - Neue Aufgabe" & vbLf & "Nein - Wiederholen" & vbLF & "Abbrechen - Zur Auswertung", vbYesNoCancel + vbQuestion)


beachte, dass vor und nach dem "&" immer ein Leerzeichen stehen muss.

Gruß Daniel
Anzeige
AW: VBA: Entscheiden zwischen 3 Varianten
26.08.2024 14:36:23
Fritz_W
Hallo Daniel,

vielen Dank, auch das wäre eine Alternative. Uwes Lösung ist für mich aber schon perfekt.
Ihr seid einfach gut und ich bin dankbar, auf solche Unterstützung zurückgreifen zu können.

mfg
Fritz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige