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("Teile")
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
Else
Call suchen
ActiveWorkbook.Sheets("Eingabe").Unprotect
If LCase(Range("D7")) = "141" Then
MsgBox ("Beginn Entwicklung Cockpit")
End If
End sub