Gruppe
Funktion
Bereich
VERGLEICH
Thema
Änderung der Reihenfolge einer Wertereihe
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).
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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