Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Name einer Zelle zurückgeben - nicht die Adresse

Name einer Zelle zurückgeben - nicht die Adresse
01.07.2005 10:32:48
Flo
Hallo,
ich habe in einem Arbeitsblatt einzelnen Zellen Namen gegen, zB. hat die Zelle $A$1 den Namen "Basis_A".
Änderungen in der Zelle will ich jetzt festhalten (Change_Ereignis) und will dabei den Namen übergeben. Mit Target.name kommt aber immer nur die Adresse.
Wie bekomme ich den von mir zugewiesenen Namen zurück.
Danke schonmal
Flo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name einer Zelle zurückgeben - nicht die Adresse
01.07.2005 11:16:18
WernerB.
Hallo Flo,
wie gefällt Dir das?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("Basis_A") Then
MsgBox "Zelle 'Basis_A' geändert !"
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Name einer Zelle zurückgeben - nicht die Adresse
01.07.2005 11:25:09
Flo
Hallo Werner,
nicht ganz so gut, da ich ziemlich viele Namen auf dem Blatt hab.
Mir wärs lieber, wenn der Name irgendwie direkt zurückgegeben wird.
Danke trotzdem
Flo
AW: Name einer Zelle zurückgeben - nicht die Adresse
01.07.2005 11:36:44
IngGi
Hallo Flo,
Bereichsnamen sind - auch wenn sie nur eine einzige Zelle umfassen - keine Eigenschaft dieser Zelle, sondern eigenständige Objekte der Arbeitsmappe. Du musst daher in einer Schleife alle Bereichsnamen der Arbeitsmappe darauf prüfen, ob die Adresse mit der Adresse deiner Target-Zelle übereinstimmt. Also etwa so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nam As Name, Zellname As String
For Each nam In ThisWorkbook.Names
If Right(nam.RefersTo, Len(nam.RefersTo) - InStr(1, nam.RefersTo, "!", vbTextCompare)) _
= Target.Address Then Zellname = nam.Name
Next nam
End Sub

Gruß Ingolf
Anzeige
AW: Name einer Zelle zurückgeben - nicht die Adresse
01.07.2005 11:39:04
Flo
DANKE! Leider ganz schön kompliziert.
Flo

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige