möchte gerne die Tabellenblätter "Dokument 1"-"Dokument 3" ausblenden, wenn diese nicht benötigt werden.
Das hat auch alles schon funktioniert, allerdings soll die Angabe des Kunden nicht in der Tabelle "Anwendung" sondern in der Tabelle "KD" eigegeben werden.
Wenn ich aber im Tabellenblatt "Anwendung" den Kunden mit der Formel "=KD!A2" anzeigen lass, funktioniert die VBA nicht mehr =(
Hoffe es kann jemand helfen:
https://www.herber.de/bbs/user/144688.xlsm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Call EinAus(Worksheets("KD").Range("J8").Value = "nein", "Dokument 1")
Call EinAus(Worksheets("KD").Range("K8").Value = "nein", "Dokument 2")
Call EinAus(Worksheets("KD").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