Excel VBA .Worksheets"...".Names.Add produziert falsche Ergebnisse EN: wrong results

Hallo Claus
<br />"das ist kein Bug" ist für mich nicht nachvollziehbar.
Was da passiert steht eindeutig im Widerspruch zur Microsoft-Dokumentation.
Die eingestellte Bezugsart DARF BEI AUSFÜHRUNG EINES MAKROS KEINE ROLLE spielen.
Wenn ich Z1S1 verwenden möchte, dann ist dafür https://docs.microsoft.com/en-us/office/vba/api/excel.name.referstor1c1
zu verwenden.
Dank für den Link zu "direkt zu Microsoft"; den probiere ich gleich mal aus...
Der Link hier zur Community war übrigens die "Lösung" des Microsoft DE Supports...
<br />

DE: Bei Interesse kann ich eine dedizierte xlsm-Datei sowie weitere Informationen (beobachtete Laufzeit-Fehlermeldungen) bereitstellen.
---
EN: If interested: dedicated xlsm can be provided; further information to unexpected runtime error behavior can be provided.
<br />

Die Möglichkeiten zur Übermittlung von Feedback über:https://support.microsoft.com/en-us/office/uservoice-pages-430e1a78-e016-472a-a10f-dc2a3df3450a:Nicht gefunden

Tja, leider sind auch Support Webseiten im Internet von begrenzter Dauer... ist jetzt hier und anders:
<br />UserVoice Pages
<br />Zum anderen versuche ich herauszufinden wo da eigentlich das Problem sein soll.
<br />Nebenbei ;-), der Microsoft Support haut es Dir schon allein deshalb um die Ohren weil Du Dich auf eine falsche Dokuseite beziehst.
<br />https://docs.microsoft.com/en-us/office/vba/api/excel.names.add
<br />Da steht auch das man A1 benutzen soll...
<br />Lass den Code unten mal laufen... ich sehe da kein Problem in den beiden erzeugen Mappen egal welchen ReferenceStyle ist benutze. Schau in den Direktbereich, die Namen werden immer mit A1-Style erzeugt.
<br />Andreas.
<br />Sub Test()
Dim SaveSheetsInNewWorkbook, SaveReferenceStyle
Dim i As Integer
With Application
'Einstellungen sichern
SaveSheetsInNewWorkbook = .SheetsInNewWorkbook
SaveReferenceStyle = .ReferenceStyle
'Die benötigten einstellen
.SheetsInNewWorkbook = 3
.ReferenceStyle = xlR1C1
'Test
GoSub CreateWb
'Und einmal anders
.ReferenceStyle = xlA1
'Test
GoSub CreateWb
'Einstellungen wiederherstellen
.SheetsInNewWorkbook = SaveSheetsInNewWorkbook
.ReferenceStyle = SaveReferenceStyle
End With
Exit Sub

CreateWb:
Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = Workbooks.Add
For Each Ws In Wb.Worksheets
i = i + 1
Ws.Range("A1") = "Dings " & i
Ws.Names.Add Name:=Ws.Name & "_A1", RefersTo:="=" & Ws.Range("A1").Address
Debug.Print "Dings " & i, Ws.Range("A1").Address
Next
Return
End Sub
<br />

Die Möglichkeiten zur Übermittlung von Feedback über:
<br />https://support.microsoft.com/en-us/office/uservoice-pages-430e1a78-e016-472a-a10f-dc2a3df3450a:

<br />Nicht gefunden; man kann tatsächlich nur "anschauen"...
Bin jetzt auch bei der Microsoft tech community angemeldet; wurde nett "willkommen" geheißen.
Posten: Nicht möglich.
<br />

Hallo Claus
Dank für diesen Hinweis.
Die gepostete Sub wurde einzig zu dem Zweck erstellt, den Bug klar herauszuarbeiten; Microsoft darauf aufmerksam zu machen.
<br />Die benötigte Funktionalität (Hinzufügen von Arbeitsblatt-bezogenen Namen) ist Teil eines wesentlich komplexeren Gesamtwerks.
Ich möchte NICHT jedem Empfänger meines VBA-Programms mitteilen, dass sie bzw. er die Schreibweise für Zellbezüge in den Optionen (vom A1-Standard) umstellen muss, um mein VBA-Programm nutzen zu können...
---
Erwartung an Microsoft Excel VBA ist, dass es den an RefersTo übergebenen String NICHT verändert, sondern gemäß Microsoft-Dokumentation übernimmt und dass sich der Name anschließend erwartungsgemäß nutzen lässt.
Ist das "zu viel" verlangt?
---
Die Zeile, die den Kommentar mit einer Leer-Zeichenkette belegt, wurde von der Makro-Aufzeichnung übernommen.
Um die Kommentare soll es in dieser Anfrage NICHT gehen; dennoch Dank für den Hinweis auf ClearComments.
<br />