Office: Werte kopieren und untereinander einfügen

Hallo Zusammen

Bin selbst leider nicht im Internet fündig geworden für mein Anliegen:

Ich generiere in Tabelle 1 in 4 Zellen (N2 bis N5) 4 Zufallszahlen.
Diese 4 Zufallszahlen möchte ich in Tabelle 2 kopieren.
Allerdings nur die Werte, damit sich diese nicht mehr ändern.
Zusätzlich sollen die Werte anstatt wie in Tabelle 1 untereinander, nebeneinander liegen, also transportiert werden.
Die Werte sollen in Tabelle 2 in die 4 Zellen B2 bis E2 eingefügt werden. Dies soll durch eine Schleife 500 mal wiederholt werden.
Nach jedem kopieren und einfügen sollen in Tabelle 1 neue 4 Zufallszahlen generiert werden und diese dann in Tabelle 2 unter der vorigen Zeile (B2 bis E2) eingefügt werden.
Dadurch sollen in Tabelle 2 untereinander 500 verschiedene Zufallszahlen-Quartette entstehen (B bis E). Mir fehlt der Makro-Code, wodurch immer eine neue Zeile unterhalb zum Einfügen verwendet wird.

Für Berechnung der Zufallszahlen brauche ich keinen Makro, da nicht nur 4 Zufallszahlen in Tabelle 1 generiert werden, sondern eine Zeitreihe durch Zufallszahlen berechnet wird. Und am Schluss werden 4 Kennzahlen anhand dieser zufälligen Zeitreihe berechnet. Und diese 4 Kennzahlen (welche sich nach jedem Durchgang ändern) sollen in Tabelle 2 wie oben beschrieben kopiert werden.

Vielen Dank im Voraus für eure Hilfe!

Mein bisheriger Makro sieht wie folgt aus:

Sub Sample()
'
' Sample Makro
'
' Tastenkombination: Strg+v
'
Dim n As Integer
For n = 1 To 1
Calculate
Sheets("Randmisierung").Select
Range("N2:N5").Select
Selection.Copy
Sheets("Samples").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Next
End Sub

:)

 

Code:

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Danke für die schnelle Hilfe!

Leider wird durch den Makro jetzt nur 1 Zeile in Tabelle 2 befüllt, anstelle einer Schleife, welche das 500 mal macht. Ausserdem sollen die 4 Werte in die Zellen B bis E kopiert werden.

Sobald die 4 Zahlen dann nach Tabelle 2 kopiert wurden, sollen die neuen generierten 4 Zufallszahlen aus Tabelle 1 wieder in Tabelle 2 unter die obere, zuvor eingefügten 4 Werte kopiert werden.

Besten Dank!

 

Di hattest doch schon ein Schleife gemacht da Habe ich es nicht als Problem gesehen.
Code:

 

Nochmals Danke für deine Geduld! Entschuldige, ich bin leider ein kompletter Leihe.

Kriegs immer noch nicht hin *frown.gif* sorry!

Am besten ich stell mal meine Excel Datei zur Verfügung (siehe Anhang)

Ich habe die 500 Zeilen nun manuell kopiert und eingefügt. Für einen richtigen Makro wäre ich sehr dankbar!

 

Ich erstelle die Lösung für das was im Beitrag dargestellt wurde.
Wird diese Darstellung geändert, überlasse ich anderen die Lösung, da ich schon eine Lösung erstellt hatte und dafür Zeit investiert habe.
Ich arbeite nicht für den Papierkorb.
Es solle Nur N2:N5 kopiert werden.

Die Datei ist auch zu spät´. Ich habe jetzt schon die Zeit investiert und die Datei nachgebaut, was für den Papierkorb war.

Viel Erfolg noch.

 

Hallo,

so:
Code:

Gruß Werner

 

Gruß Werner

Funktioniert perfekt! Vielen lieben Dank! Made my day!

 

Moin!
Ich frage mich, warum man 500-mal kopieren muss.
Durch das transponieren wird eine Neuberechnung ausgelöst, so dass folgendes reicht:

Diese unscheinbare Änderung beschleunigt das Makro um den Faktor 10!
(0,266 statt 2,337 Sekunden)

Gruß Ralf

 

Hallo Ralf,

das war mir nicht klar - danke für den Hinweis

Gruß Werner

 

Ich wusste es auch bis eben nicht, Werner.
Ich hatte mich nur gewundert, warum die Formeln (die sich ja nicht ändern), innerhalb der Schleife kopiert wurden.
Über den doch großen Zeitunterschied war ich dann umso überraschter.
Aber das ist ein zusätzlicher Grund, warum ich in Foren helfe.
Schließlich lerne ich auch jeden Tag dazu … *wink.gif*

 

Und wenn ich die Zufallszahlen in ein Array schreibe, bin ich bei 0,02 Sekunden.
Faktor 100 schneller als der Anfang: