182 Aufrufe
Gefragt in Tabellenkalkulation von matthiasg Mitglied (183 Punkte)
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

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)

Hallo,

wenn du den Inhalt von zwei Zellen prüfen willst, musst du das so machen:

 If Sheets("auftrag").Range("B45").Value = "xxx" Or If Sheets("auftrag").Range("B46").Value = "xxx" Then

In diesem Fall wird z.B. dein Makro Call Zellen_verstecken_weiss aufgerufen, wenn in Zelle B45 oder in Zelle B46 die Bedingung erfüllt ist. Soll dein Verstecken-Makro ausgeführt werden, wenn in beiden Zellen die Bedingung erfüllt ist, musst du das Or durch And ersetzen.

Gruß

M.O.

0 Punkte
Beantwortet von matthiasg Mitglied (183 Punkte)
Danke M.O.

habe das zweite if rausgenommen und jetzt funktioniert es.

If Sheets("auftrag").Range("B45").Value = "xxx" Or  Sheets("auftrag").Range("B46").Value = "xxx" Then
...