ich habe in einer Schleife 4 IF-Abfragen. Im Moment werden diese ja auch bei gefundenen Daten in der ersten Abfrage noch alle durchlaufen. Kann ich das nicht stoppen, so dass bei gefundenen Daten in der ersten Abfrage sofort wieder an den Schleifen-Anfang (Do Until) gesprungen wird?? Hier der Code:
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = Sheets("Grunddaten").Cells(28, 2).Value Then
z = ActiveCell.Row
Range("A" & z, "J" & z).Copy
Sheets("Hammer").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
=> hier jetzt Code zurück zum DO-UNTIL-ANFANG <============
End If
If ActiveCell.Value = Sheets("Grunddaten").Cells(29, 2).Value Then
z = ActiveCell.Row
Range("A" & z, "J" & z).Copy
Sheets("Hammer").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
End If
=> jetzt kommen noch 2x ähnliche IF-Abfragen, dann
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
Danke für die Hilfe.
Nicole