Zufallssortierung mit Leerzeilen
23.12.2012 17:28:54
Burghard
ich bräuchte mal Hilfe. Ich habe einen Zellbereich, den ich per Zufall sortieren lassen möchte.
Ich habe dazu ein Makro gefunden, dass diese Aufgabe löst. Allerdings läuft es nur einzeilig.
Den Zellbereich, den ich per Zufall sortieren lassen möchte, hat aber jeweils eine Leerzeile dazwischen.
Diese Leerzeilen sollen aber bei der Zufallssortierung nicht berücksichtigt werden.
Es sollen diese Zellen per Zufall sortiert werden:
AC8 (mit Name A)
Leerzeile
AC10 (mit Name B)
Leerzeile
AC12 (mit Name C)
Leerzeile
AC14 (mit Name D)
Leerzeile
AC16 (mit Name E)
Leerzeile
AC18 (mit Name F)
Leerzeile
AC20 (mit Name G)
Leerzeile
AC22 (mit Name H)
Kann mir jemand das nachfolgende Makro umschreiben, damit es nur die Zellen mit Namen per Zufall sortiert?
Sub Mischen()
'Mischt die Zellen einer Selection
On Error GoTo nix
Sheets("Mischen").Activate
Dim i As Long, anz As Long
Dim iTemp As Variant, iZ As Long
anz = Selection.Cells.Count
If anz = 0 Then GoTo nix
'beginne Zellen zu vertauschen
For i = anz To 1 Step -1
Randomize Timer
iZ = Int((i * Rnd) + 1)
iTemp = Selection.Item(iZ).Text
Selection.Item(iZ) = Selection.Item(i).Text
Selection.Item(i) = iTemp
Next i
nix:
End Sub
Burghard