Office: Fehlermeldung "Laufzeitfehler 1004!" Methode "Range" fehlgeschlagen

Hallo zusammen,
ich habe folgendes für mich nicht lösbares Problem zur Zeit:
Folgende Fehlermeldung erhalte ich, wenn ich den Code unten ausführen lasse, wenn ich ein Tabellenblatt aktiviere:
--------------------------------------
Laufzeitfehler 1004!
Die Methode "Range" für das Objekt "_Worksheet" ist fehlgeschlagen...

-------------------------------------
Private Sub Worksheet_Activate()
With Me
.Shapes("Cockpit_Projektstatus_Mann_rot").Visible = (Range("projektstatus").Value = "STOP")
.Shapes("Cockpit_Projektstatus_Mann_gruen").Visible = (Range("projektstatus").Value = "GO")
.Shapes("Cockpit_Projektstatus_Closed").Visible = (Range("projektstatus").Value = "CLOSED")
End With
End Sub
------------------------------------

Kann mir jemand weiterhelfen? Wo liegt hier wohl mein Fehler?
Vielen Dank im Voraus.

:)

 

Hallo DerDumme,

schreibe statt:Range("projektstatus").Value
es so: ThisWorkbook.Names("projektstatus").RefersToRange.Value

Ich habe mit der oberen Schreibweise auch immer mal Probleme, wenn der definierte Name auf einem anderen Tabellenblatt liegt.

Gruß von Luschi
aus klein-Paris

 

Hej Luschi,

vielen Dank...!!! Perfekt, läuft nun einwandfrei...!!

Guten Rutsch wünsche ich ...