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
With Sheets("Ergebnisse")
lngZiel = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
End With
varSuche = Range("D7").Value
With Sheets("BerechneteTeile")
Set c = .Columns(32).Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
.Rows(c.Row).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
Sheets("Ergebnisse").Cells(lngZiel, 33).Value = Range("L7").Value
Sheets("Ergebnisse").Cells(lngZiel, 34).Value = Range("N10").Value
MsgBox "Bauteil wurde in die Stückliste aufgenommen"
Call Limitierung
Call Legogesicht
hier als Ausschnitt eine Limitierung
...
If ActiveWorkbook.Sheets("Eingabe").Range("D7") = "500" Then
If ActiveWorkbook.Sheets("Limit").Range("D29") < 1 Then
ActiveWorkbook.Sheets("Limit").Range("D29").Value = ActiveWorkbook.Sheets("Limit").Range("D29").Value + 1
Else: MsgBox ("Sie haben die maximale verwendbare Anzahl dieser Komponente erreicht!")
End If
End If