Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Serie von Bereichsnamenteilen einer Arbeitsmappe ändern

Gruppe

Name

Problem

Wie kann ich Bereichsnamen einer Arbeitsmappe in der Form Weber_A1 oder Müller_C1 in Schorsch_A1 bzw. Wilhelm_C1 ändern?

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

StandardModule: basMain

Sub NamenWechseln()
   Dim oName As Object
   Dim sName As String
   For Each oName In ThisWorkbook.Names
      sName = oName.Name
      If InStr(sName, "Müller") > 0 Then
         sName = Application.Substitute(sName, _
            "Müller", "Schulze")
         oName.Name = sName
      End If
   Next oName
End Sub