Die Kundennummer in meiner Datei wird in dem Tabellenblatt "Anwendung" eingegeben. Die Tabellenblätter "Dokument 1" - "Dokument 3" werden je nach Bedarf (Datenquelle links) ein und ausgeblendet. Das Ziel soll sein (im Beispiel Kunde 2) wenn "Dokument 3" nun doch benötigt wird, dieses wieder einzublenden wenn in Feld L8 manuell "ja" eingetragen wird.
Das ein-ausblenden funktioniert, wenn es über das Tabellenblatt "KD" geändert wird, jedoch nicht wenn man es manuell im Blatt Anwendung ändern möchte.
https://www.herber.de/bbs/user/144796.xlsm
Option Explicit
Private Sub Worksheet_Calculate()
Call EinAus(Worksheets("Anwendung").Range("J8").Value = "nein", "Dokument 1")
Call EinAus(Worksheets("Anwendung").Range("K8").Value = "nein", "Dokument 2")
Call EinAus(Worksheets("Anwendung").Range("L8").Value = "nein", "Dokument 3")
End Sub
Sub EinAus(aus As Boolean, wsName As String)If aus Then
Worksheets(wsName).Visible = xlSheetHidden
Else
Worksheets(wsName).Visible = xlSheetVisible
End If
End Sub