Hi,
ich suche für mein Problem in https://www.herber.de/forum/messages/1063280.html
jetzt eine einfache VBA-Lösung:
Wenn über "externe Daten/Daten aktualisieren" die Daten im Bereich ab A1 geändert werden, möchte ich den Namen des Bereichs auf A1 in eine Zelle schreiben. In der Hilfe habe ich folgenden Code gefunden, der alle Namen auflistet. Aber wie gestalte ich eine Abfrage, ob Zelle A1 des aktiven Arbeitsblattes in dem Range enthalten ist? Annahme: Es gibt nur diesen einen Namen pro Arbeitsblatt, aber eben auf jedem Arbeitsblatt einen.
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next
Grüßle,
Udo