Spalte einblenden bei Formelbezug
02.10.2003 18:29:59
Markus
ich arbeite in zwei verschiedenen Tabellbereichen. In Tab1 befinden sich Eingabezellen, die dafür da sind, dass sich in Tab2 ausgeblendete Spalte/n bei Eingabe "x" einblenden. Das ganze funktioniert mit VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Tabelle2!").Columns("C:C").Hidden = Not (UCase(Target.Value) = "X")
End If
End Sub
soweit so gut, wenn man das "x" manuell eingibt und die Eingabetaste betätigt. Jedoch habe ich auch Eingabezellen, wo ein Formelbezug drin steht, der letztlich automatisch für das Wiedereinblenden von Spalten sorgen soll, wenn man z.B. in anderen Eingabezellen manuell das "x" vorgibt.
Formel:
für Zelle "A5": =WENN(ANZAHL2(A1:A3)>0;"x";" ")
.. das wiederrum funktioniert nicht, wenn das "x" per Formel bezogen wird.
ich habe mittlerweile weile herausgefunden, dass das Einblenden bei Eingabe und das Ausblenden bei Entnahme des "x" nur funktioniert, wenn man die Eingabetaste betätigt. Sprich mehrere Zellen weisen ein "x" auf = Spalten eingeblenden, danach mehrere Zellen markieren = Entf. und die Spalten bleiben eingeblendet, obwohl kein "x" besteht.
Wer kann helfen??
Ich danke Euch schonmal vorab vielmals!
Gruß Markus