Hallo Karin_Bereichsnamen mit Fehlermeldung

Hallo zusammen,
Hallo Karin,
ich hatte von Dir ein Makro zur Verfügung gestellt bekommen mit dem ich eine Tabelle in den Namen- Manager einlesen kann.
Will ich nun die Bereichsnamen einem Diagramm (Linien- Diagramm) zuordnen, bekomme ich eine Fehlermeldung.
Rechte Mouse
Daten auswählen
Datenreihen zuordnen
und danach gebe ich den zulässigen Bereich manuell ein.
=Daten!Linien_DA_001
Danach bekomme ich immer einen Fehler:
Eine Formel in diesem Arbeitsblatt enthält eine oder mehrer ungültige Bezüge.....
Trotz intensiver Überprüfung habe ich keinen Fehler gefunden.
Habe ich etwas übersehen oder ist die Bereichsformel doch nicht in Ordnung?
Nach meiner Meinung müßte die Formel o.k. sein.
Überprüft habe ich die Zuordnung in dem ich in dem ich im Namensmanager auf "bezieht sich auf" selektiere und die Zuordnung angezeigt bekomme.
eine Beispieldatei habe ich mit der Fehlermeldung angefühgt.
https://www.herber.de/bbs/user/92824.xlsm
Gruß
Lemmi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karin,
der Fehler dem ich hinterher eile ist eigendlich das Makro:

Sub NameneErstellen()
Dim lngZeile As Long
Dim strTab As String
Dim strFormel As String
Dim strName As String
For lngZeile = 6 To 10
strTab = Cells(lngZeile, 6)
strFormel = "=" & Cells(lngZeile, 5)
strName = Cells(lngZeile, 3)
Worksheets(strTab).Names.Add Name:=strName, RefersTo:=strFormel
Next lngZeile
End Sub

Demnach müssten alle Namensbereiche mit dem Übertrag durch das Makro neu erstellt / angepasst werden.
Ich möchte nur ungern alle Bereichsnamen manuell neu machen (>150).
Kann das Makro nicht angepasst, so das beim neu anlegen der Bereich "Arbeitsmappe" vorliegt!
Hierzu habe ich schon mal nachfolgendes probiert.
Ich habe in der Test- DAtei das Arbeitsblatt: Arbeitsmappe erstellt. Dann in dem Arbeitsblatt Namen F6/ F7 ...das Wort Arbeitsmappe eingetragen
Das hat zwar im Namensmanager Arbeitsmappe ausgewiesen. dies führte aber nicht dazu das ich eine Bereichnamen über die Arbeitsmappe hatte.
I
...das hat nicht funktioniert!
Ich habe nur durch F3 den manuell neu erstellen Bereichsnamen auswählen können.
..also belebt nur die möglichkeit manuel neu erstellen oder das Makro dazu zu bringen das jedem Bereichsnamen die ganze Mappe zugewiesen wird.
Siehst du noch eine Anpassungsmöglichkeit?
Gruß
Lemmi

Sub NameneErstellen() Dim lngZeile As Long Dim strFormel As String Dim strName As String For lngZeile = 6 To 10 strFormel = "=" & Cells(lngZeile, 5) strName = Cells(lngZeile, 3) ThisWorkbook.Names.Add Name:=strName, RefersTo:=strFormel Next lngZeile End Sub

Beliebteste Forumthreads (12 Monate)

Hallo Karin_Bereichsnamen mit Fehlermeldung

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hallo Karin_Bereichsnamen mit Fehlermeldung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread