Thema: Bereichsnamen in Namenn ohne Umlaute umwandeln

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