Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bereichsnamen in Namenn ohne Umlaute umwandeln

Gruppe

Name

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