zeile kopieren

andi · 2004-12-31T12:14:07+00:00

Hallo, hatte gestern schon mal die Frage gestellt: https://www.herber.de/forum/messages/540009.html Leider läuft das Makro nicht, es kommt immer Laufzeitfehler 9 "Index ausserhalb des gültigen Bereichs". Hier das Makro: Sub w() Dim zelle As Range For Each zelle In Range("c1:c100") r = zelle.Row 'hier wird der Fehler gmeldet: With Worksheets(zelle.Text) .Cells(21, 2) = Cells(r, 11) .Cells(21, 3) = Cells(r, 13) .Cells(21, 4) = Cells(r, 15) .Cells(21, 5) = Cells(r, 17) .Cells(21, 6) = Cells(r, 22) .Cells(21, 7) = Cells(r, 23) End With Next Kann mir jemand helfen? Was muss ich ändern? Grüße Andi End Sub

Hi,
erst mal danke für die Hilfe. Der Fehler kommt nach der kommentierten Codezeile, also:
With Worksheets(zelle.Text)
Habe die Variablendekleration eingefügt, hat leider nichts gebracht...
Die Tabellen sind vorhanden. Folgendes Makros haben funktioniert, aber leider nur eine Zelle bzw. 2 zellen kopiert:


Sub w()
Dim zelle As Range
On Error Resume Next
For Each zelle In Range("c1:c100") 'evtl. noch anpassen
Worksheets(zelle.Text).[b21] = zelle.Text 'schreibt in die zelle b21
Next
End Sub


Sub w()
Dim zelle As Range
On Error Resume Next
For Each zelle In Range("c1:c100") 'evtl. noch anpassen
r = zelle.Row
Range(Cells(r, 2), Cells(r, 23)).Copy Worksheets(zelle.Text).[b21]
Next
End Sub

Wäre sehr nett, wenn ihr mir nochmal helfen könntet...
Grüße Andi

Hallo,
habe jetzt eine Weile rumprobiert, leider ohne Erfolg...
Wenn ich "On error resume next" einfüge wird immerhin in eine Tabelle eingefügt.
Ich würde gerne die Datei hochladen, es stehen aber Maschinendaten drin, die nicht jeder einsehen sollte.
Daher meine Frage an Hajo: Darf ich dir die Datei ausnahmsweise privat mailen?
Zu Hans wollte ich nur sagen, dass ich natürlich immer erst auf seine Seite schaue. Leider habe ich dazu nichts passendes gefunden... Ich lasse mich aber gerne eines besseren belehretn.
Hier nochmal das Makro:


Sub Eintragen()
Dim zelle As Range
Dim r As Long
On Error Resume Next
For Each zelle In Range("c1:c100")
r = zelle.Row
With Worksheets(zelle.Text)
.Cells(21, 2) = Cells(r, 11)
.Cells(21, 3) = Cells(r, 13)
.Cells(21, 4) = Cells(r, 15)
.Cells(21, 5) = Cells(r, 17)
.Cells(21, 6) = Cells(r, 22)
.Cells(21, 7) = Cells(r, 23)
End With
Next
End Sub

Für jede weitere Hilfe bin ich dankbar.
Gruß Andi

Forumthread: zeile kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

zeile kopieren

Forumthread: zeile kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread