Anzeige
Archiv - Navigation
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet_SelectionChange

Worksheet_SelectionChange
19.08.2005 16:35:23
Cathy
Hallo Zusammen,
ich habe ein kleines Problem.
In einem Tabellenblatt habe ich eine Routine geschrieben, die bei Auswahl einer bestimmten Zelle eine zugehörige Grafik einblendet.
Die in Frage kommenden Zellen habe ich mit einem Namen versehen.
Die dazugehörigen Grafiken ebenso.
Beispiel: die Zelle heißt "ABC", so heißt die dazugehörige Grafik "GrafikABC"
Nun möchte ich bei Auswahl einer Zelle die zugehörige Grafik einblenden. Das klappt auch alles, allerdings lese ich dazu erst einmal alle Namen der Arbeitsmappe aus und vergleiche diese mit der zur Zeit ausgewählten Zelle, um zu überprüfen, ob diese Zelle einen Namen hat.
Hat jemand eine Idee, wie ich ohne dieses Prozedere gleich an die Information komme, ob die ausgewählte Zelle nun einen Namen hat oder nicht?
Freue mich auf Antwort
Cathy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_SelectionChange
19.08.2005 17:37:53
Matthias
Hallo Cathy,
mit On Error... lässt es sich so lösen:

'Prüft, ob Bereich einen Namen hat und gibt ihn zurück (sonst""):
Function HatNamen(b As Range) As String
Dim n As String
On Error Resume Next
n = Names(, , CStr(b.Name)).Name
If Err.Number > 0 Then
HatNamen = ""
Exit Function
Else
HatNamen = n
End If
End Function

Gruß Matthias
AW: Worksheet_SelectionChange
19.08.2005 18:41:16
Cathy
Vielen Dank Matthias,
das klappt ja super.
Beste Grüße
Cathy

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige