aut. gen. Bereichsnamen ausl. und in Union vereine
17.03.2017 09:08:42
Steve
Habe - automatisch generierte - definierte Bereichsnamen erstellt:
Dim intAuszaehlung As Integer
For intAuszaehlung = 5 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
Cells(intAuszaehlung, 1).Offset(-2, 1).Resize(, 5).Interior.ColorIndex = 3
With Selection 'Generiere aufgr. der eingetr. Mitarbeiter einen def. Namensbereich
.Name = "RZ_von_" & Cells(intAuszaehlung, 1).Value
End With
Next intAuszaehlung
Diese Namen kann ich auch auslesen:
Dim DefinierteBereichsNamen As Names, StrTmp As String, i As Integer
Set DefinierteBereichsNamen = ActiveWorkbook.Names
'liest alle darüber generierten def. Namenbereiche aus
For i = 1 To DefinierteBereichsNamen.Count
StrTmp = StrTmp & DefinierteBereichsNamen(i).Name & DefinierteBereichsNamen(i).RefersTo
Next
MsgBox StrTmp
Jetzt stehe ich vor dem Problem wie ich diese ausgelesenen BereichsNamen automatisch in eine Range-Union zusammenfassen (da es aber schlussendlich ca. 50 Bereiche/Mitarbeiter sind und anscheinend nur 30 in eine Union passen wird es noch komplizierter) lassen kann:
Dim rngmulti As Range 'wie kommen die Definierten BereichsNamen in die Union?
Set rngmulti = Application.Union(Range(" ...?...."), Range("....?...."), Range("...?...."))
Anbei eine Datei- aber nur mit 4 Mitarbeitern.
https://www.herber.de/bbs/user/112236.xlsm
Besten Dank
Steve