Sheet-Wechsel
12.05.2015 10:51:45
Larissa
Sub Copy()
Dim Zeile As Long
Set Ziel = ThisWorkbook
ZeileMax = Ziel.Worksheets(1).UsedRange.Rows.Count
n = 2
For Zeile = 2 To ZeileMax
If Ziel.Worksheets(1).Cells(Zeile, 3).Value Like "S-*" Then
Ziel.Worksheets(1).Range("A" & Zeile & ":H" & Zeile).Select
Selection.Copy
Ziel.Worksheets(3).Range("A" & n).Select
ActiveSheet.Paste
n = n + 1
End If
Next
End Sub
Laufzeitfehler 1004; Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
Ich verstehe nicht, wieso der Wechsel nicht klappt. Ich markiere in Sheet1 die Zeilen und möchte sie in Zeile 3 kopieren.
Wo ist mein Denkfehler?