Code umdrehen
12.07.2007 16:37:36
chris58
Ich habe diesen Code gefunden, wo man Tabellenblätter ein- und ausblenden kann. Jedoch ist der Code so, daß, wenn ich es mit einem Kontrollkästchen verbinde, nur bei nicht angekreuztem Kästchen das Tabellenblatt sichtbar ist.
Frage: kann man das so machen, das es umgekehrt ist, also wenn ich das Kontrollkästchen ankreuze, das Baltt erscheint ?
Danke für eure Hilfe
Chris
Sub EinAusblendenTabellenblätter()
Dim ws As Worksheet
Dim c As Range
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
For Each ws In Worksheets
If ws.Cells(1, 1).Value Then 'Überprüfen des Wertes in Zelle A1
ws.Visible = xlSheetHidden 'Tabellenblatt ausblenden
Else
ws.Visible = xlSheetVisible 'Tabellenblatt einblenden
End If
Next ws
Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten
End Sub