Gruppe
Ereignis
Bereich
Change
Thema
Änderung der Kopfzeile bei Zelleintrag
Problem
Wie kann ich in XL8 automatisch die Kopfzeile ändern lassen, wenn sich die Einträge in Zelle B6 oder D7 ändern?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sAdr As String
sAdr = Target.Address
If sAdr <> "$B$6" And sAdr <> "$D$7" Then Exit Sub
sAdr = CStr(Range("B6")) & "/" & CStr(Range("D7"))
ActiveSheet.PageSetup.LeftHeader = sAdr
ActiveSheet.PrintPreview
End Sub