HERBERS Excel-Forum - die Beispiele

Thema: Bereichsnamen in Namenn ohne Umlaute umwandeln

Home

Gruppe

Allgemein

Problem

Bereichsnamen sollen gelesen und in Namen ohne Umlaute umgewandelt werden.

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

Sub ReadNames()
   Dim nme As Name
   For Each nme In ThisWorkbook.Names
      MsgBox nme.Name
   Next nme
End Sub

Sub ChangeNames()
   Dim nme As Name
   For Each nme In ThisWorkbook.Names
      With WorksheetFunction
         If InStr(nme.Name, "ä") Then
            nme.Name = .Substitute(nme.Name, "ä", "ae")
         ElseIf InStr(nme.Name, "ö") Then
            nme.Name = .Substitute(nme.Name, "ö", "oe")
         ElseIf InStr(nme.Name, "ue") Then
            nme.Name = .Substitute(nme.Name, "ü", "ue")
         End If
      End With
   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