Hallo,
versuch es einmal so:
Option Explicit
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")
End If
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")
End If
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")
End If
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")
End If
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")
End If
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")
End If
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")
End If
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")
End If
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 If
End Select
End Sub
Gruß
|