Werte mit Code kopieren
03.10.2002 12:18:44
Jens
Ich will aus der Tabelle "Speicher" aus der ausgewählten Zeile beginnend mit der Spalte 1 bis 5 die enthaltenen Werte kopieren und in TB "1" in Zeile 10 einfügen. Analog soll mit den weiteren Werten aus Tabelle "Speicher" aus Spalte 5 bis 10, immer 5er Blöcke kopieren und in die nächste Zeile in TB "1" kopiert werden. Der Code sollte automatisch das Ende der gefüllten Spalten erkennen ( 5 aufeinanderfolgende Leerzeilen).
Ich hatte schon diese Woche mein Problem im Forum gestellt und folgenden Code erhalten, der aber mit Laufzeitfehler 1004 in der 2. Zeile abbricht. Wer kann mir helfen und den Code einmal zu kommentieren und Änderungen vorschlagen.
Sub test()
Dim i As Integer
For i = 5 To 15 Step 5
Sheets("Speicher").Range(Cells(2, i - 4), Cells(2, i)).Copy
Sheets("Tabelle1").Range("A" & i / 5 + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
Next
End Sub
Danke im voraus Jens