Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgabe Bezug benannter Bereichj

Ausgabe Bezug benannter Bereichj
06.12.2016 10:40:50
ExcelDirk
Liebe Excler,
wie kann ich mir in einer Zelle von einem benannten Bereich die linke obere Ecke bzw die rechte untere Ecke ausgeben lassen?
Danke u Gruß Dirk

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgabe Bezug benannter Bereichj
06.12.2016 11:00:10
guenni
Hallo Dirk,
hier ein Vorschlag: 
Public Function LinksOben(bereich As Range)
LinksOben = bereich.Range("A1")
End Function
Public Function RechtsUnten(bereich As Range)
RechtsUnten = bereich.Cells(bereich.Rows.Count, bereich.Columns.Count)
End Function

Gruß,
Günther
AW: Ausgabe Bezug benannter Bereichj
06.12.2016 11:01:05
Bernd
Servus,
z.B. so: 

Sub Zelladressen()
Dim intEZ As Integer ' erste Zeile
Dim intES As Integer ' erste Spalte
Dim intLZ As Integer ' letzte Zeile
Dim intLS As Integer ' letzte Spalte
intLZ = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
intEZ = ActiveSheet.Cells(intLZ, 3).End(xlUp).Row
intLS = ActiveSheet.Cells(intLZ, Columns.Count).End(xlToLeft).Column
intES = ActiveSheet.Cells(intEZ, intLS).End(xlToLeft).Column
MsgBox Range(Cells(intEZ, intES), Cells(intLZ, intLS)).Address
End Sub
Grüße, Bernd
Anzeige
AW: Ausgabe Bezug benannter Bereichj
06.12.2016 11:33:49
ExcelDirk
merci bäng
probier ich heut abend!
AW: Ausgabe Bezug benannter Bereichj
06.12.2016 11:50:21
Daniel
Hi
mit dieser Formel, der benannte Bereich sei xxx:
linke obere Zelle: =ADRESSE(ZEILE(xxx);SPALTE(xxx);4;1)
rechte untere Zelle: =ADRESSE(ZEILE(xxx)+ZEILEN(xxx)-1;SPALTE(xxx)+SPALTEN(xxx)-1;4;1)
als ganzes:
=ADRESSE(ZEILE(xxx);SPALTE(xxx);4;1)&":"&ADRESSE(ZEILE(xxx)+ZEILEN(xxx)-1;SPALTE(xxx)+SPALTEN(xxx)-1;4;1)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige