Spalte ausblenden wenn...
07.03.2005 16:45:04
Miro
habe das folgende Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
''Macro 1; header and footer''
a = " " & Range("J112")
b = " " & Range("J117")
k = " " & Range("J122")
d = " " & Range("J130")
e = " " & Range("J135")
f = " " & Range("J140")
g = "&""TKTypeRegular,Fett""&12" & a
h = "&""TKTypeRegular,Fett""&12" & b
m = "&""TKTypeRegular,Fett""&12" & k
j = "&""TKTypeRegular,Fett""&12" & d
k = "&""TKTypeRegular,Fett""&12" & e
l = "&""TKTypeRegular,Fett""&12" & f
ActiveSheet.PageSetup.RightFooter = (g)
ActiveSheet.PageSetup.CenterFooter = (h)
ActiveSheet.PageSetup.LeftFooter = (m)
ActiveSheet.PageSetup.RightHeader = (j)
ActiveSheet.PageSetup.CenterHeader = (k)
ActiveSheet.PageSetup.LeftHeader = (l)
''Macro 2; suppress columns''
Const Auswahlzelle = "F1"
Const Monatsüberschriften = "AD5:AQ5"
Dim i As Integer, c As Integer
Dim s_letzte As Range
Dim s_erste As Range
Dim s As Range
If Target.Address(0, 0) = Auswahlzelle Then
Set s_erste = Range(Monatsüberschriften)(1)
Set s_letzte = Range(Monatsüberschriften)(1).Offset(0, Range(Monatsüberschriften).Count - 1)
Range(Monatsüberschriften).EntireColumn.Hidden = False
For Each s In Range(Monatsüberschriften)
If s.Value > Target.Value Then
Range(s, s_letzte).EntireColumn.Hidden = True
Exit For
End If
Next
End If
End Sub
Makro 1 (für Kopf- und Fußzeilen) und Makro 2 (Spalten werden ein/-ausgeblendet, wenn eine bestimmte Bedingung erfüllt ist) werden ausgeführt, sobald das aktive Areitsblatt geändert wird. Ich möchte nun, dass das Makro eins nach wie vor bei Änderungen im aktuellen Arbeitsblatt geändert wird. Makro 2 soll ausgeführt werden, sobald sich der Wert in Zelle F1 ändert. Der Wert in Zelle F1 greift nun wiederum auf eine andere Zelle in einem anderen Arbeitsblatt der gleichen Datei zu
(ich nenne es mal das Originärarbeitsblatt = OAB´). Ändere ich den Wert in der entsprechenden Zelle des OAB, so ändert sich natürlich auch der Wert in der Zelle F1. Das Makro versteht diese Veränderung der Zelle F1 allerdings nicht als Änderung, und wird entsprechend nicht ausgeführt. Wie kriege ich Makro 2 dazu, dass es reagiert, wenn sich der "verknüpfte Wert" in Zelle F1 ändert?
Danke für die Hilfe...
LG