Makro funktioniert nicht wegen "ZUFALLSBEREICH"

[zabulon]

Hallo,
bin Excel Neuling und habe folgendes Problem bei der Erstellung eines Makros:

Wie ich aus einem Lehrvideo gelernt hab, kann man mit den Funktionen INDIREKT und ZUFALLSBEREICH Zufallszahlen aus einem vorher definierten Bereich generieren:

  = INDIREKT("F" & ZUFALLSBEREICH(70; 74))

Das funktioniert auch ganz prima in der Excel-Tabelle und durch Drücken von F9 werden jedesmal neue Zahlen generiert.

Wenn ich aber ein Makro schreibe, in dem der obige Befehl vorkommt, kommt eine Fehlermeldung, von wegen Syntax-Fehler oder so.

Hat jemand Ahnung, was  ich falsch mache und wie es richtig heißen muß?

Für Eure Mühe im vorhinein vielen Dank.

[el-rettev]

Hallo,

hier mein Vorschlag:

Code:

Sub Zufallszahl()
Dim rng As Range
    Dim randomCell As Range
    Dim randomNumber As Integer
   
    ' Bereich angeben
    Set rng = Range("F70:F74")
   
    ' Zufällige Zelle aus dem Bereich auswählen
    Set randomCell = rng.Cells(Int(rng.Cells.Count * Rnd + 1))
   
    ' Wert der zufälligen Zelle erhalten
    randomNumber = randomCell.Value
   
    ' Zufällige Zahl in Zelle A1 schreiben
    Range("A1").Value = randomNumber
End Sub

Da du nicht angegeben hast, wo die Zufallszahl ausgegeben wird, habe ich in dem VBA-Code Zelle A1 hinterlegt.

[Kuwer]

Hallo,

probiere es mal mit INDEX():

=INDEX(F:F;ZUFALLSBEREICH(70;74))

Gruß Uwe

[zabulon]

Hallo,
erstmal tausend Dank für Deine schnelle Hilfe. Es klappt ganz ausgezeichnet, das Feld A1 hab ich geändert.

Kannst Du mir auch sagen, was ich tun muß, wenn ich eine zweite Zufallszahl ermitteln will, sagen wir im Bereich F90 - F100 ?

Insgesamt geht es um 6 Zahlen, aber wenn ich weiß, wie ich den zweiten Wert krieg, kann ich hoffentlich die anderen vier alleine schaffen.

---

Hallo,

tausend Dank für Deine schnelle Hilfe.  

Kannst Du mir auch sagen, was ich tun muß, um eine zweite Zahl zu ermitteln aus einem anderen Bereich, z.B. F90 - F100 ?

Insegsamt geht es um 6 Zahlen, aber wenn ich weiß, wie ich auch die 2. Zahl kriege, werd ich die übrigen vier hoffentlich alleine hinkriegen.

Die sechs Zahlen müßten dann auch noch aufsteigend sortiert werden und dürfen nicht doppelt vorkommen, aber das würde jetzt wohl zu weit führen.

Ich wäre schon happy wenn ich die sechs alle hinkriege und schau dann mal weiter.

[d'r Bastler]

Moin zabulon,

wirf doch mal einen Blick nach hier. Ich glaube, da werden alle Deine Wünsche erfüllt.

Grüße

[Der Steuerfuzzi]

Anscheinend wurde das gleiche hier auch gefragt ;)
https://www.herber.de/forum/archiv/1932t...ahlen.html