Code Snippet "VBA Excel"

Absolute Bezüge eines benannten Bereiches für den übergebenen Namen

inklusive Fehlerbehandlung, falls Name nicht existiert

'liefert absolute Bezüge eines benannten Bereiches für den übergebenen Namen
'falls Name nicht existiert, wird "" zurückgeliefert
Function funAbsAddressOfName(ByVal strName As String) As String
  On Error GoTo fehler
  funAbsAddressOfName = _
    ThisWorkbook.Names(strName).RefersToRange.Address(True, True)
  Exit Function
fehler:
  funAbsAddressOfName = ""
End Function