mit den Anweisungen:
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "Ahr2" Then
Selection.EntireRow.Copy
Sheets("Hammer").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
ActiveCell.Offset(1#).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
kann ich vom Blatt "Auftragseingabe die Inhalte aller Zeilen, die "Ahr2" enthalten, ins Blatt "Hammer kopieren. Klappt auch. Da "Ahr" öfter vorkommt, werden alle gefunden Zellen untereinander ins neue Blatt kopiert.
Ich möchte aber nur die Inhalte von A bis J kopieren (Zeilennr. ändern sich ja). Mit den Anweisungen:
Do Until i = ActiveSheet.UsedRange.Rows.Count
If ActiveCell.Value = "Ahr2" Then
z = ActiveCell.Row
Range("A" & z, "J" & z).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Hammer").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("Auftragseingabe").Select
ActiveCell.Offset(1#).Select
iAnz = iAnz + 1
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
werden zwar auch nur die Zeilen von A:J kopiert, aber nur 1x, d.h. auch wenn "Ahr2" im Blatt "Auftragseingabe" 3x vorkommt, wird es nur 1x rüberkopiert.
Wo liegt der Fehler??
Danke im voraus
Nicole