Ich habe in einer Datei 12 Tabellen. In jeder ist eine Zelle, benannt mit "cl_?" (also "cl_01", "cl_02", "cl_03" etc.) enthalten.
Wenn in der jeweiligen benannten Zeile in einem Sheet eine 0 steht, soll diese Tabelle ausgeblendet werden - wenn nicht, muss sie immer eingeblendet sein.
Mein Code stoppt allerdings schon bei der 1 Zeile. Was ist denn mit
If Range("cl_01").Value = 0 then falsch?
Danke für eine Antwort.
Gruss, Peter
Sub Ausblenden()
If Range("cl_01").Value = 0 Then
Sheets(Range("cl_01").Parent.Name).Visible = False
Else
Sheets(Range(cl_01).Parent.Name).Visible = True
End If
If Range("cl_02").Value = 0 Then
Sheets(Range("cl_02").Parent.Name).Visible = False
Else
Sheets(Range(cl_02).Parent.Name).Visible = True
End If
End Sub