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
letzte kopierte Spalte
.Cells(c.Row, 1).Resize(1, 7).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
und das datum mit Zeitangabe in Spalte i geschrieben
Sheets("Ergebnisse").Cells(lngZiel, 8).Value = Range("L7").Value
Sheets("Ergebnisse").Cells(lngZiel, 9).Value = Now
MsgBox "Bauteil wurde in die Stückliste aufgenommen"
Call Limitierung
Call Legogesicht
Else
MsgBox "Bauteil wurde nicht gefunden, bitte erneut scannen!"
End If
End With
End If
End Sub