Name in Spalte = Blattname
03.01.2005 10:35:03
andi
habe immer noch das Problem, dass mein Makro einfach nicht will...
Hier nochmals das Makro:
Sub Eintragen()
Dim zelle As Range
Dim r As Long
On Error Resume Next
For Each zelle In Range("c9:c56")
r = zelle.Row
With Worksheets(zelle.Value)
.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
Range("c9:c56") da stehen die Namen drin. Die Blätter in der Mappe, haben diese Namen. Habe ich nochmals überprüft.
Leider fügt das Makro nur in das erste Tabellenblatt die Werte ein...
Wenn ich "On Error Resume Next" rausnehme bricht das Makro ab. Fehlermeldung: "Index ausserhalb des gültigen Bereichs", wenn ich debugge wird die Zeile "With Worksheets(zelle.Value)" markiert...
Ich hatte schon einaml um Hilfe gebeten, leider ohne Erfolg: https://www.herber.de/forum/messages/540300.html
Das Makro soll doch nur die Spalte C durchgehen und die Werte aus den Zeilen in die gleichnamigen Tabellenblätter einfügen...
Es wäre sehr nett, wenn mir jemand helfen könnte. Bitte, bitte...
Ich habe auch schon hier auf der Hompage von Hans gesucht, habe aber auch nichts passendes gefunden...
Auch für hilfreiche Links wäre ich sehr dankbar.
Gruß Andi