Hallo Sabrina,

ich hoffe du hast meinen Vorschlag verstanden, zur Sicherheit hier noch mal die Stelle wo du die  Prüfung einfügen must.  Das kann ganz oben sein. Oder die frühere alte Prüfung so umstellen das zuerst die MsgBox für Abbruch ausgewertet wird. Mit Exit Sub, um das Preogramm zu beenden.  Was ich nich weiss sind die beiden Call Programme in der Mitte.  Wird da noch etwas kopiert??  Wenn ja muss das Abfangen ganz oben bei Sub Worksheet geschehen. Ist nur Logik. 

mfg  Mobody

'Vorgestellte Prüfung ganz am Anfang
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim lngZiel As Long
    Dim varSuche As Variant
    If Not Intersect(Target, Range("D7")) Is Nothing Then
       'Vorprüfung ob max. Eingabe erreichjt wurde
       If ActiveWorkbook.Sheets("Eingabe").Range("D7") = "500" Then
       If ActiveWorkbook.Sheets("Limit").Range("D29") > 1 Then
          MsgBox ("Sie haben die maximale verwendbare Anzahl dieser Komponente erreicht!")
          Exit Sub   'du verlaesst damit das Programm.
       End If
       End If
       'Jetzt kommt erst das normale Programm wie früher
       With Sheets("Ergebnisse")
 
            Call Limitierung   'Was ist hiermit ???
            Call Legogesicht   'wird da noch was kopiert ???

'alte Prüfung, nur hier MsgBox zuerst auswerten, mit Exit Sub  !!
If ActiveWorkbook.Sheets("Eingabe").Range("D7") = "500" Then
    If ActiveWorkbook.Sheets("Limit").Range("D29") > 1 Then
       MsgBox("Sie haben die maximale verwendbare Anzahl dieser Komponente erreicht!")
    Else: ActiveWorkbook.Sheets("Limit").Range("D29").Value = ActiveWorkbook.Sheets("Limit").Range("D29").Value + 1
    End If

End Sub