Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adresse des benannten Bereiches ohne VBA

Forumthread: Adresse des benannten Bereiches ohne VBA

Adresse des benannten Bereiches ohne VBA
06.01.2009 22:09:00
Peter
Guten Abend
Gibt es eine Möglichkeit, mittels einer Formelabfrage ausfindig zu machen, wo ein bestimmter Bereich liegt?
Angenommen der Druckbereich in Tabelle1 ist B2:P2 müsste das Ergebnis der Abfrage
=Tabelle1!$B$2:$P$2
sein.
Gruss, Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 22:20:00
Reinhard
Hi Peter,
das geht über Namen vergeben, siehe den Namen Ö

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


Gruß
Reinhard

Anzeige
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 22:21:10
Sonnenpeter
Hallo,
vielleicht hilft Dir das weiter.
$A$7:$E$11 =ZELLE("Adresse";Range)&":"&ZELLE("Adresse";INDEX(Range;ZEILEN(Range);SPALTEN(Range)))
Gruß Sonnenpeter
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 22:21:00
Reinhard
Hi Peter,
das geht über Namen vergeben, siehe den Namen Ö

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


Gruß
Reinhard

Anzeige
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 22:23:17
Uwe
Hi Peter,
per Formel wüsste ich nicht wie (daher Frage offen), aber wenn Du auf:
Einfügen / Name / Einfügen gehts und dann:
Liste einfügen.
anklickst, erstellt Excel eine Liste aller Namen und der Bereiche.
Vielleicht hilft Dir das schon (evtl. mit einem SVERWEIS darauf zugreifen?)
Gruß
Uwe
(:o)
Anzeige
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 22:28:00
Daniel
Hi
zumindest den Zellbereich kannst du so ermitteln:
=ADRESSE(ZEILE(Druckbereich);SPALTE(Druckbereich);4;WAHR)&":"&ADRESSE(ZEILE(Druckbereich) +ZEILEN(Druckbereich)-1;SPALTE(Druckbereich)+SPALTEN(Druckbereich)-1;4;WAHR)
wie man an den Tabellenblattnamen kommt, weiß ich grad auch nicht.
Gruß, Daniel
Anzeige
AW: Adresse des benannten Bereiches ohne VBA
06.01.2009 23:31:08
Peter
Guten Abend
Vielen Dank für alle Antworten.
Die eleganteste Lösung wäre für mich diejenige von Reinhard gewesen - nur wollte ich die Ausgabe nicht im Format ZS (oder könnte man dies noch umwandeln?).
Deshalb habe ich aufgrund der Antworten nun folgende Formel gebastellt:
=TEIL(ZELLE("Dateiname";Druckbereich);SUCHEN("]";ZELLE("Dateiname";Druckbereich))+1;99) &"!"&ADRESSE(ZEILE(Druckbereich);SPALTE(Druckbereich);1;WAHR)&":"&ADRESSE(ZEILE(Druckbereich) +ZEILEN(Druckbereich)-1;SPALTE(Druckbereich)+SPALTEN(Druckbereich)-1;1;WAHR)
Gruss, Peter
Anzeige
Wenn man ohne VBA auskommen will,...
07.01.2009 00:39:47
Luc:-?
...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!
Anzeige
AW: Wenn man ohne VBA auskommen will,...
07.01.2009 00:54:00
Peter
Hallo Luc
Vielen Dank für deine interessanten Hinweise.
Zur Funktionsfähigkeit "meiner" Lösung: Diese ist nach meiner Feststellung nicht nur auf dem Blatt gegeben, sondern in der ganzen Arbeitsmappe. Allerdings weil ich nur beispielshaft den "Druckbereich" erwähnt habe. Ich verwende die Formel jedoch für Namen, die im entsprechenden Workbook einmalig sind (ein Profi würde wohl sagen: globale Gültigkeit haben ... ?).
Freundlicher Gruss, Peter
Anzeige
Die müssen dann aber stets für die ganze...
07.01.2009 02:30:11
Luc:-?
...Mappe gelten, Peter,
sonst tritt dann das gen.Problem auf.
Ansonsten findest du das in xl9 im Menü Einfügen - Name - Einfügen... Die Namen und ihre Bezugsfmln wdn in 2 Spalten ab Auswahlzelle eingefügt. Also entsprechenden Freiraum wählen!
Glück auf!
Luc :-?
Anzeige
wemm Ö nicht reicht nehmen wir halt Ä :-)
07.01.2009 01:06:00
Reinhard
Hallo Luc und alle Interessierten,
zunächst, daß mit dieser Namensliste gibt es in XL2000 nicht, ich finde es nämlich nicht. Richtig?
Wie wäre es dann damit:

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


Gruß
Reinhard

Anzeige
Tja, da muss man noch eine Liste...
07.01.2009 02:20:41
Luc:-?
...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 :-?
Anzeige
AW: Tja, da muss man noch eine Liste...
07.01.2009 02:58:00
Reinhard
Hallo Luc,
ich bin noch nicht fit für COM-Add Ins, ich glaub dazu brauche ich VB6, habe aber nur VB5.
Ich kann da aber auch was verwechseln.
Ich habe eine Datei namens xlmacr8ge.hlp , da stehen diese XL4 Anweisungen drin. Wenn du willst und in der profilliste stehst kann ich dir sie schicken.
Auf diese XL4-Funktionen kam ich nur durch excelformeln.de.
Bzw. so Anfragen wie man Farben von Zellen ermitteln kann usw.
Aus Interesse habe ich hier schonmal nachgefragt wie ich denn aus den XL4-Funktionen ein Makro bilde und wie ich ich das dann starte.
Leider kam keine brauchbare Antwort, vielleicht weiß das keiner mehr.
Ich weiß nur, die wurden damals in Zellen einer Tabelle geschrieben und dann irgendwie gestartet.
Desgleichen, wenn ich eine Tabelle einfügen will könnte ich auch einen XL5 Dialog einfügen. Schön, damit schon rumgespielt, nur ich habe Null Plan wie ich das irgendwie aufrufe oder sonstwas mit dem Ding mache.
Naja, nicht so wichtig.
PS: wenn ich "nicht so wichtig" sage heißt das i Klartext, verdammt nochmal wie geht denn das, z.B. mit XL2000?
Gruß
Reinhard
Anzeige
AW: Tja, da muss man noch eine Liste...
07.01.2009 21:15:00
Gerd
Hallo Reinhard,
noch im Echteinsatz, aber wie damals ......? :-)
DialogSheets("DialogAUSWAHL").Show

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


Gruß Gerd

Anzeige
AW: Tja, da muss man noch eine Liste...
08.01.2009 18:26:32
Reinhard
Hallo Gerd,
danke dir, ich glaube jetzt habe ich das mit XL5-Dialog kapiert.
Mit DialogSheets("Dialogblattname").Show
kann ich das per Vba anzeigen lassen.
Dann kann ich aus "Formular" diese Form bestücken ähnlich einer UF dann z.B. einem Commandbutton ein Makro zuweisen ähnlich deinem dann kann ich Einträge in der Form mittels
DialogSheets("Dialogblattname").EditBoxes("Textboxname").Text
auslesen o.ä.
Sehr schön, das befiedigt meinen Wissensdurst in dem Punkt.
Bliebe noch XL4, kennst du dich da auch aus?
Also daß ich in paar Zellen XL4-Code schreibe und wie ich den starten könnte in XL2000?
z.B. den Klassiker:

Sub Test()
MsgBox "hello world"
End Sub


in drei Zeilen als XL4-Code schreiben, z.B. so
Start()
Zeige "hello world"
Ende
und das dann starte in XL2000? So irgendwie: executeXl4macro(range("A1"))
Die Auskunft, daß das nicht geht reicht mir auch dicke :-)
Gruß
Reinhard
DialogSheets("Dialog6").EditBoxes("Bearbeitungsfeld 4").Text

Anzeige
AW: Tja, da muss man noch eine Liste...
08.01.2009 21:49:59
Gerd
Hallo Reinhard,
da kann ich dich leider nicht mit einem kurzen "Nein" zufriedenstellen.
Guckst Du zum Beispiel:
http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen:_XL4-Makros_in_VBA_verwenden
Dies ist nun aber absolut nicht mein Ding.
Warum beschäftigst Dich damit, wenn ich fragen darf ?
Gruß Gerd
Anzeige

Forumthreads zu verwandten Themen

Kopieren eines Bereiches in ein neues Arbeitsblatt
Anett

Hallo,
ich habe ein Problem bei dem ich nicht weiterkomme:
Ich möchte einen Bereich aus einem Arbeitsblatt in ein anderes von insgesamt 20 Arbeitsblatt kopieren. Allerdings gibt es noch eine Schwierigkeit: Der zu kopierende Bereich hat 124 Zeilen. Jede Zeile soll abhängig von Ihrem Inha...
10.09.2008 11:12:00
Thread-ID: 1008687
2 Beiträge
Zellinhalte eines Bereiches in MsgBox?
Robert

Hallo,
ich stehe vor dem Problem, dass ich die Zellinhalte eines festen Bereiches (IU1:IU20), sofern überhaupt Einträge dort vorhanden sind, diese ausgeben müsste.
Dachte das würde mit einer MsgBox funktionieren. Ich kriegs nicht auf die Reihe. Den Inhalt einer Zelle anzuzeigen ist kein...
07.11.2008 18:31:54
Thread-ID: 1022782
3 Beiträge
letzter Eintrag eines Bereiches (begrenzte Spalte)
walter

Hallo und guten Abend,
ich suche eine Formel (kein Makro) um den letzten Eintrag eines Spaltenbereiches in einer anderen Zelle darzustellen.
Wer weiß Rat ?
Danke + Gruß
Walter
11.02.2009 23:17:00
Thread-ID: 1049842
4 Beiträge
Anzeige
Letzte Zeile eines Bereiches finden
Claudia

Hallo zusammen,
ich suche per Formel die letzte belegte Zelle im Bereich E22:E33. Kann mir da jemand helfen? Es darf nicht die letzte belegte Zelle in Spalte E sein, weil im Anschluss noch Zellen belegt sind.
Danke!
Viele Grüße
Claudia
27.04.2009 15:07:05
Thread-ID: 1071392
9 Beiträge
Namensbereichesbeschriftung unischtbar machen
Herbert

Ich würde gerne für einen Anwender die Namensbereichsbeschriftung in der 25% Ansicht (und etwas größere) unsichtbar machen, da diese stört. (Einstellungen-Namen). Wie geht das in Excel bzhw VBA?
Herzlichen Dank Herbert
04.05.2009 12:31:50
Thread-ID: 1072719
6 Beiträge
Erste Zelle eines Bereiches
Yusuf

Moin
gibt es eine Möglichkeit die Adresse der ersten (links oben) Zelle eines festegelegten Bereiches zu ermitteln?
z.B.:
Set RaBereich = Range("A2:O54")
hier waere es "A2"
Vielen Dank im voraus.
mfg
Yusuf
26.06.2009 11:15:20
Thread-ID: 1084529
6 Beiträge
Exitenz eines Namensbereiches prüfen ?
k

Hallo,
wie kann ich per VBA prüfen, ob ein Namensbereich vorhanden ist und ihn dann ggf. löschen ?
Löschen vermutlich so:
ActiveWorkbook.Names("KD").Delete
Aber wie kann ich in der aktiven Mape danach suchen - ob es ihn gibt zum löschen ?
so:
If ... Name("KD"). gi...
29.07.2009 10:58:40
Thread-ID: 1092172
9 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:32:35
Thread-ID: 1122384
3 Beiträge
Summe eines Bereiches wenn 2 Kriterien
Andre

Hallo liebe Leute,
mal wieder eine kleine Frage.
hier ein Beispiel.

was mache ich da genau für einen Fehler?
hab es schon mit Summewenn versucht, doch die kann nur ein Kriterium oder?
Also er soll nur die Werte des Bereiches A3:A7 zusammenrechnen, wenn B3:B7;B10 UND wen...
08.12.2009 13:33:29
Thread-ID: 1122390
2 Beiträge
Anzeige
aktive Zelle an Anfang des Printbereiches stellen
Karsten

Hallo,
Ich benötige einen VBA-Befehl der die aktive Zelle an den Anfang des Printbereiches (selbe Spalte), in meinem Falle D6, stellt.
Läßt sich so etwas per VBA erkennen?
https://www.herber.de/bbs/user/66651.xls
Danke für eure Hilfe.
Gruß
Karsten
17.12.2009 09:42:02
Thread-ID: 1124543
5 Beiträge
Zelle eines Bereiches in VBA zuordnen
Horst

Hallo
ich habe unter "Einfügen" "Namen" "Definieren" einen Bereich definiert und diesem einen Namen zugewiesen.
z.B.
Baujahr =Testblatt!$H$2:$H$31
Unter VBA möchte ich auf Baujahr quasi wie ein Array zugreifen.
z.B.
Test = Baujahr(1).Value (das wäre dann also der Inh...
20.01.2010 13:45:04
Thread-ID: 1131345
3 Beiträge
Gültigkeit eines Bereiches in VBA erweitern
Rolf

Hallo Fachleute,
ich bin zu doof. Bitte helft mir. Für euch ist es bestimmt ein Klacks.
Ein lieber Fachmann hat mir für einiger Zeit bei der Erstellung eines Dienstplanes sehr geholfen und diesbezüglich etwas in VBA programmiert.
Nun habe ich ein paar Zeilen zusätzlich eingefügt i...
27.02.2010 21:17:00
Thread-ID: 1141989
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige