Clever-Excel-Forum

Seiten: 1 2 3

Oder so:

Code:
Private Sub CB_000_Click()

   sn = Sheet1.Cells(1).CurrentRegion

   sp = Sheet2.Cells(1).CurrentRegion

   Cells(1, 100).Resize(UBound(sn)).Name = "snb"

   [snb] = "=rand()"

   For j = 1 To UBound(sp, 2)

     Sheet2.Cells(2, j).Resize(UBound(sn)) = Application.Index(sn, [index(rank(snb,snb),)])

   Next

End Sub

(13.11.2021, 12:33){Boris} schrieb: [ -> ]Warum wir überhaupt umziehen mussten, ist ne lange Geschichte - und braucht hier nicht erzählt zu werden…

Gut, dass ich danach nicht gefragt habe Smile

Seiten: 1 2 3

snb

LCohen