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