Gruppe
Allgemein
Problem
In 7 Tabellenblättern wird gezeigt, wie mit benannten Bereichen und benannten Funktionen gearbeitet werden kann
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim txt As String
On Error Resume Next
ThisWorkbook.Names("Extern").Delete
On Error GoTo 0
txt = "'" & ThisWorkbook.Path & "\[TestXL4.xls]Tabelle1'!$A:$B"
txt = "=VLOOKUP(Extern!IV1," & txt & ",2,0)"
ThisWorkbook.Names.Add "Extern", txt
End Sub