Register ausblenden
03.12.2015 16:17:36
Jessi
Ich habe eine Excel-Tabelle mit einigen Registerblättern.
Ich möchte das jeweilige Registerblätter ausblenden so blad in S5 eine 0 steht (die 0 kommt durch eine einfach Wenn-Formel zustande)
Ich habe bereits auch ein Makro, das aber leider nicht funktioniert:
Sub RegisterAusblenden()
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
If ws.Cells(19, 5) = 0 Then
ws.Visible = xlSheetHidden
End If
Next
On Error GoTo 0
End Sub
Das Makro blendet zwar Registerblätter aus, aber total willkürlich. Es bleiben welche eingeblendet wo in S5 0 steht und es werden welche ausgeblendet wo keine 0 steht..
Ich weiß irgendwie nicht weiter
Kann mir jemand helfen und mir sagen was ich falsch gemacht hab?
Gruß
Jessi