AW: WG: Indizierung Tabellenblätter
07.02.2017 11:08:15
Klaus
Hallo Matthias vielen Dank für deine Hilfe. Nun ist die Reihenfolge korrekt lt. Liste siehe Screenshot.
Mein Makro soll dazu dienen die Kopf- und Fußzeilen automatisch anzupassen. Das funktioniert auch eigentlich hervorragend. Das Problemm ist, dass bei Tabelle 10 die Kopfzeile geändert wird, obwohl im Code nur Änderungen in der Fußzeile vorgenommen werden sollen! Kann hier jemand den Fehler im Code entdecken oder mir einen Tipp geben die Blätter gezielter anzusprechen? Vielen lieben Dank vorab! Angehängt der Code:
Sub Aktualisierung()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 2 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 3 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 4 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 5 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 6 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 7 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 8 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 9 Then
With Tabellenblatt.PageSetup
.LeftHeader = "&""Arial,Bold""&12" & Chr(10) & Chr(10) & Worksheets("Kundenübersicht").Range(" _
C4") & Chr(10) & Worksheets("Kundenübersicht").Range("C5") & Chr(10) & Worksheets("Kundenübersicht").Range("C6")
.CenterHeader = "&G" & "&""Arial,Bold""&10" & Chr(10) & Chr(10) & ("Versicherungswert der _
Betriebseinrichtung (F/EC)")
.RightHeader = "&""Arial,Bold""&12" & Chr(10) & Chr(10) & Chr(10) & Worksheets("Kundenübersicht" _
).Range("C10") & " " & Worksheets("Kundenübersicht").Range("D10")
.LeftFooter = Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 10 Then
With Tabellenblatt.PageSetup
.LeftFooter = "&""Arial,Standart""&7" & Chr(10) & Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "&""Arial,Standart""&7" & "Seite &P"
.RightFooter = ""
End With
End If
Next
For Each Tabellenblatt In ActiveWorkbook.Worksheets
If Tabellenblatt.Index >= 11 Then
With Tabellenblatt.PageSetup
.LeftHeader = "&""Arial,Bold""&12" & Chr(10) & Chr(10) & Worksheets("Kundenübersicht").Range(" _
C4") & Chr(10) & Worksheets("Kundenübersicht").Range("C5") & Chr(10) & Worksheets("Kundenübersicht").Range("C6")
.CenterHeader = "&G" & "&""Arial,Bold""&10" & Chr(10) & Chr(10) & ("Versicherungswert für _
Elektronikversicherung")
.RightHeader = "&""Arial,Bold""&12" & Chr(10) & Chr(10) & Chr(10) & Worksheets("Kundenübersicht" _
).Range("C10") & " " & Worksheets("Kundenübersicht").Range("D10")
.LeftFooter = Worksheets("Kundenübersicht").Range("O10")
.CenterFooter = "Seite &P"
.RightFooter = ""
End With
End If
Next
MsgBox "Die Aktualisierung wurde erfolgreich durchgeführt !"
End Sub