|
Hallo, als Neuling habe ich folgendes Problem:
Ich möchte Spalte B ausblenden, wenn in A1 nicht ja steht. Das folgende Skript funktioniert innerhalb eines Worksheets (Tabelle2):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Range("B:B").Columns
Set varSchalter = ActiveSheet.Range("A1")
If varSchalter.Value = "ja" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value <> "ja" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
End Sub
Mein Problem: Die Prüfung, ob in A1 "ja" steht, soll sich auf ein anderes Tabellenblatt (Tabelle1) beziehen. Ich hatte die Zeile
Set varSchalter = ActiveSheet.Range("A1")
wie folgt geändert:
Set varSchalter = WorkSheets("Tabelle1").Range("A1")
Leider funktioniert dies nicht. Danke für Hilfe.
|