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ß