Hallo Könner und Gönner.
Möchte immer nur bestimmte Bereichsnamen (z.B. im Namen befindet sich der Text "...Mitarbeiter..." auslesen und in Union zusammenfassen.
Hier der Code:
Dim DefinierteBereichsNamen As Names, i As Integer
Set DefinierteBereichsNamen = ActiveWorkbook.Names
Dim rngBereich As Range
For i = 1 To DefinierteBereichsNamen.Count 'die Namen (aber eben alle) werden ausgelesen
If rngBereich Is Nothing Then ' Namen werden Bereich zugeordnet und in die Union verfrachtet
Set rngBereich = Range(DefinierteBereichsNamen(i).RefersTo)
Else
Set rngBereich = Application.Union(rngBereich, Range(DefinierteBereichsNamen(i).RefersTo))
End If
Next
Nehme an dass die Lösung hier..........DefinierteBereichsNamen.Count...liegt?
Besten Dank.
Steve