21.11.2022, 16:56
Hallöchen,
also, da wäre ich bei Variante 1. Wie sieht denn Dein Code dafür aus?
Der Code den Du unter #8 gepostet hast und wie er auch in der Datei ist funktioniert doch, wenn man ihn fertig stellt. Es fehlt zu jedem If das End If (siehe Variante 1) und es fehlt auch das End Sub ... Allerdings ist damit Dein A40 Problem nicht gelöst.
Wenn es für eine Zelle zwei Bedingungen braucht, müsstest Du die bei den einzelnen ggf. rausnehmen und gesondert definieren.
Falls dann nur eins der beiden Zellinhalte (+) oder beide (*) zutreffen sollen, kommt das noch mit in den Code, hier mal für beide:
z.B.
If Not Intersect(Target, Worksheets("Zusammenfassung").Range("B2")) Is Nothing Or If Not Intersect(Target, Worksheets("Zusammenfassung").Range("C2")) Is Nothing Then
Worksheets("Indikatorenkatalog").Range("A40").EntireRow.Hidden = (Worksheets("Zusammenfassung").Range("C2").Value = "Nein") + (Worksheets("Zusammenfassung").Range("B2").Value = "Kurse mit Theorieanteil"))
End If
also, da wäre ich bei Variante 1. Wie sieht denn Dein Code dafür aus?
Der Code den Du unter #8 gepostet hast und wie er auch in der Datei ist funktioniert doch, wenn man ihn fertig stellt. Es fehlt zu jedem If das End If (siehe Variante 1) und es fehlt auch das End Sub ... Allerdings ist damit Dein A40 Problem nicht gelöst.
Wenn es für eine Zelle zwei Bedingungen braucht, müsstest Du die bei den einzelnen ggf. rausnehmen und gesondert definieren.
Falls dann nur eins der beiden Zellinhalte (+) oder beide (*) zutreffen sollen, kommt das noch mit in den Code, hier mal für beide:
z.B.
If Not Intersect(Target, Worksheets("Zusammenfassung").Range("B2")) Is Nothing Or If Not Intersect(Target, Worksheets("Zusammenfassung").Range("C2")) Is Nothing Then
Worksheets("Indikatorenkatalog").Range("A40").EntireRow.Hidden = (Worksheets("Zusammenfassung").Range("C2").Value = "Nein") + (Worksheets("Zusammenfassung").Range("B2").Value = "Kurse mit Theorieanteil"))
End If
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)