Office: VBA: "Abbrechen"-Button bei InputBox - Gelöst

Hallo Office-User,

ich tobe seit einer weile in Excel mit VBA herum. Bisher bekam ich meiner Meinung die komplizierte Dinge hin.

Nur mit einer Sache habe ich Probleme, meiner Meinung nach unverständlich, denn wenn ich bei einer InputBox auf Abbrechen drücke sollte die dann auch abbrechen. Jedoch springt er weiter zum nächsten Schritt.

Code:

Sub Schaltfläche_Klichen1()
...
Dim Kopien
Kopien = InputBox "Wieviel Exemplare wird benötigt?", "Anzahl der Exemplare", 1

Application.Dialogs(xlDialogPrint).Show arg1:=2, arg2:=SeiteVon, arg3:=SeiteBis, arg4:=Kopien
...
End Sub

"SeiteVon" und "SeiteBis" werden im Schritt vorher ermittelt von welcher bis zu welcher Seite ausgedruck werden sollen, somit wird verhindert das nicht jedes Mal 30 Seiten ausgedruckt wird wenn man nur 2 davon benötigt.

Hoffe sehr das man mir da helfen kann.

Gruß
Emi

 

Halo Emi,

Option Explicit

Sub Schaltfläche_Klichen1()
Dim Kopien
Kopien = InputBox("Wieviel Exemplare wird benötigt?", "Anzahl der Exemplare", 1)
If Kopien <> "" Then
MsgBox 1
'Application.Dialogs(xlDialogPrint).Show arg1:=2, arg2:=SeiteVon, arg3:=SeiteBis, arg4:=Kopien
End If
End Sub

Gruß hajo

 

Vielen Dank...

Hallo Hajo,

vielen Dank für deine Lösung, funktioniert einwandfrei.

Habe die Zeile 'MsgBox 1' entfernt, da ein erneutes klicken auf OK fällig wird.

Ich verstehe aber nicht ganz wieso man mit If Abfragen muß.

Mein versuch war zuerst mit:

...= vbCancel Then
Exit Sub

und das wollte nicht, das schlimme war aber das ich davon nicht mehr losgekommen bin. :roll:

Danke nocheinmal und einen schönen Abend
Emi

 

Zur Erklärung dann vielleicht:

Das Klicken auf "Abbrechen" bewirkt nicht, daß Dein VBA-Code abgebrochen wird. Es bewirkt einzig und allein, daß der Dialog abgebrochen wird. Im Prinzip, so von "außen" betrachtet, ist das aber auch nichts anderes, als das Klicken auf "OK", "Wiederholen", "...

Denn: In allen diesen Fällen wird der Dialog geschlossen. Der Unterschied ist, daß der Dialog einen Wert zurück gibt, mit dem das aufrufende Programm weiß, welcher der Buttons gedrückt wurde. Und diesen Wert gilt es, auszuwerten.

Wenn Du nach der InputBox nicht nachguckst, was denn zurückgekommen ist, dann akzeptierst Du jede Eingabe als gültig und machst munter mit der Abarbeitung weiter.

Leider, leider... Man kann nicht unterscheiden, ob die Eingabe "" ist und dann "OK" geklickt wurde oder ob die Eingabe "" ist, weil "Abbruch" geklickt wurde. Ich würde NULL als Rückgabewert bei "Abbruch" bevorzugen, aber man kann ja bekanntlich nicht alles haben...

Code:

Private Sub CommandButton2_Click()

    Dim sInput As String

    sInput = InputBox("alter?")

    If sInput = "" Then
        MsgBox "abbruch / leere eingabe"
        Exit Sub
      Else
        MsgBox "ok, weiter geht's..."
    End If

End Sub

Mal als Gegenbeispiel eine MsgBox-Auswertung:

Code:

Private Sub CommandButton1_Click()

    Dim iButton As Integer

    MsgBox "allgemein 1"

    iButton = MsgBox("männlich?", vbYesNoCancel)

    ' männlich
    If iButton = vbYes Then
        MsgBox "männlich"
      Else

        ' weiblich
        If iButton = vbNo Then
            MsgBox "weiblich"
          Else

            ' abbruch, da unsicherheit besteht... ;-)
            If iButton = vbCancel Then
                MsgBox "ok, dann später vielleicht."
                Exit Sub
              Else

                ' da hat jemand noch 'n 4. button gefunden...
                MsgBox "jetzt ich bin verwirrt..."

            End If
        End If
    End If

    MsgBox "allgemein 2"

End Sub

Gruß, Michael

 

:-D

Hi,

vielen Dank für die ausführliche Erklärung, jetzt kann ich es nachvollziehen warum.

Mein Fehler war halt das ich davon ausgegangen bin das beim anklicken auf Abbrechen auch das Program abbricht, aber das er nur den einen Punkt abbricht... naja, darauf bin ich nicht gekommen.

:roll:
Naja, solange am Ende mein Vater damit arbeiten kann ist viel erreicht, er kennt sich nämlich mit Computer garnicht aus. Dementsprechend soll es am Ende einfach für ihn sein. :mrgreen: Habe nicht immer Lust und Zeit nach der Arbeit seine Arbeit zu machen.

Dank nochmal
Gruß
Emi