Thema Datum  Von Nutzer Rating
Antwort
20.08.2019 16:29:04 Zurfluh
NotSolved
Blau zufall VBA
 20.08.2019 16:50:05 Gast3397
NotSolved

Ansicht des Beitrags:
Von:
Gast3397		 Datum:
20.08.2019 16:50:05		 Views:
441		 Rating:
     
Antwort:
  Ja
Thema:
zufall VBA

aus dem Archiv:

Sub iRnd()
'eindeutige zufällig verteilte ganze Zahlen 1-n
[a1:a10] = "=rand()"
Fen = [index(rank(a1:a10,a1:a10),)]
[a1:a10] = [index(rank(a1:a10,a1:a10),)]
End Sub

########## verallgemeinert ######## Hoepp

Sub testen(rng As Range)
    rng.Formula = "=Rand()"
    rng.Value = Evaluate("INDEX(RANK(" & rng.Address & ", " & rng.Address & "), )")
End Sub

############## snb ##########

Sub M_snb()
    [A1:A20000].name = "snb"
    [snb] = "=Rand()"
    [snb] = [index(rank(snb,snb),)]
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.08.2019 16:29:04 Zurfluh
NotSolved
Blau zufall VBA
 20.08.2019 16:50:05 Gast3397
NotSolved