Spalten automatisch ein- und ausblenden
24.04.2014 14:38:22
Gira
ich habe noch ein kleines Problem, bei dem ihr mir hoffentlich behilflich sein könnt:
Ich möchte in einer Excel-Datei alle Spalte eines bestimmten Bereiches ausblenden, die in Z. 38 den Wert 0 haben. Das Makro soll immer dann ausgeführt werden, wenn sich irgendwo in der gesamten Arbeitsmappe ein Wert ändert, also nicht nur bei Veränderung einer bestimmten Zelle.
Da ich mich nicht wirklich mit VBA auskenne, habe ich mir das Makro aus ein paar Beispielen zusammenkopiert:
Private Sub Worksheet_Change(ByVal Target As Range)
Sub spalte_einb_ausb()
Cells.EntireColumn.Hidden = False
Dim intSpalte As Integer
For intSpalte = 9 To 39
If Cells(38, intSpalte) = 0 Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
Next
End Sub
Wie muss ich VBA sagen, dass dieses Makro immer ausgeführt werden soll, wenn sich irgendein Wert in der gesamten Arbeitsmappe ändert?
Vielen Dank für eure Unterstützung!
Viele Grüße
girasol