Microsoft Excel

Herbers Excel/VBA-Archiv

In allen Blättern Logo in Kopfzeile

Betrifft: In allen Blättern Logo in Kopfzeile von: Pit
Geschrieben am: 12.10.2020 08:16:27

Hallo Experten / Expertinnen,


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

Betrifft: AW: In allen Blättern Logo in Kopfzeile
von: Pit
Geschrieben am: 12.10.2020 17:10:13

Doppelter Eintrag, bitte nicht beachten (sondern löschen, wenn möglich...)