Thema Zufalllszahl
07.11.2008 16:36:13
Maris
habe mir von irgendwo ein Makro mal kopiert und möchte das jedesmal beim Öffnen der Datei eine neue Zufallszahl erzeugt wird. Klappt aber nicht! Wenn ich den Code in Diese Arbeitsmappe kopiere und in meinen Private Sub Workbook_Open() stelle, wird mir keine Zufallszahl erzeugt.
Dasselbe ist auch wenn ich sub auto_open mache. Die Zufallszahl wird nur erzeugt wenn ich manuell den Cod anstoße. An was könnte das liegen?
Hier mal der Code:
Sub auto_open()
Application.ActiveSheet.Unprotect
Dim Bereich As Range
Dim Zelle1 As Range
Randomize
Set Bereich = Range("A1")
For Each Zelle1 In Bereich
Zelle1.Value = Int((1000000000 * Rnd) + 1)
Next Zelle1
Application.ActiveSheet.Protect
End Sub
Über hilfe würd ich mich sehr freuen!
Gruß
Maris