Re: cut paste
15.06.2003 23:21:54
Gabor
Hi Akim,keine Ahnung warum du das so scheinbar umständlich machst.
Da dein Code bei mir nur Fehlermeldungen produziert hier mal eine Variante die bei mir funktioniert.
Wenn ich richtig verstanden habe möchtest Du alle Zeilen mit einem X in Spalte 11 in ein anderes Blatt kopieren....
Sub Test1()
Dim i&, LetzteZeile&, ZielZeile
LetzteZeile = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LetzteZeile
If UCase(ThisWorkbook.Sheets(1).Cells(i,11).Text) = "X" Then
ThisWorkbook.Sheets(1).Rows(i).Cut
ZielZeile = ZielZeile + 1
ThisWorkbook.Sheets(2).Activate
ThisWorkbook.Sheets(2).Rows(ZielZeile).Select
ThisWorkbook.Sheets(2).Paste
Application.CutCopyMode = False
ThisWorkbook.Sheets(1).Activate
End If
Next i
End Sub