mein Problem mit der Ausbucherei, wenn die vier Kriterien stimmen, klemmt immernoch. Vielleicht ist einer von Euch nochmal so nett und wirft einen Blick auf folgendes:
Ich versuche aus einer Tabelle Bogentresor die Zeile herauszukopieren und in eine Tabelle Archiv einzusetzen, bei der die in der UserForm1 eingegebenen vier Kriterien übereinstimmen.
Bei dem folgenden Code habe ich das Problem, dass es zwar in der ersten Zeile funktioniert, aber leider in allen weiteren nicht. Sobald die Zeile mit dem ersten Kriterim gefunden wurde, wird nicht mehr die ganze Tabelle durchsucht, sondern nurnoch nach den anderen drei Kriterien gesucht.
Ich kann mir das aber nicht erklären, da der Code "für mich" nachvollziehbar ist.
Eigentlich soll VBA die gesammte Tabelle durchsuchen !!
Gruß Christian
Application.ScreenUpdating = False
Set WkSh = Worksheets("Bogentresor")
StückeNummer1 = TextBox6.Value
KuponNummer_von = TextBox13.Value
Art_des_WP = ComboBox1.Value
Zugangs_Buchungsbelegnummer1 = TextBox7.Value
With WkSh.Columns(6) ' suchen in Spalte F
Set rZelle = .Find(StückeNummer1, LookIn:=xlValues, LookAt:=xlWhole)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
If WkSh.Range("G" & rZelle.Row).Value = KuponNummer_von And _
WkSh.Range("H" & rZelle.Row).Value = Art_des_WP Then
'WkSh.Range("J" & rZelle.Row).Value = Zugangs_Buchungsbelegnummer1 Then
rZelle.EntireRow.Cut
Else: MsgBox "Stück wurde nicht gefunden !", 48, " Hinweis für " & Application.UserName: GoTo Ende
End If
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Worksheets("Archiv").Cells(.Rows.Count, "C").End(xlUp).Offset(1, 0).EntireRow.Insert
Set rZelle = .FindNext(rZelle)
End If
End With
Application.ScreenUpdating = True