hallo zusammen,
erst mal muss ich mich beim Josef Ehrensberger bedanken, ist zwar schon eine gute Woche her dass du mir geholfen hast, aber besser bedank ich mich spät als nie ( hatte eine Woche keinen I-Net zugang).
hat einwandfrei funktioniert.
Hab heut mal wieder ein Problem mit nem Code,
Dim wks As Worksheet
On Error Resume Next
For Each wks In ActiveWorkbook.Worksheets
If wks.Name "korrektur" And Application.CountA(wks.Range("A100"))= "a" Then
wks.Visible = xlSheetHidden
End If
Next
Es sollen in der Arbeitsmappe alle Tabellenblätter ausgeblendet werden bis auf Korrektur und alle anderen in denen in der Zelle a100 ein "a" steht.
das ausblenden Funktioniert, nur meine Bedingungen irgendwie nicht
hoffe mir kann jemand helfen