Würde gerne ausgewählte Zeilen kopieren. Habe das auch schon mit einer anderen Excel-Version geschafft. Verwende folgendes Skript:
Dim zeile1 As Integer
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
zeile1 = zeile1 + 1
For iRow = iRowL To 1 Step -1
If Worksheets("Quelle").Cells(iRow, Spalte) = "0001" Then
Rows(iRow).Copy Sheets("Ziel").Range(zeile1 + 1, 1)
End If
Next iRow
Bekomme aber immer folgende Fehlermeldung:
Laufzeitfehler: 1004
Anwendungs- oder objektdefinierter Fehler
Danke für die rasche Hilfe!!
RoPo