Hallo Leute,
Ich hab da ein kleines Problem. Ich möchte gern die entsprechende Zeile heraussuchen, bei der alle vier Kriterien zutreffen. Irgendwo mache ich aber einen Fehler. Kann da einer von Euch nochmal draufgucken ?
Das Makro kopiert zwar in die Tabelle "Archiv", aber leider eine völlig falsche Zeile ! Ich vermute, er setzt nach jeder Markierung neu an.
With Worksheets("Tabelle1")
Set gefunden = Worksheets("Tabelle1").Range("F10:F5000").Find(StückeNummer1)
If gefunden Is Nothing Then MsgBox ("Stücke-Nummer nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
Set gefunden = Worksheets("Tabelle1").Range("G10:G5000").Find(KuponNummer_von)
If gefunden Is Nothing Then MsgBox ("Kuponnummer nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
Set gefunden = Worksheets("Tabelle1").Range("H10:H5000").Find(Art_des_WP)
If gefunden Is Nothing Then MsgBox ("Art des WP nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
Set gefunden = Worksheets("Tabelle1").Range("J10:J5000").Find(Zugangs_Buchungsbelegnummer1)
If gefunden Is Nothing Then MsgBox ("Zugangs-Buchungsbelegnummer nicht gefunden !"): GoTo Ende
lZeile = gefunden.Row
iGefunden = iGefunden + 1
If iGefunden = 4 Then
gefunden.EntireRow.Cut
Worksheets("Archiv").Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Else: MsgBox ("Bestand nicht gefunden !"): GoTo Ende
End If