Adresse des benannten Bereiches ohne VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Tabellenblatt: [Mappe2]!Tabelle1 │ E │ ──┼────────── _ 9472;───────────────────┤ 1 │ =[Mappe2]Tabelle1!Z2S1:Z12S4 │ ──┴────────── _ 9472;───────────────────┘ Benutzte Formeln: E1: =Ö Festgelegte Namen: Tabelle1!Print_Area: =Tabelle1!$A$2:$D$12, unbenutzt in Selektion. Ö : =NAMEN.ZUORDNEN("Druckbereich") E1 hat das Zahlenformat: Standard

Tabellenblatt: [Mappe2]!Tabelle1 | E | 1 | =[Mappe2]Tabelle1!Z2S1:Z12S4 | Benutzte Formeln: E1: =Ö Festgelegte Namen: Tabelle1!Print_Area: =Tabelle1!$A$2:$D$12, unbenutzt in Selektion. Ö : =NAMEN.ZUORDNEN("Druckbereich") E1 hat das Zahlenformat: Standard

...Peter,
muss man halt damit leben... ;-)
Die "elegante" Lösung von Reinhard beruht zwar nicht auf VBA, aber auf (noch xl-integrierten) XLM[akro]-Fktt. Sie ist nicht mal mehr halb so elegant, wenn du sie mit xlStandardfktt in das von dir gewünschte A1-Format umwandelst wie bspw so...
=TEIL(ZELLE("Dateiname";Druckbereich);SUCHEN("]";ZELLE("Dateiname";Druckbereich))+1;99) &"!"&
ADRESSE(ZEILE(INDIREKT(TEIL(DrBer;2;SUCHEN(":";DrBer)-2);0));SPALTE(INDIREKT(TEIL(DrBer;2;
SUCHEN(":";DrBer)-2);0)))&":"&ADRESSE(ZEILE(INDIREKT(TEIL(DrBer;SUCHEN(":";DrBer)+1;99);0));
SPALTE(INDIREKT(TEIL(DrBer;SUCHEN(":";DrBer)+1;99);0)))
Das macht dann 330 Zeichen + die für die benannte Fml!
Allerdings lässt sich die von dir gewählte Fml noch vereinfachen. So wären es dann 223 statt 258 Zeichen...
=TEIL(ZELLE("dateiname";Druckbereich);SUCHEN("]";ZELLE("dateiname";Druckbereich))+1;99) &"!"&
ZELLE("adresse";Druckbereich)&":"&ADRESSE(ZEILE(Druckbereich)+ZEILEN(Druckbereich)-1;
SPALTE(Druckbereich)+SPALTEN(Druckbereich)-1)
Die wirklich eleganteste Lösung ist der bzw basiert auf dem Vorschlag mit der Namensliste. Diese ist nämlich genau dann unverzichtbar, wenn man eine ordentliche Tabellendokumentation aufbauen will. Und das fkt immer und liefert vollständige Namen und ihre Bezugsformeln! Deshalb basieren meine udFktt für die Namensauswertung auf analogen Mechanismen; man muss also nicht wissen, für welches Tabellenblatt der Name gilt!
Alle anderen Lösungen fkt nämlich nur auf dem Blatt, für das auch der Name gilt. Auf anderen Blättern kannst du das ALLES vergessen!
Fazit: Wirkliche "Eleganz" und Flexibilität ist hier nur mit VBA zu erreichen. Wenn das ein (über)vorsichtiger Admin nicht begreifen kann bzw will (verständlich, würde einem Laien/Anfänger auch nicht "über den Weg" trauen!), hast du halt Pech gehabt... ;-)
Gruß Luc :-?
Besser informiert sein!

Tabellenblatt: [Mappe1]!Tabelle1 | B | 1 | =Tabelle1!$A$3:$J$7 | Benutzte Formeln: B1: =Ä Festgelegte Namen: Ä : =FORMEL.UMWANDELN(Ö;FALSCH;WAHR) Tabelle1!Print_Area: =Tabelle1!$A$3:$J$7, unbenutzt in Selektion. Ö : =NAMEN.ZUORDNEN("Druckbereich"), unbenutzt in Selektion. B1 hat das Zahlenformat: Standard

...sämtlicher XLM-Fktt haben, Reinhard,
aber deshalb aktiviere ich nicht mein altes xl5 (falls die da nicht auch schon nicht mehr dokumentiert wdn). Irgendwo im Web schwirren allerdings noch XLM-Listen rum - hab ich schon gesehen!
VBA ist mit Mühe und Not noch mal gerettet worden und auch noch XLM; Letzteres wird aber schon lange nicht mehr offiziell von MS dokumentiert. Damit will man wohl die Benutzerzahl zurückfahren. Irgendwann wird's das also nicht mehr geben. Die Eigenbau-XL4-Makros bereiten schon seit Längerem Probleme. Außerdem habe ich das (seinerzeit geniale) Zeug nicht nötig. Meine udFktt können direkt im TabBlatt eingesetzt wdn und müssen nicht den Umweg über benannte Fmln nehmen!
Wollte man allerdings einigermaßen zukunftssicher arbeiten (für nach xl12), müsste man ohnehin C# für das .Net-Framework verwenden bzw udFkt-VBA-AddIns zu COM-AddIns kompilieren. Oder aber man steigt auf SunBasic für OpenOffice um. Da gibt's ja hier schon einen Pionier... ;-)
Fazit: Wenn VBA Gestern ist, ist XLM Vorgestern!
Allerdings kann ich nur raten, warum MS diese Fktionalität nicht als "normale" Fktt in XL einbindet... Wohl andere Präferenzen bzw Prämissen!?
Gruß Luc :-?

Sub Makro3() On Error GoTo schluss If DialogSheets("Dialog6").EditBoxes("Bearbeitungsfeld 4").Text Empty Then Beginnstopp = DialogSheets("Dialog6").EditBoxes("Bearbeitungsfeld 4").Text DialogSheets("Dialog6").EditBoxes("Bearbeitungsfeld 4").Text = Beginnstopp End If Exit Sub schluss: Makro11 End Sub

Beliebteste Forumthreads (12 Monate)

Adresse des benannten Bereiches ohne VBA

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Adresse des benannten Bereiches ohne VBA

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread