=Zufallszahl() soll sich nicht verändern in Spalte

Question

Hallo

Ich bräuchte folgendes Makro angepasst das es nicht nur eine Zelle schreibt sondern eine ganze Spalte z.B. B3-B60.


Sub zufallszahl()
  Dim Wert1
  Randomize    ' Zufallszahlengenerator initialisieren.
  Wert1 = Rnd
  Cells(1, 1).Value = Wert1
End Sub

vielleicht kann mir da jemand  helfen?

Grüße
Thomas Ziermann

Answer 1

Hallo Thomas.

[code]Option Explicit

Sub zufallszahl()
    Dim rngC As Range
    For Each rngC In Range("B3:B60")
        Randomize
        rngC.Value = Rnd
    Next
End Sub
[/code]

Gruß
Rainer

Answer 2

Schon mal vielen Dank das funktioniert super.
Einen habe ich noch:

Kann ich die Reichweite einfach so erweitern ?

For Each rngC In Range("B3:B60;E3:E60")

Oder muss ich den Code für jede Spalte extra schreiben.

Grüße Thomas

Answer 3

Hallo Thomas,

so wär's richtig

[code]For Each rngC In Range("B3:B60,E3:E60")
[/code]
Gruß
Rainer

Answer 4

Super danke so funktioniert es auch.

Grüße Thomas