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
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
End
If
End
If
With
Sheets(
"Ergebnisse"
)
Call
Limitierung
Call
Legogesicht
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