HERBERS Excel-Forum - die Beispiele

Thema: Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen

Home

Gruppe

Dialog

Problem

Wie kann ich über eine Kombination von Msg- und InputBoxes in verschiedene Makros in Abhängigkeit von Eingaben verzweigen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub Eingeben()
   Dim var As Variant
   Dim sTitle As String, sEinheit As String
   Dim sAuswahl As String
   sTitle = "Auswahl Geschäftseinheit"
   sAuswahl = "VA,VG,VE"
   MsgBox "Achtung ohne Auswahl der Geschäftseinheit" & vbLf & _
      "kein Vertriebszuschlag i.d. Kalkulation!", vbOKOnly + _
      vbExclamation, sTitle
   Do Until var = vbOK
      sEinheit = UCase(InputBox("Bitte geben sie Ihre" & _
         "Geschäftseinheit an: (" & _
         sAuswahl & ")", "Geschäftseinheit"))
      If InStr(sAuswahl, sEinheit) Then
         Select Case sEinheit
            Case "VA", "VG", "VE"
               var = MsgBox("Sie haben " & sEinheit & " eingegeben", _
                  vbOKCancel + vbExclamation)
               If var = vbOK Then
                  Run "Kalk_" & sEinheit
               Else
                  MsgBox "Sie kommen zurück zur GE Auswahl !"
               End If
         End Select
      End If
   Loop
End Sub

Private Sub Kalk_VA()
   MsgBox "Kalk_VA gestartet..."
End Sub

Private Sub Kalk_VG()
   MsgBox "Kalk_VG gestartet..."
End Sub

Private Sub Kalk_VE()
   MsgBox "Kalk_VE gestartet..."
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und MsgBox

Msgbox-Timer VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Keine Aktivierung der MsgBox bei #Wert! und #NV xlDialogInsertHyperlink.show
Arbeitmappen über Dialogfeld zusammen fassen Leere Zeilen in MsgBox löschen
MSGBox Zeitraum filtern 5.0 Dialog
Plichtfelder mit MsgBox und Bedingung Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Prüfung auf Gültigkeit in Msgbox
Dateityp im "Speichern unter"-Dialog vorgeben Makro stoppen, wenn Excel-Dialog?
xlDialogOpen anpassen Statt "msgbox" Tabelle füllen
Klick in definierten Rangebereich startet Dialog MsgBox Welche Zelle soll gelöscht werden
MsgBox Abbrechen MsgBox "Excel" ersetzen
Zufallszahl in MsgBox anzeigen MsgBox mit bezug auf Zellen
MsgBox mit bezug auf Zellen MsgBox mit bezug auf Zellen
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
Aufruf einer MsgBox nur bei nicht geöffneter AM MsgBox kopiert sich beim Bewegen
MsgBox erscheint 2 mal Grösse Dialogfenster der InputBox
MsgBox Schriftgröße Return in msgBox?
MsgBox USerform und MSGBox
MsgBox vbYesNo Wenn-Abfrage und MsgBox-Meldung
Dialogfeld unterdrücken MsgBox
Dialog "permanently delete sheets" unterbinden MsgBox
Msgbox ausdrucken Namen in MSGBOX anzeigen
Msgbox Namen ändern Format-Dialog funktioniert nicht mehr
msgbox wenn zelle leer Dialog "Verknüpfung aktualisieren"
Benutzername in MsgBox Titel anzeigen Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog