wie erstellt man aus der den If Abfragen Select Case Abfragen?
(zur besseren Übersicht)
Danke Peter
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