Problem bei relativer Zelladressierung

Forumthread: Problem bei relativer Zelladressierung

reiner

hallo Leute,
nachfolgend ein Ausschnitt aus einem funktionierenden VBA-Code mit dem unsortierte Werte aus den genannten Zellen in eine sortierte Reihenfolge übertragen und in die gleichen Zellen eingetragen wird.

Set objAl = CreateObject("System.Collections.Arraylist")
With objAl
For Each rng In Range("K9,M9,O9,Q9,S9")
.Add rng.Value
Next

Die jeweils zu bearbeitende Zeilennummer ist in der Variablen "Zeilennummer" gespeichert, da die Bearbeitung auch in darunterliegenden Zeilen durchzuführen ist.
Mein Problem besteht darin, dass ich die absolute Adressierung (K9, M9 usw.) in relative Adressierung mithilfe der Variablen z.B.: "K" & Zelladresse übertragen will.
Das funktioniert auch solange es sich dabei um lediglich 2 Zelladressen handelt, nicht jedoch wenn mehr als 2 Zelladressen angesprochen werden sollen, sh. nachfolgend:

Set objAl = CreateObject("System.Collections.Arraylist")
With objAl
For Each rng In Range(("K" & Zelladresse), ("M" & Zelladresse), ("O" & Zelladresse), ("Q" &  _
Zelladresse), ("S" & Zelladresse))
.Add rng.Value
Next

Fehlermeldung: "Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft"Wie muss ich die Adressierung in For Each rng In Range ändern damit es auch mit relativer Adressierung funktioniert?
mfg
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer