habe ein kleines Problem.
Ich möchte ein Logo in allen Tabellen einer Arbeitsmappe einfügen und diese auf grösse Skalieren, bekomme aber immer eine Fehlermeldung.
Sub KopfUndFuß()
Dim Tabelle As Worksheet
Application.ScreenUpdating = False
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.RightHeaderPicture.Filename = _
"C:\Temp\LOGO.jpg"
.Height = 34.5
.Width = 82.5
Tabelle.PageSetup.Right.Header = "&G"
End With
With Tabelle.PageSetup
.LeftHeader = "Firmenname"
.CenterHeader = "Tabellenname &A"
.LeftFooter = "Pfad : " & ActiveWorkbook.FullName
.CenterFooter = ""
.RightFooter = "Seite &P von &N"
End With
Next Tabelle
Set Tabelle = Nothing
Application.ScreenUpdating = True
End Sub