unten stehende Abfrage bezieht sich auf Zellen, welche dann mehrere Grafiken bei "f" und "NA" ausblenden.
Nun habe ich
1.) das Problem, dass ich zwar durch Case "..." 2 Abfragen auf einmal machen kann, jedoch danach nicht z.B. 2 Objekte auf einmal ausblenden darf.
Und
2.) leider nicht weiss, wie man das "Objekt 18" noch durch Zahlen positioniert. Es sollte z.B. variabel von dem Ereignis "f" etwas weiter rechts, in Abhängigkeit von "NA" etwas weiter links stehen.
Damit nicht genug, zeigt mir der Computer je nach Laune manchmal einen Laufzeitfehler an, aber eben nicht immer, so dass ich da als Anfänger mal wieder überfordert bin.
Vielen Dank !
Kurt
Private Sub Worksheet_Activate()
Select Case Range("H9")
Case "f", "NA"
ActiveSheet.Shapes("Objekt 18").Visible = False
? ActiveSheet.Shapes("Objekt 19").Visible = False
Case Else
ActiveSheet.Shapes("Objekt 18").Visible = True
End Select
Select Case Range("Al9")
Case "f", "NA"
ActiveSheet.Shapes("Objekt 28").Visible = False
Case Else
ActiveSheet.Shapes("Objekt 28").Visible = True
End Select