Hallo,
ich habe folgendes Problem: möchte auf mehreren Tabellenblättern wenn in der Zeile 1 von A:AI der Wert 0 steht die enstprechende Spalte ausblenden.
Habe folgendes Makro erstellt...funktioniert aber leider nicht...was ist falsch???
Sub Test2()
Dim colIndex As Long
Dim rngRange As Range
Sheets(Array("tabelle1", "tabelle2", "tabelle3")).Select
For Each rngRange In Sheets(Array("tabelle1", "tabelle2", "tabelle3")).Range("A1:AI1")
If rngRange.Value = "0" Then
rngRange.EntireColumn.Hidden = True
Else
rngRange.EntireColumn.Hidden = False
End If
Next
End Sub
Idealerweise sollte dieses Makro bei Veränderung einer Zelle ausgeführt werden...
Vielen Dank vorab und Gruß, Ines