aus If Abfrage - SelectCase Abfrage

Sub BenannteZellensuche()
Dim benannteBereiche As Object
Dim VglName As String
For Each benannteBereiche In ThisWorkbook.Names
VglName = benannteBereiche.Name
If InStr(VglName, "Zuname") > 0 Then Range(VglName) = "TestZuname"
If InStr(VglName, "Vorname") > 0 Then Range(VglName) = "TestVoname"
If InStr(VglName, "geb") > 0 Then Range(VglName) = "Testgeb"
Next benannteBereiche
End Sub