VBA und manuelle Eingaben
15.03.2021 09:19:01
Andreas
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
If aus Then
Worksheets(wsName).Visible = xlSheetHidden
Else
Worksheets(wsName).Visible = xlSheetVisible
End If
End Sub