Namen in Excel anwenden ist fehlerhaft?

Ich kann dies nicht replizieren (mit meiner Version von Excel unter Windows 7).

Wenn ich Ihre Namen definiere und Formeln dann erstelle

Dann bewerben Sie sich mit Namen

Ich bekomme das gewünschte Ergebnis -

Wie definieren Sie die Namen? Ich wähle die Zelle aus, klicke auf den Titel links von der Formelleiste und tippe den Namen ein.

Mit Ihnen -

Namen anwenden -

Wie hier gezeigt

Keine Änderung ohne "Formeln anzeigen" -

Namen anwenden

Okay, los geht's. Office 2013, Windows 7

Namen anwenden

Sieht aus wie ein replizierter Fehler.

Okay, lass uns Excel 2016 auf OSX Yosemite ausprobieren

Definieren wir unsere Namen und Formeln -

Gut, gut, lasst uns unsere Namen anwenden

Was? Alert Formula ist zu lang

Nun wählte es mein countund .. was? Warnung Microsoft Excel kann keine Referenzen zum Ersetzen finden

Und es ist ein teilweiser Fehlschlag?

Okay, dann machen wir das manuell -

Merkwürdig, die Reichweite wird nicht hervorgehoben, nur die beiden Zellen?

Aber es funktioniert?

Nur zum Vergleich counthebt ein regelmäßiger Bereich den Bereich hervor -

Sagen wir, wir beginnen mit:

und wir haben bereits Namen für A2 und B2 vergeben . Ziehen Sie auf der Registerkarte "Formeln" Folgendes nach unten:

Name definieren > Namen anwenden ...

Vergewissern Sie sich, dass wir sowohl Namen als auch Berührungen mit einem Licht aufnehmen OK

und wir bekommen:

und so werden die Namen angewendet!

Wie in der Codeüberprüfung hervorgehoben wurde, führt dies zu Problemen, wenn beispielsweise nach "A1" und "A10" usw. gesucht wird.

Okay, hier ist mein Versuch einer Umgehung. Dabei müssen Ihre Formeln stets absolute Referenzen verwenden . Es funktioniert bei benannten Bereichen, die größer als 1 Zelle sind.

Bitte beachten Sie, dass ich suche usedrange- aber Sie können dies durch Zurücksetzen einschränken srchRng.

Option Explicit Sub FixNames()  Dim ClctNames As Variant Set ClctNames = ActiveWorkbook.Names  Dim rngName As String Dim rngNameLoc As String Dim strFrmla As String  Dim c As Range Dim n As Integer  'Define as needed Dim srchRng As Range Set srchRng = ActiveSheet.UsedRange  'For each name (n) in the collection For n = 1 To ClctNames.Count  'I'm storing the Named Range's name and address as strings to use below rngName = ClctNames(n).Name rngNameLoc = ClctNames(n).RefersToRange.Address  '--Should I break this out into a function? If so, at what point? For Each c In srchRng 'We only want to test cells with formulas If c.HasFormula = True Then 'We have to check if the cell contains the current named range's address If InStr(1, c.Formula, rngNameLoc, vbTextCompare) <> 0 Then 'Since these are perfect matches, no need to look for length or location, just replace strFrmla = Replace(c.Formula, rngNameLoc, rngName) c.Formula = strFrmla End If End If Next Next  'No error handling should be needed  End Sub 

Sie müssen absolute Referenzen verwenden, da beim Abrufen des benannten Bereichs RefersToRange.Addressein Bereichsobjekt zurückgegeben wird - nicht ein Bereich . Ich setze es also als Zeichenfolge. Ich denke, Sie könnten eine Funktion schreiben, die die $absoluten Referenzen entfernt, wenn Sie möchten.

_{das hat Spaß gemacht}