VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bereichsnamen in Namenn ohne Umlaute umwandeln

Gruppe

Allgemein

Bereich

Name

Thema

Bereichsnamen in Namenn ohne Umlaute umwandeln

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