Mitarbeiternamen in Formeln durch Neutrale Namen ersetzten?

[schauan]

Hallöchen,

hier mal ein einfacher Ansatz.
Trage auf Grunddaten in Zelle A19 den alten Namen ein und in Zelle B19 den neuen.

Arbeitsblatt mit dem Namen 'Grunddaten'
	A	B
18	Ersetzen
19	Bohrer	Körner

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

In C19 kannst DU eine Schaltfläche einfügen, z.B. aus den Formularsteuerelementen. Diese erhält folgenden Code:

Code:

Sub Schaltfläche1_Klicken()
Dim objSheet As Worksheet
For Each objSheet In Worksheets
    If objSheet.Name <> "Grunddaten" Then
      objSheet.Cells.Replace What:=Sheets("Grunddaten").Range("A19").Value, Replacement:=Sheets("Grunddaten").Range("B19").Value, LookAt:=xlWhole
    Else
      objSheet.Range("A1:A5").Replace What:=Sheets("Grunddaten").Range("A19").Value, Replacement:=Sheets("Grunddaten").Range("B19").Value, LookAt:=xlWhole
    End If
Next
End Sub

Problematisch wird die Sache übrigens, wenn Du z.B. einen Müller 2x hast.... Wenigstens einer von beiden müsste dann in Deiner Namensliste umbenannt bzw. mit einem Kennzeichen versehen werden
Statt objSheet.Range("A1:A5") könnte man übrigens auch den Tabellennamen und die Spalte verwenden. Eventuell müsste man wegen der Gültigkeit noch sicherstellen, dass zuerst die Namensliste geändert wird.