Spalten ausblenden
12.10.2004 16:13:52
Doreen
habe folgendes Problem:
In der Zelle A2 steht ein Formelergebniss aus einer anderen Zelle
wenn nun dort die z.B die 2 steht soll er nur 2 Spalten von 99 einblenden.
Das Problem ist das in A2 nicht 2 sondern =B2 steht und somit folgendes Makro nicht funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
' Ist die Aktion überhaupt nötig (Änderung in "A2") ?
If Target.Address = "$A$2" Then
' Nimm den Wert des geänderten Bereiches
Select Case Target.Value
' Vergleiche mit ZAHL, nicht String
Case 1
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten D:CW aus
Columns("D:CW").EntireColumn.Hidden = True
Case 2
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten E:CW aus
Columns("E:CW").EntireColumn.Hidden = True
Case 3
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten F:CW aus
Columns("F:CW").EntireColumn.Hidden = True
Case 4
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten G:CW aus
Columns("G:CW").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "A2"
Target.Select
End If
End Sub
Kann mir da jemand helfen?
Lieben Gruß
Doreen