hi,

ich habe ein problem mit cut and paste
ich will bestimmte zeilen in Sheet(1) ausschneiden und dann in die nächsten 6 Sheets einfügen.

mein code:

for count = 1 to 400
if Sheets(1).Cells(count,1).Value = "Hallo"
objExOut.Sheets(1).Cells(x,1).EntireRow.Cut()
for i = 2 to 6
Sheets(i).Select()
Sheets(i).Cells(x,1).Select()
ActiveSheet.Paste()
Application.CutCopyMode = False
Next
End IF
Sheets(1).Activate()
Next

Kann mir jemand eine Lösung für mein problem geben???????

Danke akim123