Bereichnamen in VBA



Excel-Version: 9
nach unten

Betrifft: Bereichnamen in VBA
von: Dieter
Geschrieben am: 29.06.2002 - 11:46:19

Hallo zusammen,
ich habe gestern schon mal nachgefragt aber irgendwie ist ein Missverständnis aufgetreten.

Also ich möchte einem Bereich z.B. A1:A30 einen Namen geben z.B. "DATA" (in VBA)
Das Problem ist, das der Bereich unterschiedlich gross sein kann
z.B. A1:A20 oder A1:A90.
Der Code müsste dann wohl beginnen mit
Range("a1").End(xlDown).Select und dann möchte eine Bereichsnamen geben von A1 bis End(xlDown)(z.B. "DATA".
Ich möchte den Bereichsnamen dann in einer Formel verwenden.
Wer kann helfen ???
Danke schon mal im voraus.
Gruss Dieter

nach oben   nach unten

Re: Bereichnamen in VBA
von: Martin Beck
Geschrieben am: 29.06.2002 - 12:10:37

Hallo Dieter,

versuch's mal so:


Sub Namen_flexibel()
Dim As Long
z = Range("A1").End(xlDown).Row
ActiveWorkbook.Names.Add Name:="DATA", RefersTo:="=Tabelle1!$A$1:$A$" & z
Range("B1").Formula = "=SUM(DATA)"
End Sub

Gruß
Martin Beck

nach oben   nach unten

Ergänzung
von: Ramses
Geschrieben am: 29.06.2002 - 15:56:38

Hallo Martin,

Der Name muss zuerst gelöscht werden, da eine spätere Zuweisung eines Namens mit der gleichen Bezeichnung von EXCEL nicht für den neuen Bereich angenommen wird.


Sub Namen_flexibel()
Dim As Long
z = Range("A1").End(xlDown).Row
ActiveWorkbook.Names("DATA").Delete
ActiveWorkbook.Names.Add Name:="DATA", RefersTo:="=Tabelle1!$A$1:$A$" & z
Range("B1").Formula = "=SUM(DATA)"
End Sub

Gruss Rainer

nach oben   nach unten

Kommentar
von: Martin Beck
Geschrieben am: 29.06.2002 - 16:03:56

Hallo Rainer,

bei meinen Tests funktionierte es auch ohne diese Zeile.

Gruß
Martin Beck


nach oben   nach unten

Re: Kommentar
von: Dieter
Geschrieben am: 29.06.2002 - 16:24:50

Hallo zusammen,
ich hab eine einfache Lösung gefunden:

Range("a1").Select
Range("a1").End(xlDown).Select
ActiveCell.Name = "ende"
Range("a1:ende").Name = "Data"
trotzdem Danke !!!!

Gruss Dieter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Egenschaften mehrerer textboxes ändern"