ich habe eine Frage:
ich habe eine Excel Arbeitsmappe mit 125 Arbeitsplätter. Nun muss ich das Loge in jeder Fusszeile ersetzen.
Wie mache ich das? Für eine Idee bin ich schon sehr dankbar.
Beste Grüsse
Thomas
Sub ChangeAllFooterPics()
Dim i As Long
Application.ScreenUpdating = False
With ThisWorkbook
For i = 1 To .Sheets.Count '1 bis letztes Blatt, oder spezifizieren > 3 To 125...
.Sheets(i).Activate
With ActiveSheet.PageSetup
.LeftFooter = "&G" 'Fußzeile links
.LeftFooterPicture.Filename = "Dateipfad"
End With
Next i
End With
End Sub
LG Michael