ich habe eine ähnliche Frage schon bereits vor zwei Tagen gestellt, da es sich bei meinem jetzigen Problem um eine kleine Modifikation handelt, sehe ich davon ab in mein altes Thema zu schreiben:
Ich möchte den Inhalt aus Zelle A1 in 4 weitere Sheets an Stelle B1 einfügen.
Wie kann man nun in der Range.Copy Methode mehrere Zielsheets angeben?
Mein jetziger Versuch funktioniert leider nicht:
Worksheets("Worksheet1").Range("A1").Copy _
Destination:=Worksheets("Worksheet2, Worksheet3, Worksheet4, Worksheet5").Range("B1")
Habe es auch per Schleife probiert (währe wohl die elegantere Lösung), leider auch erfolglos:
For I = 1 To 5
Worksheets(I).Activate
Sheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Sheets(I+1).Select
Range("B2").Select
ActiveSheet.Paste
Next I
Sieht jemand den Fehler oder weiß Rat?
Beste Grüße,
Norbert