Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range definieren und dann Namen festlegen

Forumthread: Range definieren und dann Namen festlegen

Range definieren und dann Namen festlegen
02.03.2007 20:58:00
proxima05
Hallo,
über den nachstehenden Code wird eine Range festgelegt. Diese ist variabel, was die Zeilenanzahl angeht. Dieser Range würde ich jetzt gerne einen Namen ("DataSection") geben .... nur wie kann ich das über VBA variabel gestalten.
*******************************************************
With ActiveWorkbook.Sheets("Tab1")
.Range("A1:P" & .Range("A65536").End(xlUp).Row).Select
End With
ActiveWorkbook.Names.Add Name:="DataSection", RefersToR1C1:= _
"=Tab1!R3C1:R3C16"
*******************************************************
Über "Namen festlegen" würde ich es so ähnlich wie folgt machen (das ist aber nur ein Beispiel)
=Tab1!$A$3:$P$x:OFFSET(Daily_Variables!$A$3:$P$x;COUNT(Tab1!$G:$P)-1;0)
Wäre toll, wenn mir jemand helfen könnte, den o.g. Code so variabel zu ergänzen.
Danke
Ralph
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range definieren und dann Namen festlegen
02.03.2007 21:15:07
Daniel
Hallo
deine Namenszuweisung kannst du auf folgene weise machen:
With ActiveWorkbook.Sheets("Tab1")
.Range("A1:P" & .Range("A65536").End(xlUp).Row).Select
End With
ActiveWorkbook.Names.Add Name:="DataSection", RefersTo:= _
"=Tab1!" & selection.name

oder noch besser als Einzeiler:
With ActiveWorkbook.Sheets("Tab1")
ActiveWorkbook.Names.Add Name:="DataSection", RefersTo:="='" & .Name & "'!" & .Range("A1:P" & _
.Range("A65536").End(xlUp).Row).Address
End With

Gruß, Daniel
Anzeige
AW: Range definieren und dann Namen festlegen
02.03.2007 21:42:00
proxima05
Hallo Daniel,
ich war gerade an einer Lösung mit INDIREKT dran, die auch fast geklappt hätte .... ich werde erstmal mit Deinem Einzeiler weiter machen.
Besten Dank für die Hilfe.
Gruß
Ralph
;

Beliebteste Forumthreads (12 Monate)

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