Hallo zusammen!
Kann mir jemand erklären, wie ich markierte Zellen in ein Array kopieren kann?
Konkret:
In einem sheet markiere ich einige Zellen, starte über einen cmdbutton eine userform und möchte das beim initialisieren bereits die markierten zellen in einer listbox erscheinen.
schon mal vielen Dank für eure Hilfe!
Jens
Hi Jens,
Kann mir jemand erklären, wie ich markierte Zellen in ein
Array kopieren kann?
may be, es geht direkter, aber probiers mal so:
Option Explicit
'
Sub tt()
Dim Rng, A, Arr()
For Each Rng In Selection.Cells
A = A + 1
ReDim Preserve Arr(A)
Arr(A) = Rng.Value
Next Rng
For A = 1 To UBound(Arr)
MsgBox Arr(A)
Next A
End Sub
In einem sheet markiere ich einige Zellen, starte über einen
cmdbutton eine userform und möchte das beim initialisieren
bereits die markierten zellen in einer listbox erscheinen.
In welcher Form sollen die erscheinen? Einfach untereinander oder Zeilen und Spaltengenau in einem mehrspaltigen Listenfeld?
Oder noch annerster?
Gruß
Reinhard
Hallo Reinhard!
Vielen Dank für deine schnelle Hilfe. Genau das hab ich gesucht! Danke!
Jens
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]