Hätte wieder mal eine Bitte/Frage:
Hier werden auf einem Blatt Bereichsnamen definiert (4 Schleifen - bis zu 240 Bereiche)
For Each wks In Worksheets
If Left(wks.Name, 3) = "ABC" Then
For i = 21 To lastMA Step 8
Cells(i, 1).Offset(-3, 2).Resize(, 32).Select
With Selection
.Name = "PlanStartZeile_von_" & Cells(i, 1)
End With
Next i
End If
Dann will ich die Namen nur aus diesem Blatt zu Unionen zusammenfassen:
ActiveWorkbook.Names - würde klappen aber müsste nur für das active Blatt die Namen auslesen/und anschließend zusammenfassen.
Dim DefinierteBereichsNamen As Names, Zaehlwerk As Integer
Set DefinierteBereichsNamen = ActiveWorkbook.Names 'funktioniert - ist aber nicht blattbezogen und liest daher zuviele aus
Dachte mir so:?
Set DefinierteBereichsNamen = ActiveSheet.Names 'geht nicht ? ---Count ist null
Vielleicht wäre es überhaupt am besten gleich oben bei:
.Name = "PlanStartZeile_von_" & Cells(i, 1)
den Namen exakt auf das active Blatt zu definieren ?
Besten Dank und in der Hoffnung auf pos. Nachricht.
LG STeve