Code zum aus- und einblenden einer Spalte auf ....
02.03.2004 17:13:45
Tackerharry
Mit diesem Code wird die Spalte I aus- und eingeblendet, wenn der Wert der Zelle I1 0 oder ungleich 0 ist. Diesen Code möchte ich auch auf die Spalten K, M, O, Q, S, U, W, Y, AA, AC, AE, AG, AI, AK und AM anwenden. D.h. Zelle K1 soll Spalte K ein- und ausblenden, Zelle M1 soll Spalte M ein- und ausblenden usw.. Kann mir da Jemand weiterhelfen.
Private Sub Worksheet_Activate()
If Not IsEmpty(Range("I1")) And Range("I1") = 0 Then
Columns("I:I").Hidden = True
Else
Columns("I:I").Hidden = False
End If
End Sub
Vielen Dank im vorraus.
mfg
Tackerharry