In allen Blättern Logo in Kopfzeile
12.10.2020 10:16:27
Pit
ich brauche mal wieder etwas Nachhilfe.
Ich möchte in allen Arbeitsblättern ein bestimmtes Logo in die Kopfzeile einfügen.
Folgenden Code habe ich aus verschiedenen Quellen zusammengebastelt (soll laufen in 'Diese Arbeitsmappe'):
Option Explicit
Private Sub Grafik_in_Kopfzeile()
Dim WSheet As Worksheet
' .Filename: Zellenbezug - Arbeitsblatt '*' Zelle 'B2' bzw. 'B4'
' .Height: Zellenbezug / Grafikhöhe in Pts (1/72 Zoll)
For Each WSheet In ActiveWorkbook.Worksheets
With WSheet.PageSetup
.Filename = [#!B2]
.LockAspectRatio = True
.Height = [#!B4]
End With
WSheet.PageSetup.RightHeader = "&G"
Next WSheet
End Sub
Ich habe verschiedene Änderungen probiert, was zu unterschiedlichen Fehlermeldungen geführ hat. Aber warum, das verstehe ich nicht. Wer kann mir den Mist vom Heu trennen helfen?
Vielen Dank schon jetzt!
Liebe Grüsse - Pit
Anzeige