Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1656to1660
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
Inhaltsverzeichnis

ActiveWorkbook.Names ersetzen

ActiveWorkbook.Names ersetzen
15.11.2018 09:45:31
petero
Hallo,
ich habe in einer Tabelle diverse Bereiche mit Namen versehen. Hier muss nun eine Änderung vorgenommen werden. Beispiel:
AB_XYZ wird zu CDE_XYZ
AB_ACB wird zu CDE_ACB
Es sind die ersten zwei Buchstaben (immer AB!) durch drei andere (immer CDE!) zu ersetzen.
Die alten Namen (AB_...) sind anschließend zu löschen.
Gibt es dafür eine Lösung per VBA? Händisch ist das nämlich aufgrund der Vielzahl sehr mühsam und der Macrorekorder bringt mich da nicht weiter.
Gruß Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveWorkbook.Names ersetzen
15.11.2018 09:58:31
EtoPHG
Hallo Peter,
Probier mal (in ein Modul):
Sub NamenUmbennen()
Dim ns As Name
For Each ns In ActiveWorkbook.Names
If Left(ns.Name, 3) = "AB_" Then
ns.Name = Replace(ns.Name, "AB_", "CDE_")
If Left(ns.Name, 3) = "AB_" Then ns.Delete
End If
Next ns
End Sub
Gruess Hansueli
Danke, es kann so einfach sein - kwT
15.11.2018 10:31:42
petero
.
Anzeige

208 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige