Adressänderung in allen Kopfzeilen
09.01.2007 10:39:19
Wolfgang
ich muss in allen Kopfzeilen meiner Tabellenblätter die Adresse ändern.
Wie bekomme ich das am schnellsten hin.
Option Explicit
Sub Kopfzeile()
Dim sh As Object
For Each sh In Sheets
sh.PageSetup.LeftHeader = "ABC"
Next
End Sub
Dieses VBA-Modul habe ich bereits gefunden.
Wie bekomme ich es hin, dass ich dort einen mehrzeiligen Text für Name, Str., PLZ und Ort einfügen kann?
Ich hoffe, mir kann jemand helfen, denn VBA ist nicht mein Ding.
MfG Wolfgang
Anzeige