AW: Excel Spalten zufällig reihen
12.02.2016 18:14:53
ransi
Hallo Gerhard,
ICh weiss nicht welche Tips du gefunden hast.
Ich nutze sowas:
Option Explicit
Sub machs()
Dim arr As Variant
Dim I As Integer, L As Long
Dim Z As Integer
Dim tmp
arr = Range("A1:H15000") 'Anpassen
For I = 1 To UBound(arr, 2)
Randomize
Z = Int(UBound(arr, 2) * Rnd) + 1
tmp = WorksheetFunction.Index(arr, 0, Z)
For L = 1 To UBound(arr)
arr(L, Z) = arr(L, I)
arr(L, I) = tmp(L, 1)
Next
Next
Range("A1:H15000") = arr 'Anpassen
End Sub
ransi