VBA Spalten ausblenden
18.08.2003 13:34:22
Alex
ich habe ein Problem: eine Zelle B1 soll permanent überwacht werden. Bei Eintrag "1" sollen die Spalten E:O ausgeblendet werden, bei "2" entsprechend die Spalten F:O. Alle anderen Spalten sollten sichtbar sein. Ich habe mir dazu folgende Lösung ausgedacht (ja,ja, bin Anfänger), aber die haut leider nicht hin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
Dim i As Integer
Set zelle = Range("b1")
Select Case i
Case "1"
ActiveSheet.EntireColumn.Hidden = False
Columns("e:o").Select
Selection.EntireColumn.Hidden = True
zelle.Select
Case "2"
ActiveSheet.EntireColumn.Hidden = False
Columns("f:o").Select
Selection.EntireColumn.Hidden = True
zelle.Select
Case Else
zelle.Select
End Select
End Sub
Vielen Dank für eure Hilfe,
Alex