.Names("xxx").RefersToRange.Parent.Name
Peter
Die benannten Bereiche "loeCSV" und "zeLoePrint" sind beide in Tabellen, die mit einer numerisch benannt sind, enthalten.
Im Direktbereich können diese wie folgt ausgewertet werden:
?range("loecsv").Address
$FP$2:$FP$67
?range("zeLoePrint").Address
$FO$2:$FO$4,$FO$26:$FO$28,$FO$53
?range("loecsv").parent.name
0829
?range("zeLoePrint").parent.name
0829
Nun möchte ich mit untenstehendem Code die Tabellennummer als Longvariable "lCSV" resp." lzePrint" zuweisen. Den Bereich "loeCSV" kann ich auswerten (0829 * 1 = 829), nicht jedoch "zeLoePrint".
Der Code muss auch funktionieren, wenn sich der Code beim Ablaufen nicht im aktiven Workbook befindet.
Wer kann mir helfen?
Danke und Gruss, Peter
With ThisWorkbook
lCSV = ThisWorkbook.Sheets(.Names("loeCSV").RefersToRange.Parent.Name).Name * 1
End With
With ThisWorkbook
lzePrint = ThisWorkbook.Sheets(.Names("zeLoePrint").RefersToRange.Parent.Name).Name * 1
End With