Bereich neu definieren mit Resize

Forumthread: Bereich neu definieren mit Resize
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bereich neu definieren mit Resize

Peter

Guten Tag
mit der Codezeile
Debug.Print Range("KuSH_Anzahl").Resize(Range("KuSH_Anzahl").Rows.Count + lng_Ver_Anzahl, Range("KuSH_Anzahl").Columns.Count).Address
erhalte ich im Direktbereich $D$2:$D$69
Wie kann ich nun dem Range("KuSH_Anzahl") diesen Adresse zuweisen?
Gruss, Peter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bereich neu definieren mit Resize

Tino
AW: Bereich neu definieren mit Resize

Peter

AW: Bereich neu definieren mit Resize

25.06.2011 10:31:19

Tino

Hallo,
versuch es mal so.

With Range("KuSH_Anzahl")
ActiveWorkbook.Names("KuSH_Anzahl").RefersTo = _
"=" & .Resize(.Rows.Count + lng_Ver_Anzahl, .Columns.Count).Address(External:=True)
End With

Gruß Tino

AW: Bereich neu definieren mit Resize

28.06.2011 13:42:26

Peter

Hallo Tino
Vielen Dank - das fuktioniert so bestens!
Gruss, Peter