habe unten stehende Abfrage nach der Ansicht von verschiedenen Objekten in einer Tabelle formuliert.
Leider bekomme ich immer "Laufzeitfehler ..."
Die GoSub-Anweisung war ohnehin schon ein Hilfsmittel, welches sicherlich nicht korrekt war, da er die Else-Anweisung vorher nicht beachtet hat.
Wer kann helfen ?
Danke !
Karl
Option Explicit
________________________
Private Sub Worksheet_Calculate()
If Range("H9") = "f" Then
ActiveSheet.Shapes("Objekt 18").Visible = False
GoSub H9
Else
ActiveSheet.Shapes("Objekt 18").Visible = True
End If
If Range("H9") = "NA" Then
ActiveSheet.Shapes("Objekt 18").Visible = False
Else
ActiveSheet.Shapes("Objekt 18").Visible = True
End If
H9:
End Sub