Problem bei relativer Zelladressierung
reiner
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
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
mfg
reiner