Hallo,
auf dieser Webseite wird erläutert, wie dynamische Bereiche erstellt werden.
Mit der Beispiel-Arbeitsmappe auf der Webseite wurde folgender VBA-Code ausgeführt:
Sub AuslesenNamen()
Dim nm As Name
For Each nm In ActiveWorkbook.Names
Debug.Print nm.Name, nm.RefersTo
Next
End Sub
Sub NameAdd()
ActiveWorkbook.Names.Add Name:="Test", RefersTo:="=Tabelle1!$B$4:OFFSET(Tabelle1!$B$4,MATCH("""",Tabelle1!$B:$B,-1)-4,0)"
End Sub
Zuerst wurden alle vorhandenen Namen ausgelesen mit den RefersTo-Angaben.
Ausgaben =Tabelle1!$D$4:OFFSET(Tabelle1!$D$4,MATCH("",Tabelle1!$B:$B,-1)-4,0)
Kategorie =Tabelle1!$B$4:OFFSET(Tabelle1!$B$4,MATCH("",Tabelle1!$B:$B,-1)-4,0)
Anschließend wurde die RefersTo-Angaben genommen und mit diesen Angaben ein neuer Name-Eintrag erstellt. Hierbei wurden lediglich die "-Zeichen verdoppelt.
Zum Schluß wurden wiederum die Namen ausgelesen, um zu sehen, ob der Neue "Test"-Eintrag aufgelistet wird:
Ausgaben =Tabelle1!$D$4:OFFSET(Tabelle1!$D$4,MATCH("",Tabelle1!$B:$B,-1)-4,0)
Kategorie =Tabelle1!$B$4:OFFSET(Tabelle1!$B$4,MATCH("",Tabelle1!$B:$B,-1)-4,0)
Test =Tabelle1!$B$4:OFFSET(Tabelle1!$B$4,MATCH("",Tabelle1!$B:$B,-1)-4,0)
LG, BigBen
|