hi all

erstmal auf die schnelle,wobei ich die selectionen ja nicht mag grrr

gruss nighty

Option Explicit
Sub CopyBereich()
    Sheets(13).Range("D2:D63").Copy
    Sheets(Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)).Select
    Range("D2").Select
    ActiveSheet.Paste
End Sub

Hallo,

oder als Schleife. Hat den Vorteil, dass man ruhig Blätter einfügen kann und das Makro funktioniert trotzdem noch. Nightys Lösung funktioniert zwar auch, wird aber etwas an der Reihenfolge der Blätter verändert, z.B. ein Blatt eingefügt, funktioniert es nicht mehr, bzw. es kopiert Daten nicht in die richtigen Blätter.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Copy()
Dim iSheet As Integer
Application.ScreenUpdating = False
For iSheet = 1 To Worksheets.Count
If Sheets(iSheet).Name = "Januar" Or Sheets(iSheet).Name = "Februar" _
 Or Sheets(iSheet).Name = "März" Or Sheets(iSheet).Name = "April" _
  Or Sheets(iSheet).Name = "Mai" Or Sheets(iSheet).Name = "Juni" _
   Or Sheets(iSheet).Name = "Juli" Or Sheets(iSheet).Name = "August" _
    Or Sheets(iSheet).Name = "September" Or Sheets(iSheet).Name = "Oktober" _
     Or Sheets(iSheet).Name = "November" Or Sheets(iSheet).Name = "Dezember" Then _
        Range("D2:D63").Copy Sheets(iSheet).Range("D2")
Next
End Sub

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Ja super, klappt einwandfrei!!!!


VIELEN DANK an euch :)

hi coros :-)

arggg ein dau muss fehrngehalten werden *hehe*

wobei du auch bestimmt weisst das statt des indexes natuerlich auch namen eingesetzt werden koennten,stoerend sind wie gesagt die selectionen,ich arbeite dran *grummel*,oder weisst du es ?

gruss nighty

Hallo Dari, hallo nighty,

@Dari: freut mich, dass es funktioniert.

@nighty: Danke für die Info. Mir war das klar. Ich habe mich auf Deinen Code bezogen und auf jemanden, der keinerlei Ahnung mit VBA hat. Daher meine Lösung mit der Schleife. Du hast aber sicherlich recht, ich hätte auch Deinen Code bezüglich der Blattnamen ergänzen können.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}