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
|