title image


Smiley mit VBA mischen
Hallo!



probier mal folgendes:



Sub Mischen()

Dim r_m As Range 'zu mischender Bereich

Dim lng_count As Long 'Anzahl der zu mischenden Zellen

Dim lng_x As Long 'Zählervariable

Dim lng_rnd As Long 'Zufallszahl zwischen 1 und lng_count

dim tmp as variant 'temporäre Variable



Set r_m = Application.InputBox("Mischbereich=", "Mischen", ActiveCell.CurrentRegion.Address, , , , , 8)

lng_count = r_m.Cells.Count

Randomize

For lng_x = 1 To lng_count

lng_rnd = Int((lng_count * Rnd) + 1)

tmp = r_m.Cells(lng_x)

r_m.Cells(lng_x) = r_m.Cells(lng_rnd)

r_m.Cells(lng_rnd) = tmp

Next

End Sub



Das ganze dann mit einem Shortcut versehen, z.B. Strg-M.



Viel Erfolg

Manes








Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: