Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Variablen Namen zuweisen VBA?
119 views
Skip to first unread message
Peter Schuerer
Feb 21, 2013, 1:59:35 AM2/21/13
to
Hallo Zusammen,
Xl2002.
Ich mï¿œchte einem variablem Bereich einen Namen per Makro zuweisen:
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Stillstandgepl",
RefersToR1C1:=ActiveCells
Range("C3").Select
Funktioniert leider nicht so richtig.
VBA mï¿œchte meine ActiveCells nicht.
Bitte um Hilfe.
MfG
Peter
Xl2002.
Ich mï¿œchte einem variablem Bereich einen Namen per Makro zuweisen:
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="Stillstandgepl",
RefersToR1C1:=ActiveCells
Range("C3").Select
Funktioniert leider nicht so richtig.
VBA mï¿œchte meine ActiveCells nicht.
Bitte um Hilfe.
MfG
Peter
Claus Busch
Feb 21, 2013, 2:04:45 AM2/21/13
to
Guten Morgen,
Am Thu, 21 Feb 2013 07:59:35 +0100 schrieb Peter Schuerer:
> Range("C3").Select
> Range(Selection, Selection.End(xlDown)).Select
> ActiveWorkbook.Names.Add Name:="Stillstandgepl",
> RefersToR1C1:=ActiveCells
> Range("C3").Select
probiers mal so:
Dim LRow As Long
LRow = Cells(Rows.Count, 3).End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Stillstandgepl", _
RefersTo:=Range("C3:C" & LRow)
Mit freundlichen Gr��en
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Am Thu, 21 Feb 2013 07:59:35 +0100 schrieb Peter Schuerer:
> Range("C3").Select
> Range(Selection, Selection.End(xlDown)).Select
> ActiveWorkbook.Names.Add Name:="Stillstandgepl",
> RefersToR1C1:=ActiveCells
> Range("C3").Select
Dim LRow As Long
LRow = Cells(Rows.Count, 3).End(xlUp).Row
ActiveWorkbook.Names.Add Name:="Stillstandgepl", _
RefersTo:=Range("C3:C" & LRow)
Mit freundlichen Gr��en
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3
Peter Schuerer
Feb 21, 2013, 2:54:04 AM2/21/13
to
Am 21.02.2013 08:04, schrieb Claus Busch:
> LRow = Cells(Rows.Count, 3).End(xlUp).Row
> ActiveWorkbook.Names.Add Name:="Stillstandgepl", _
> RefersTo:=Range("C3:C" & LRow)
>
>
> Mit freundlichen Gr��en
> Claus Busch
>
Hallo Claus,
> LRow = Cells(Rows.Count, 3).End(xlUp).Row
> ActiveWorkbook.Names.Add Name:="Stillstandgepl", _
> RefersTo:=Range("C3:C" & LRow)
>
>
> Mit freundlichen Gr��en
> Claus Busch
>
so funktioniert es nicht.
Ich ben�tige f�r den Bereich C3:C22 einen variablen Namen.
Ich m�chte C3 aktivieren, mit Shift+Strg nach unten markieren und einen
Namen vergeben.
Der Bereich kann gr��er oder kleiner werden.
Habe schon "Bereich.Verschieben....." als Formel versucht, geht auch nicht.
Danke und Gru�
Peter
Claus Busch
Feb 21, 2013, 3:00:19 AM2/21/13
to
Hallo Peter,
Am Thu, 21 Feb 2013 08:54:04 +0100 schrieb Peter Schuerer:
> Ich ben�tige f�r den Bereich C3:C22 einen variablen Namen.
> Ich m�chte C3 aktivieren, mit Shift+Strg nach unten markieren und einen
> Namen vergeben.
> Der Bereich kann gr��er oder kleiner werden.
> Habe schon "Bereich.Verschieben....." als Formel versucht, geht auch nicht.
LRow errechnet die letzte belegte Zeile. Damit ist der Name f�r den
aktuellen Bereich. Wenn du es so machen w�rdest oder so wie du es
willst, m�sstest du jedesmal, wenn der Bereich sich ver�ndert das Makro
laufen lassen, dass der Name sich dem Bereich anpasst.
Erstelle den Namen �ber den Namensmanager und verwende folgende Formel:
=BEREICH.VERSCHIEBEN($C$3;;;ANZAHL2($C:$C))
Falls du in C1 und C2 auch Eintr�ge hast, musst du von Anzahl2($C:$C) 2
abziehen.
Mit freundlichen Gr��en
Claus Busch
Am Thu, 21 Feb 2013 08:54:04 +0100 schrieb Peter Schuerer:
> Ich ben�tige f�r den Bereich C3:C22 einen variablen Namen.
> Ich m�chte C3 aktivieren, mit Shift+Strg nach unten markieren und einen
> Namen vergeben.
> Der Bereich kann gr��er oder kleiner werden.
> Habe schon "Bereich.Verschieben....." als Formel versucht, geht auch nicht.
aktuellen Bereich. Wenn du es so machen w�rdest oder so wie du es
willst, m�sstest du jedesmal, wenn der Bereich sich ver�ndert das Makro
laufen lassen, dass der Name sich dem Bereich anpasst.
Erstelle den Namen �ber den Namensmanager und verwende folgende Formel:
=BEREICH.VERSCHIEBEN($C$3;;;ANZAHL2($C:$C))
Falls du in C1 und C2 auch Eintr�ge hast, musst du von Anzahl2($C:$C) 2
abziehen.
Mit freundlichen Gr��en
Claus Busch
Peter Schuerer
Feb 22, 2013, 2:25:08 AM2/22/13
to
Am 21.02.2013 09:00, schrieb Claus Busch:
> =BEREICH.VERSCHIEBEN($C$3;;;ANZAHL2($C:$C))
> Falls du in C1 und C2 auch Eintr�ge hast, musst du von Anzahl2($C:$C) 2
> abziehen.
>
>
> Mit freundlichen Gr��en
> Claus Busch
>
Hallo Claus,
> =BEREICH.VERSCHIEBEN($C$3;;;ANZAHL2($C:$C))
> Falls du in C1 und C2 auch Eintr�ge hast, musst du von Anzahl2($C:$C) 2
> abziehen.
>
>
> Mit freundlichen Gr��en
> Claus Busch
>
genau das "Bereich.Verschieben" hat geholfen.
Ich bedanke mich recht herzlich.
W�nsche Dir noch einen sch�nen Tag
Peter
0 new messages