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