Thema Datum  Von Nutzer Rating
Antwort
Rot msg box und makro beenden - aber wie?
19.08.2016 09:09:23 Eric
NotSolved
19.08.2016 09:32:23 SJ
Solved
19.08.2016 09:38:08 Gast73972
NotSolved

Ansicht des Beitrags:
Von:
Eric
Datum:
19.08.2016 09:09:23
Views:
1054
Rating: Antwort:
  Ja
Thema:
msg box und makro beenden - aber wie?

Liebe Forummitglieder,

ich folgendes Problem. Vorerst mal mein 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

Mein Problem ist nun, dass beim kompilieren stets die Fehlermeldung "Case ohne Select case", bei jedem Case befehl. Was ich gerade nicht verstehe ist, dass die Fehlermeldung kommt, obwohl die Case Befehle innerhalb der Kette Select Case und End Select stehen.

Kann mit hier jemand weiterhelfen?

 

Besten Dank und Gruß,

 

Eric


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot msg box und makro beenden - aber wie?
19.08.2016 09:09:23 Eric
NotSolved
19.08.2016 09:32:23 SJ
Solved
19.08.2016 09:38:08 Gast73972
NotSolved