Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbezeichnung

Forumthread: Spaltenbezeichnung

Spaltenbezeichnung
Alex
Hallo zusammen,
ich habe mit dem Macrorecorder eine Namensvergabe für einen Zellbereich aufgenommen.
Die Zeile lautet wie folgt:
ActiveWorkbook.Names.Add Name:="Testname", RefersToR1C1:= _
"=Tabelle!R2C1:R100C2"
Da die Tabelle ständig wächst, suche ich die letzte Zeile und will das in die Formel schreiben.
Ich komme allerdings nicht mit der Row- und Cell-Bezeichnung zurecht.
Normaler weise schreibt man ja "A2:B" & letzteZeile
Aber mit der Syntax klappt das nicht.
Wer weiß Rat.?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bereichsname dynamisch erstellen
01.07.2009 18:48:28
NoNet
Hallo Alex,
entweder so :
ActiveWorkbook.Names.Add Name:="Testname", RefersToR1C1:= _
"=Tabelle!R2C1:R" & sheets("Tabelle").cells(rows.count,2).end(xlup).row & "C2"
Dazu muss jedoch die letzte Zelle der Spalte B auch gefüllt sein (keien Leerzelle sein !)
Oder so :
ActiveWorkbook.Names.Add Name:="Testname", RefersTo:= _
"=Tabelle!$A$2:$B$" & sheets("Tabelle").cells(rows.count,2).end(xlup).row
Auch hierbei darf die letzte Zelle der Spalte B nicht leer sein !
Oder so :
ActiveWorkbook.Names.Add Name:="Testname", RefersTo:= _
"=Tabelle!" & sheets("Tabelle").[A2].currentregion.address
Hier werden allerdings möglicherweise auch Spalte C und weitere Spalten mit übernommen...
Gruß, NoNet
Anzeige
AW: Bereichsname dynamisch erstellen
01.07.2009 22:26:24
Klaus
[Normaler weise schreibt man ja "A2:B" & letzteZeile. Aber mit der Syntax klappt das nicht]
Hallo Alex,
doch, das geht so:

Sub Name_ermitteln()
Dim lngDaten As Long
lngDaten = Cells(Rows.Count, 3).End(xlUp).Row 'Spalte anpassen
Range("C1:C" & lngDaten).Name = "Testname" 'Bereich anpassen
End Sub


Gruß
Klaus

Anzeige
AW: Bereichsname dynamisch erstellen
02.07.2009 11:17:20
Alex
Vielen Dank,
hab's hinbekommen...
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige