Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Änderung der Kopfzeile bei Zelleintrag

Gruppe

Change

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