AW: msg box und makro beenden - aber wie?
18.08.2016 14:20:32
Eric
Hallo Daniel,
vielen Dank für die Antwort. Nachdem ich nun meine Code umgestellt habe und das exit sub eingefügt habe, habe ich nun das Problem, dass beim Kompilieren die Meldung "Case ohne Select Case" erscheint. Hier der vollständige Code:
Sub PrüfenSteckung()
Dim Steckart As Range
Dim vollsum
Set Steckart = Range("D27")
Set AuflGesA = Range("D21")
Set AuflGesB = Range("M21")
Set AuflGesC = Range("O21")
Select Case Steckart
Case "Vollsteckung"
vollsum = WorksheetFunction.Sum(Range("E38:E88"), Range("M38:M88"), Range("U38:U88"))
If vollsum = AuflGesA Then
MsgBox ("Prüfung Case a) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steckmenge Case a) entspricht nicht der Gesamtauflage")
vollsum = WorksheetFunction.Sum(Range("G36:G58"), Range("O36:O58"), Range("W36:W58"))
If vollsum = AuflGesB Then
MsgBox ("Prüfung Case b)erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steckmenge Case b) entspricht nicht der Gesamtauflage")
vollsum = WorksheetFunction.Sum(Range("I36:I58"), Range("Q36:Q58"), Range("Y36:Y58"))
If vollsum = AuflGesC Then
MsgBox ("Prüfung Case c)erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steckmenge Case c) entspricht nicht der Gesamtauflage")
Case "Teilsteckung"
vollRampSum = WorksheetFunction.Sum(Range("E38:E88"), Range("M38:M88"), Range("U38:U88") _
, Range("D29"))
If vollRampSum = AuflGesA Then
MsgBox ("Prüfung Case a) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case a) entsprechen nicht der Gesamtauflage")
vollRampSum = WorksheetFunction.Sum(Range("G36:G58"), Range("O36:OQ58"), Range("W36:W58" _
), Range("D29"))
If vollRampSum = AuflGesB Then
MsgBox ("Prüfung Case b) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case b) entsprechen nicht der Gesamtauflage")
vollRampSum = WorksheetFunction.Sum(Range("I36:I58"), Range("Q36:Q58"), Range("Y36:Y58") _
, Range("D29"))
If vollRampSum = AuflGesC Then
MsgBox ("Prüfung Case c) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case c) entsprechen nicht der Gesamtauflage")
Case "Nein"
vollRampSum = Range("D29")
If vollRampSum = AuflGesA Then
MsgBox ("Prüfung Case a) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case a) entsprechen nicht der Gesamtauflage")
vollRampSum = Range("M29")
If vollRampSum = AuflGesB Then
MsgBox ("Prüfung Case b) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case b) entsprechen nicht der Gesamtauflage")
vollRampSum = Range("O29")
If vollRampSum = AuflGesC Then
MsgBox ("Prüfung Case c) erfolgreich. Dokument kann nun an Herstellung gesendendet _
werden"), Range("A1").Value = 1
Else
MsgBox ("Steck- und Rampenmenge Case c) entsprechen nicht der Gesamtauflage")
End Select
End Sub
Mit meiner alten Struktur gab es die Fehlermeldung nicht.
Irgendeine Idee was hier nicht stimmt?
Grüße,
Eric