HERBERS Excel-Forum - die Beispiele

Thema: Mit VBA-Routine Bereichsnamen festlegen und ändern

Home

Gruppe

Allgemein

Problem

Wie kann ich über eine VBA-Routine eine Serie von vergebenen Bereichsnamen ändern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub AlteInNeueNamen()
   Dim nme As Name
   Dim arr() As String
   Dim iCounter As Integer, iName As Integer
   Dim sName As String, sWks As String, sAdr As String
   ReDim Preserve arr(1 To 3, 1 To ThisWorkbook.Names.Count)
   For Each nme In ThisWorkbook.Names
      sAdr = nme.RefersTo
      sWks = Left(sAdr, InStr(sAdr, "!") - 1)
      sWks = Right(sWks, Len(sWks) - 1)
      sName = Right(sAdr, Len(sAdr) - InStr(sAdr, "!"))
      iCounter = iCounter + 1
      arr(1, iCounter) = sWks
      arr(2, iCounter) = sName
      arr(3, iCounter) = nme.Name
      nme.Delete
   Next nme
   For iName = 1 To iCounter
      Worksheets(arr(1, iName)).Range(arr(2, iName)).Name = _
         "New" & arr(3, iName)
   Next iName
End Sub

Sub NamenAendern()
   Dim nme As Name
   For Each nme In ThisWorkbook.Names
      nme.Name = "New_" & nme.Name
   Next nme
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Name

Zeilen "Objekt,Name,Name,..." in Paare wandeln Vba: refersToR1C1 Namen erzeugen
Spaltenname einer intelligenten Tabelle ändern? Namensliste 2 mit Formeln ableiten
Datei löschen mit unterschiedlichen Zahlen im Name Datei löschen mit unterschiedlichen Zhalen im Name
Anzeigename aus Outlook-Verteilerliste auslesen Zellen auslesen,wenn im Blattnamen 2019
Datei öffnen mit variablen im Namen Checkboxen Namen beliebig in eine Zelle schreiben
Namens-Manager Formel in definierten Namen unabhängig von Tabelle
Namen der Tabellen kopieren Wert einer Zelle in Blatt mit diesem Zellennamen
Formen in UserForm Namen zuweisen per Makro Namen - Bezüge auf versch. Blätter
Dateinamen per VBA vorgeben (Datum: Vormonat) Zugriff auf Pfad bei "name"
Dateinamen der ausgelesenen Datei anzeigen Namen in Zelle Drehen, dabei ÄÖÜß erstet
Namen definieren für bestimmten Bereich Namen zu E- Mail Adresse umwandeln!
Spaltennamen vergeben tabellenname in variable
dynamische Namen auf Tabellenblätter beziehen Bei Doppelklick ZellName in A1
Überprüfen ob Datei/Dateiname schon vorhanden Absturz bei lokalen Bereichsnamen
ohne Vornamen sortieren Dateiname in Zelle
Datei auswählen und Namen auslesen Zell-Name in Sverweis möglich?
Dateiname in Zelle Dateinamen temporär ändern
Modul: Dateiname automatisch generieren Excel 2007 speichern unter mir Dateinamen
Name definieren Dateinamen auslesen
Name eine benannten Bereiches finden getopenfilename mit Teil der Dateiname
Arbeitsblattname in Zelle anzeigen Dateiname externer Datei ändern
Tabellenblattname autom. in Zelle schreiben. Variablenname dynamisch zusammensetzen
Name eines Zeichenelements auslesen Blattregistername in UserformLabel
Windows.Activate: Name mit Leerzeichen = Fehler Dateiname auslesen, Datei öffnen, zurück wechseln
Namen definiert- in Ereignis verwenden? SeriesCollection.Name macht Probleme