For each next
19.01.2006 12:39:08
Hans
Ich möchte Kopf-Fusszeilen aus dem Blatt ContrListe in alle Blätter der Datei übertragen. Den nachfolgenden Code habe ich im Archiv gefunden. Der Code läuft, wenn ich ihn aus einer neuen Arbeitsmappe starte. Wenn ich den Code aber in meiner Controllingdatei starte, wird die For next Schlaufe nicht ausgeführt, das Makro geht von next direkt zu End Sub . Was läuft hier falsch?
Danke zum voraus für eure Ratschläge, Hans
Sub kopf2()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets 'Kopf- und Fusszeilen kopieren
If Sh.Index > 1 Then
Sh.PageSetup.LeftHeader = Sheets("ContrListe").PageSetup.LeftHeader
Sh.PageSetup.RightHeader = Sheets("ContrListe").PageSetup.RightHeader
Sh.PageSetup.LeftFooter = Sheets("ContrListe").PageSetup.LeftFooter
Sh.PageSetup.RightFooter = Sheets("ContrListe").PageSetup.RightFooter
End If
Next Sh
End Sub
Anzeige