Zellenformeln verkürzen durch Namen definieren (variable)

[Woofer]

Hallo zusammen,
ich möchte gerne meine Zellen übersichtlicher gestalten.

z.B. so

=SUMMEWENNS([1.xlsb]Bericht!$I:$I;[1.xlsb]Bericht!$A:$A;A11)......

dies möchte ich ersetzen ersetzen durch

=SUMMEWENNS(Pfad1;Pfad2;A11)

____________________________________
Dazu definiere ich die Namen wie folgt:

Private Sub Workbook_Open()

ActiveWorkbook.Names.Add Name:="Pfad1", RefersTo:="[1.xlsb]Bericht!$I:$I"
ActiveWorkbook.Names.Add Name:="Pfad2", RefersTo:="[1.xlsb]Bericht!$A:$A"
End Sub
__________________________________
Das Ergebnis ist #WERT (Ein in dieser Formel verwendeter Wert ist vom falschen Dateityp)

Wenn ich in einer Zelle =Pfad1 eingebe steht dort korrekt  [1.xlsb]Bericht!$I:$I
Wieso klappt das nicht in einer Formel? ´Hat jemand eine Idee wo es klemmt?

[Woofer]

Ist mein Weg gänzlich falsch? Wie vereinfacht Ihr eure Formeln in den Zellen?

[BoskoBiati]

Hallo,



das Makro gehört in DieseArbeitsmappe und sollte so aussehen:

Code:

Private Sub Workbook_Open()

ActiveWorkbook.Names.Add Name:="Pfad1", RefersTo:=Workbooks("1.xlsb").sheets("Bericht").Range("I:I")
ActiveWorkbook.Names.Add Name:="Pfad2", RefersTo:=Workbooks("1.xlsb").sheets("Bericht").Range("A:A")
End sub