|
Hallo,
kurze Neuling-Frage: per InputBox lasse ich vom User mehrere Zellen auf einem Worksheet markieren, deren Zellwerte ich brauche:
Public Function InputBoxRange(aPrompt As String) As Range
'lässt ein oder mehrere Zellen auswählen und liefert diese Range zurück
Set InputBoxRange = Application.InputBox(aPrompt, Type:=8)
End Function
...
Dim rng as Range
Set rng = InputRange("Wähle Zellen:")
..
Per CMD-Button (Mac) bzw. CTRL-Button (Windows) kann man ja eine Mehrfachselektion machen.
Ergebnis ist ein Range-Objekt der Art $B$44;$B$17;$B$50 o.Ä.
Nun möchte ich an die Zellwerte dieser Zellbezüge ran und diese durchiterieren (for i = 1 to rng.Count).
Ich weiß aber nicht, wie ich da ran komme.
rng(i) liefert nur beim Index 1 einen richtigen Wert
rng(i).value dasselbe
rng.adress liefert die markierten Zellen, aber mit Komma statt Semikolon.
Am liebsten wäre mir, wenn ich aus dem Range-Objekt eine Liste machen könnte, in der die Zellwerte aufsteigend sortiert sind.
Ist vermutlich ein No-Brainer, aber ich beiße mir die Zähne daran aus. Weiß jemand Rat?
Christian
|