ausgabe in mehrere arbeitsblätter
12.10.2013 19:53:42
werner
ich möchte Zufallszahlen(0-100) in einer Schleife in mehrere Arbeitsblätter ausgeben. Es soll immer eine Zufallszahl berechnet werden, diese ausgegeben und dann eine neue ZF in die nächste Arbeitsmappe.
Dies gelingt mir mit meinen Anweisungen nicht. Da läuft leider was falsch. Es werden zwar die Arbeitsmappen abgearbeitet, aber die Zufallszahlen werden immer in das 1. Arbeitsblatt ausgegeben wo ich stehe.
Was mache ich falsch, bitte um Hilfe.
der Code von mir:
Sub zufallszahl()
Dim zf As Integer
For Zahl = 1 To 100
Worksheets("Sp1").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Worksheets("Sp2").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Worksheets("Sp3").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Worksheets("Sp4").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Worksheets("Sp5").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Worksheets("Sp6").Select
Randomize
zf = Int(a + Rnd * (100 - 0 + 1))
Cells(Rows.Count, 2).End(xlUp).Cells.Offset(1, 0).Value = zf
Next Zahl
End Sub