Fehler beim Kopieren
09.06.2004 09:56:41
Jens
ich habe hier ein Makro das mir in der zweiten Zeile einen Fehler anzeigt.
Das Makro soll folgendes machen. Alles einer Zeile von Tabelle1 in Tabelle2 kopieren wenn in der Spalte 8 (H) ein "x" steht. In der Tabeele2 sind schon Daten vorhanden, also sollen die kopierten Daten in die nächste freie Zeile kopiert werden. Ist es auch möglich das nicht direkt kopiert wird, sondern die Daten in Tabelle2 nur als Werte eingefügt werden?
Wer kann mir helfen? Wo liegt der Fehler in Zeile zwei?
Besten Dank schonmal
Sub test ()
For i = 1 To Cells(Rows.Count, 8).End(x1Up).Row
If Cells(i, 8).Value = "x" Then
Rows(i).Copy Destination:=Sheets("Tabelle2).Cells(Sheets("Tabelle2).Cells(Rows.Count, 1).End(x1Up).Row + 1, 1))
End If
Next
End Sub