Zellwerte und Zell-Bereiche kann ich auslesen.
Jetzt suche ich eine Möglichkeit die Wert von Workbook.Names aus einer geschlossenen Arbeitsmappe auszulesen.
Danke
Sub a()
Dim Y As Collection, L As Long, Nm As Name
Set Y = New Collection
For Each Nm In ActiveWorkbook.Names
If Not Nm.Name Like "*!*" Then
L = L + 1
Y.Add Nm.Name, CStr(L)
End If
Next
If Y.Count > 0 Then
For L = 1 To Y.Count
MsgBox Y(L)
Next
End If
Set Y = Nothing
End Sub
Gruß GerdDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen