Hallo
ich hoffe du kannst den Code entsprechend anpassen
beachte den Kommentar im Code
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
' hier wird jetzt von Spalte A bis G kopiert
' .Cells(c.Row, 1).Resize(1, 7) die 7 ändern für die _
letzte kopierte Spalte
.Cells(c.Row, 1).Resize(1, 7).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
' hier wird der Inhalt aus L7 in Spalte H _
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
MfG Tom
|