Hallo,
habe ich da einen Denkfehler?
Habe meine beiden Auswahlfelder erweitern müssen: Jetzt sollen zwei Zellen ausgewählt werden können und je nach Inhalt sollen Zellen angezeigt oder ausgeblendet werden.
B46 ist neu: Wenn also B45 oder B46 geändert wird, dann soll Sub InhaltChecken() ausgeführt werden.
=> Bei B46 funktioniert das nicht
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$45" Or Target.Address = "$B$46" Then
Call InhaltChecken
End If
[...]
---
Sub InhaltChecken()
Dim strName As String
If Sheets("auftrag").Range("B45, B46").Value = "xxx" Then
Call Zellen_verstecken_weiss
Else
Call Zellen_einblenden_schwarz
End If
End Sub