Gruppe
Funktion
Problem
Wenn in Zelle B1 der Wert verändert wird, ändern sich alle nachfolgenden Werte. Die Anzahl und die Benennung der Werte ist variabel und richtet sich nach Eintragung in Spalte IV (ohne frei Zeilen).
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