einfügen in weitere sheets
04.07.2003 22:46:47
akim123
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