Gruppe
Allgemein
Problem
Wie kann ich Bereichsnamen einer Arbeitsmappe in der Form Weber_A1 oder Müller_C1 in Schorsch_A1 bzw. Wilhelm_C1 ändern?
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