Hallo zusammen,

Ich hoffe man kann mir bei meinem Vorhaben helfen. Ich habe eine Abfrage eines Wertes, welcher im ersten Tabellenblatt eingetragen wird (Tabelle1 Zeile D7). Im Anschluss erfolgt die Suche des Wertes in einem zweiten Tabellenblatt Tabelle2. Darauf hin soll überprüft werden ob dieser Wert  eine jeweils bestimmte Anzahl kopiert wurde (Dazu habe ich eine Tabelle3, welche für den jeweils eingegebenen Code die maximale Anzahl jedes Elementes überprüft, bisher erhalte ich nur eine MsgBox die darauf hinweist dass die maximale Anzahl erreicht wurde). Wurde diese Zeile bereits zb. 2 mal kopiert soll keine kopie der Zeile in die Tabelle4 erfolgen.

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)
                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