Kann man mit VBA eine Zufallszahl aus einem Zellbereich der mit verschiedenen Zahlen gefüllt ist programmieren?

Hallo liebe Experten, ist folgende Aufgabe mit VBA zu lösen ? : Zellbereich A1:A10 ist gefüllt mit unterschiedlichen Zahlen und ich möchte eine zufällige Zahl aus diesem Zellbereich , es ist wichtig dass nur eine zufällige Zahl aus diesen Zahlen die in dem Zellbereich vorkommen gewählt wird. Es gibt kein minimum und keine maximum Angabe , die Zahlen in dem Bereich ändern sich ständig und somit kann ich mich auch nicht auf einen bestimmten Zahlenbereich festlegen zB. 1-100. Ist sowas überhaupt machbar? für eure Hilfe wie immer sehr dankbar MfG Uwe

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Iamiam

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

03.02.2016, 09:07

=INDIREKT("A"&GANZZAHL(ZUFALLSZAHL()*10)+1)

oder

=INDIREKT("A"&AUFRUNDEN(ZUFALLSZAHL()*10;0))

Nenn das übrigens Zufallstreffer, weils ja eine Auswahl beinhaltet, also nicht mehr ganz zufällig ist -nur zur Unterscheidung der Probleme für die Antwortenden.

Iamiam

03.02.2016, 09:19

Sorry, hab das dicke VBA überlesen. also:

Activesheet.range("S, Z").value = Activesheet.Range("A" & Cint(Rnd() * 10))

müsste gehen, oder

Activesheet.Cells(z, s) = Activesheet.Cells(Activesheet.Cells(Cint(Rnd() * 10), 1))

kann sein, dass Du Dir das Activesheet. sparen kannst ebenso wie das .value
(sind wahrscheinlich VorgabeArgumente), kanns nicht mehr ausprobieren, muss weg.

Iamiam

03.02.2016, 09:50

@Iamiam

obiges muss in beiden Fällen heissen:

...Cint(Rnd() * 10 + 1)...

sonst erhältst Du bei Rnd() < 0,1 einen Fehler und A10 wird gar nie angewählt. Cint entspricht im Wesentlichen der Fkt =Ganzzahl(Zahl).

Bei den Formeln hab ich noch drangedacht, hier nicht mehr

(jetzt muss ich aber wirklich dringend weg!)

Suboptimierer

03.02.2016, 10:15

@Iamiam

Ich würde noch einen Randomize vorschalten
Alle Funktionen, die in Excel verwandt werden, können in VBA mit Application.WorksheetFunction erreicht werden (falls man die Excellösung schon hat und nicht nach den Visual Basic-Befehlen suchen will).

Iamiam

03.02.2016, 15:07

@Suboptimierer

@ Subopt: Wie meinst Du das:

Ich würde noch einen Randomize vorschalten

@ Marc: es geht auch so kurz (grade ausprobiert, wenn A1:A10 des gleichen Blattes angesprochen werden soll):

ActiveCell = Range("A" & CInt(Rnd() * 10 + 1))

Marceloblau01

Fragesteller

03.02.2016, 15:19

@Iamiam

@Subopt:,@lamiam: Danke , aber bitte entschuldigt wenn meine VBA Kenntnisse nicht ausreichen um das umzusetzen, könntet ihr vielleicht von sub ..... bis sub End etwas für mich erstellen? Das wäre super vielen Dank im voraus!

Suboptimierer

03.02.2016, 15:28

@Iamiam

Mit Randomize wird der Einstiegspunkt in die Zufallszahlenfolge variabel gestaltet. Früher (ich weiß nicht, ob heute immer noch) wurde hierfür der Timer verwendet

Früher in Basic: Randomize Timer
https://en.wikibooks.org/wiki/BASIC\_Programming/Random\_Number\_Generation

Heute: Randomize
https://goo.gl/9ls3ys

PWolff

03.02.2016, 15:28

Es stimmt, dass der Umweg über VBA in diesem Fall überflüssig ist (es sei denn, in der Aufgabenstellung fehlen wesentliche Punkte).

Wozu der Umweg über "INDIREKT"? Ich würde

=BEREICH.VERSCHIEBEN(A1;GANZZAHL(ZUFALLSZAHL()*10);0)

verwenden.

Marceloblau01

Fragesteller

03.02.2016, 15:33

@lamiam: bei deiner Formel für Excel wo steht da der Zellbezug? "A"& ??? wo kommt der Bezug auf A1:A10 rein? Du musst bitte verstehen das ich keine Leuchte in Excel Formeln und VBA bin ich habe zwar schon viel dazu gelernt aber manche Dinge sind mir noch rätselhaft :-) verzeih mir deshalb meine doofe Frage! Danke

Iamiam

03.02.2016, 19:01

@Marceloblau01

@Subopt: zusätzliches Randomize braucht es m.W. heute nicht mehr, die Rechner sind um Größenordnungen besser geworden. Auch beim automatischen Aufruf vieler Zufallszahlen schnell hintereinander ist jede individuell. (vllt ist das aber sogar versteckt drin in deren Programmierung)

@Marc: GANZZAHL(ZUFALLSZAHL()*10)+1 liefert eine Zahl von 1..10, was in Kombinbation mit "A" davor eine Adresse aus A1:A10 ergibt. Da diese aber aus Teilen zusammengesetzt ist, muß indirekt( davor.

in welche Zelle Du das reinschreibst, ist egal, eben dort, wo Du es haben willst oder auch als Teil einer Formel.

Du kannst das auch wie PWolff machen, aber dann kannst Du die Formel nur dann nach rechts oder unten kopieren, wenn Du $A$1 absolut setzt (und kürzer ist es auch nicht)

So sieht das Sub aus, je nachdem, wie Du arbeiten willst:

Alles im selben Blatt:

Sub ZufälligeZellauswahlNachZeilen()
ActiveCell = Range("A" & CInt(Rnd() * 10 + 1)) 'geht auch so kurz!
End Sub

Sub ZufälligeZellauswahlNachZeilen() 'lange Form (unnötig)
ActiveSheet.Range("T46").Value = ActiveSheet.Range("A" & CInt(Rnd() * 10 + 1))
End Sub

Wenn sich die Quellzellen A1:A10 in einem anderen (nämlich Quell-)Blatt befinden als die Zielzelle (Zielzelle ist die Zelle, wo das Ergebnis erscheinen soll) - das ist der übliche Fall und es schadet nichts, das IMMER so zu machen:

Sub ZufälligeZellauswahlNachZeilen()
ActiveCell = Worksheets("Quellblattname").Range("A" & CInt(Rnd() * 10 + 1)) 'auskommentierter Demo-Text
End Sub

(Cint() bedeutet: mach aus der Zahl eine Ganzzahl (Integer).

Es gibt auch Cdbl: wandle die Zahl zu einer 16-stelligen Zahl (ggf mit Komma) um.

Oder Cstr: mach Text (String) draus, ich glaube, es gibt noch weitere Umwandlungen zu anderen Datentypen, braucht man aber selten.

safur

03.02.2016, 07:14

OK, der Abschnitt bleibt konstant. Wo kommen die Zahlen her?

Der Wertebereich ist stets < x. Wie groß ist die maximale Zahl?

Du könntest dir mal Random angucken
http://www.techonthenet.com/excel/formulas/rnd.php

Ähnliche Fragen

Excel Zahlenbereich Abfrage?

Wie kann man aus einem Feld, in der eine beliebige Zahl eingegeben werden kann, eine Abfrage starten, bei der für Zahlen in verschiedenen definierten Zahlenbereichen unterschiedliche Ergebnisse ausgegeben werden?

...zur Frage

Excel Zufallszahl, sozusagen würfeln

Kann man bei Excel in einem Feld eine Zahl zwischen 1 und 6 per Schaltfläche anzeigen lassen? Man soll also auf eine Schaltfläche drücken, so dass in Zelle A1 z.B eine der Zahlen 1,2,3,4,5,6 angezeigt wird. Es soll also in der Art wie würfeln sein.

Ich habe Excel 2000.

Möglichst ohne VBA.

...zur Frage

Wie kann ich in Python eine dritte Zahl auf ihre Größe überprüfen?

Moin,

In der Schule beschäftigen wir uns noch nicht so lange mit Python.

ich habe nun in der Schule eine Aufgabe bekommen in der wir das Maximum von zwei Zahlen bestimmen sollen, das habe ich auch geschafft.

if zahl > zahl2 :

Jetzt gibt es noch eine Zusatz Aufgabe, dort muss ich auch noch eine dritte zahl einlesen und ab da weiß ich nicht mehr weiter.

Die Aufgabe von meinem Lehrer lautet wie folgt:

Das Maximum zweier Zahlen bestimmen (Maximum heißt die größere der beiden Zahlen, Minimum die kleinere der beiden Zahlen) Zwei Zahlen einlesen (float) und die größere der beiden Zahlen ausgeben.

...zur Frage

Excel VBA - Zeile unter Bedingung ausblenden?

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

Benny

...zur Frage

Wie realisiere ich eine Funktion, die eine Zufallszahl zurückgibt(c++)?

Hallo, eine Funktion int myRandomNumber(int min,int max) soll eine zufällige Zahl zwischen int min und int max (einschließlich den Grenzen!) zurückgeben... wie macht man das auf einfache Art und Weise?

...zur Frage

Kann jede Klassische gewöhnliche Taschenrechner Zufällige Zahl Generieren?

Hallo.

Also ich wollte fragen ob jeder Klassische Taschenrechner eine intergrierte Zufallszahl Generator hat? Also ob es vielleicht irgendwelche Geheime Tasten kombination gibt, das dann eine Zufällige Zahl rausspuckt?

...zur Frage

Visual Studio - Was stimmt nicht mit dem Zufallsgenerator?

Wieso ist die häufigkeit einer gewissen zahl so übertrieben hoch wenn es 200 anderweitige zufällige zahlen gibt?

Weil sobald eine zufallszahl generiert wurde, wird die jeweilige zahl für geschätzte 300x wiederhollt obwohl eigentlich ein mischmasch aus allmöglichen zahlen folgen müsste aber wieso neigt der zahl so extrem dazu immer das selbe zu nehmen für 500 male?

Wenn ich den zufall zwischen "(0, 2) mache bekomme ich halt das selbe mit nur 1 und 0 raus aber so als ob ein Münzwurf dazu neigt 500x auf Kopf zu landen und dannach 150x auf zahl... ich meine WTF?

in Visual Studio (der bereich der für den zufall verantwortlich ist):

Beim ausführen:

...zur Frage

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zur Frage

Wie kann ich in der Programmiersprache C# eine zufällige Zahl auslesen und später wiedergeben?

Das ist die Aufgabe:

Bilde in einer Schleife 100 Zufallszahlen zwischen 1 und 100.

Zähle mit, wie viele Zahlen im Bereich 1..10 ( zaehler1) sowie im Bereich 91..100 ( zaehler2) gebildet wurden.

Und das hab ich schon:

Console.WriteLine("Zufalsgenerator")
Random Z = newRandom();

for (int i = 0; i < 100; i++)
{
  int zufallszahl = Z.Next(1, 100);
  Console.WriteLine(zufallszahl);
}

...zur Frage

Excel Vba mehrere Zufallszahlen, jedoch keine Wiederholungen?

Hallo,

Ich brauche 10 Variabeln, die einer Zufallszahl zugewiesen sind, jedoch dürfen sich die Zufallszahlen nicht wiederholen. Also z.B.

Z1= 23

Z2= 25

Z3= 25

Z4= 19

Z6= 17

....

Die "25" kommt nun 2 mal vor und das sollte nicht sein, also müsste Z2 oder Z3 zu einer anderen Zahl geändert werden.

Wie kann man das überprüfen lassen? Gibt es eine einfache und schnelle Möglichkeit ohne viel Code? Oder müsste man jede einzelne Variable mit if überprüfen?

MfG Fabian

...zur Frage

Excel/VBA Zahl in String konvertieren, Komma durch Punkt ersetzen

Hallo,

ich habe in einer Tabelle eine Spalte voller Einträge zweier verschiedener Typen:

Strings der Form #.#.# wobei # eine Ziffer darstellt
Zahlen der Form # bzw #,#

Ich möchte erstere Form beibehalten und die zweite in einen String der Form #.# umwandeln. Kann mir da jemand helfen?

...zur Frage

Aufgabe: Minimum ermitteln?

Hallo Leute, könnt ihr mal kurz kontrollieren ob ich die folgende Aufgabe richtig gemacht habe?

/*
Aufgabe 1: Minimum ermitteln
Gegeben sind drei String Variablen mit beliebigen ganzzahligen Werten (als Strings!), z.B. "23", "5","13".
Wandeln Sie die Strings in Integer-Werte um und ermitteln Sie das Minimum und Maximum der drei Zahlen.
Geben Sie die drei Zahlen und das Minimum/Maximum auf der Konsole aus.

Das Minimum von 23, 5 und 13 ist 5.
Das Maximum von 23, 5 und 13 ist 23.
*/

String zahl1 = "23";
String zahl2 = "5";
String zahl3 = "13";

boolean minimum = Integer.parseInt(zahl2) < Integer.parseInt(zahl1) && Integer.parseInt(zahl2) < Integer.parseInt(zahl3);
System.out.println(minimum);

boolean maximum = Integer.parseInt(zahl1) > Integer.parseInt(zahl2) && Integer.parseInt(zahl1) > Integer.parseInt(zahl3);
System.out.println(maximum);

//true
//true

...zur Frage

OpenOffice: zufällige Zahl aus einer festen Reihe wählen lassen?

Ich möchte OpenOffice Calc eine zufällige Zahl aus einer von mir bestimmten Spalte mit - unterschiedlichen nichtzusammenhängenden- Zahlen wählen lassen. Das scheint mit Zufallszahl() und Zufallsbereich() nicht zu funktionieren.

Diese zufällig gewählten Zahlen sollen auch noch unter bestimmten verschiedenen Warscheinlichkeiten im Zufall erscheinen. .

Also z.B:

Zahl A: passiert doppelt so häufig wie Zahl B Zahl B: passiert halb so oft wie Zahl A Zahl C: passiert am seltesten.

Zufallszahlen also etwa . . . A A B A A B C A B A A A B C

Ist das möglich oder sprenge ich damit die Möglichkeiten des Programms? Diese Simulation wäre sehr nützlich. Ich würde mich freuen wenn mir jemand einen Weg zeigen könnte. Vielen Dank

...zur Frage

In Java einen Array zahlen zuweisen wie?

ich habe ein Array aus 18 Feldern... nun möchte ich diesen 18 Feldern entsprechend eine zufällige Zahl zwischen 0-19 zuweisen... allerdings soll jede Zahl nur einmal vergeben werden. Prinzipiell wäre das ja mit Random und einer Schleife kein Problem... nur hat jemand eine Idee, wie ich überprüfen kann ob die entsprechende zufällige Zahl schon da ist? Oder kann ich gewisse Zahlen irgendwie ausschließen?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen