004
19.08.2010, 21:21 Uhr
0xdeadbeef
Gott (Operator)
|
Ich schieb das ganze mal rüber ins VBA-Forum, in der Rätselecke hat das beim besten Willen nichts verloren. -->
Zufällige Ganzzahl zwischen zwei Werten:
Visual Basic: |
Function RndRanged(min As Integer, max As Integer) As Integer RndRanged = Int((max - min + 1) * Rnd + min) End Function
|
Zellen kopieren:
Visual Basic: |
woher.Copy wohin
|
Zellen auswählen kannst du über die Cells-Collection, etwa wählt
Visual Basic: |
r.Cells(2, 3)
|
die zweite Zelle von links und dritte von oben im Bereich r aus. Am besten benennst du die betreffenden Bereiche sinnvoll, dann kannst du einfach
Visual Basic: |
Range("Ergebnistabelle").Cells(RndRanged(1, 8), RndRanged(1, 500)).Copy Range("Ergebnis")
|
o.ä. schreiben. Sämtlicher Code ungetestet, ich habe gerade kein Excel zur Hand. -- Einfachheit ist Voraussetzung für Zuverlässigkeit. -- Edsger Wybe Dijkstra Dieser Post wurde am 19.08.2010 um 21:21 Uhr von 0xdeadbeef editiert. |