Hallo Verji,
Angenommen du hast den Status in Spalte C stehen, und die Tabellennamen in Spalte A, dann füge im VBA-Editor im Tabellenmodul "Übersicht" folgenden Code ein.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sname As String
If Not Intersect(Target, Range("C:C")) Is Nothing Then
sname = Target.Offset(0, -2)
If sheetexists(sname) Then
Sheets(sname).Visible = Not Target = "erledigt"
Else
MsgBox "Das Blatt """ & sname & """ gibt es nicht!"
End If
End If
End Sub
Function sheetexists(index) As Boolean
On Error Resume Next
sheetexists = Sheets(index).name <> ""
End Function
Wenn du nun in der Übersicht einen Namen als erledigt markierst wird das Tabellenblatt ausgeblendet, setze ihn als offen, wird es wieder eingeblendet.
Gruß Mr. K.