Gibt es ein Makro, welches in einer Excel-Arbeitsmappe sämtliche Register ausblendet, welche z.B. in der Zelle A1 ein "x" stehen haben? Die restlichen Register sollen jedoch weiterhin eingeblendet bleiben?
Danke für eure Hilfe.
Gruss
Sub tt()
Dim wks As Worksheet
On Error GoTo tt_Error
For Each wks In ThisWorkbook.Worksheets
wks.Visible = wks.Range("A1") "x"
Next wks
On Error GoTo 0
Exit Sub
tt_Error:
MsgBox "Error " & Err.Number & vbLf & " (" & Err.Description & _
") in procedure tt of Modul Modul1"
End Sub