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 Beitragsersteller 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

Beitragsersteller

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

Marceloblau01

Beitragsersteller

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.

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.

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 Beiträge

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.

...zum Beitrag

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

...zum Beitrag

Cmd 8-stellig Zufallszahlen?

Hallo, wie kann man eine 8-stellige Zahl in Cmd zufällig schreiben?

In diesem Format xxxx-xxxx

...zum Beitrag

Motoröl-Messstab - wo ist Minimum Maximum?

Hallo. Ich fahre einen älteren Audi A3 aus dem Jahr 2004 und habe vor Kurzem Motoröl nachgefüllt, da der Ölstand recht niedrig war. Allerdings bin ich mir unsicher, wo genau der Minimum- und Maximum-Maßstab auf dem Ölmessstab liegt. Ich vermute, dass ich vielleicht etwas über das Maximum hinaus gefüllt habe, bin mir aber nicht sicher, ob das ein Problem darstellen könnte.

Ich hab noch mal Bilder vom sauberen Motoröl Messstab gemacht und einmal vom nachgefüllten Messstab.

...zum Beitrag

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

...zum Beitrag

Python für Minimum Maximum arithmetischem Mittel Standardabweichung?

Hallo,ich brauche Hilfe, es wäre sehr nett wenn mir jemand die Lösüng zeigen könnte, danke.

Die Ergebnisse einer Klausur liegen als Liste von Zahlen vor. Implementieren Sie die Berechnung von

Minimum Maximum arithmetischem Mittel Standardabweichung

der Listeneinträge und geben Sie die ermitteln Werte aus. Verwenden Sie anstatt echter Daten eine Liste von 100 gleichverteilten, ganzzahligen Zufallszahlen zwischen 1 und einschließlich 6.

...zum Beitrag

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);
}

...zum Beitrag

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.

...zum Beitrag

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.

...zum Beitrag

Zufallszahlen Array in C#?

Hallo liebe Wissende,

ich stehe vor einem Problem in C# wo ich die Zahlen 1 bis 20 zufällig verteilt also unique in ein Array speichern soll. Mein Code enthielt mehrfach die Zahl 0 obwohl ich als Minimum 1 gesetzt und sie jetzt ausgeschlossen hatte. Die IndexOf Funktion scheint Probleme zu bereiten da sich nun Zahlen in arrayneu[] doppeln. Weiß jemand Rat und kann mir als Anfängerin in C# bitte helfen?

using System;
namespace ConsoleApp2
{
    class Program
    {
        static void Main(string[] args)
        {
            int min = 1;
            int max = 21;
            int zahl; // speichere Zufallszahl
            int[] arrayneu = new int[20];             Random randNum = new Random();

            for (int i = 0; i < arrayneu.Length; i++)
            {
                zahl = randNum.Next(min, max);
                if ((Array.IndexOf(arrayneu, zahl) < 0) || (zahl != 0))
                {
                    arrayneu[i] = zahl;
                }
            }
            foreach (int val in arrayneu)
            {
                Console.WriteLine(val);
            }
        }
    }
}
Ausgabe z.B.
10
6
8
5
8
8
4
4
7
9

vielen lieben Dank schon Mal
Janine

...zum Beitrag

Excel Zufallszahlen ohne Wiederholung mit VBA (Lottogenerator)?

Hallo! Ich probiere mich derzeit an Excel aus und möchte mit VBA einen Zufallsgenerator machen. Nun habe ich das Problem, dass die Zahlen sich manchmal wiederholen. Das würde ich gerne verhindern. Hier mein Code:

Sub ZufallDoppelSort()
  reihe = 1 
  spalte = 1
  Randomize Timer
  For zahlen = 1 To 6 
    zfz = Int((49 * Rnd) + 1) 
    Cells(reihe, spalte) = zfz 
    reihe = reihe + 1 
  Next zahlen
End Sub

Leider finde ich bei Google nichts das mir hilft.

...zum Beitrag

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

...zum Beitrag

Excel: Mit SVerweis nicht nur die Werte, sondern auch die Hintergrundfarben auslesen?

Hallo Excel-Profis!

Meine grundsätzliche Frage: Kann man per SVerweis - oder auf andere Weise - auch Hintergrundfarben übertragen?

Zunächst einmal der Aufbau der Seite - falls notwendig.

In Tabelle1 befindet sich eine Liste von A1 bis B44.

Tabelle1/Spalte A enthält Zahlen zwischen 1 und 44, ohne doppelte, nicht auf-/absteigend, sondern durcheinander, und darf auch nicht sortiert werden.

Tabelle1/Spalte B enthält Text, der teilweise farblich hinterlegt ist (insgesamt 9 Farben oder keine Hintergrundfarbe).

In Tabelle2 habe ich in Spalten A1 - A44 Zufallszahlen generiert, die >0 aber <1 sind.

=ZUFALLSZAHL() =>runterkopiert bis A44

Entsprechend der Zufallszahlen habe ich in Spalte B1 bis B44 Zahlen generiert, die im Zahlenbereich 1-44 jeweils nur einmal vorkommen.

=RANG.GLEICH($A1;$A$1:$A$44) =>runterkopiert bis B44

In Tabelle2/SpalteC habe ich diese generierte Zahl aus Tabelle2/SpalteB per SVerweis in Tabelle1/SpalteA gesucht und mit den Wert aus Tabelle1/SpalteB ausgeben lassen.

=SVERWEIS(B1;Tabelle1!$A$1:$B$44;2) =>runterkopiert bis C44

Soweit funktioniert das gut, allerdings hätte ich gerne die farbliche Hinterlegung der Zellen aus Tabelle1/SpalteB ebenfalls übertragen.

Wer kann mir helfen?

Geht das überhaupt und geht das idealerweise auch ohne VBA?

Vielleicht mit einer Hilfsspalte?

Vielen Dank für hilfreiche Antworten! Anita

...zum Beitrag

Kann man eine Excel-Formel (wahr/falsch) );1;0)} umkehren?

Hallo liebe Excel-Experten, Ich habe 50 Zahlenkombinationen mit 6 Zahlen und eine Formel die mir nach vorgegebenen Bedingungen die 50 Kombinationen mit wahr oder falsch anzeigt. Diese Bedingungen sind Zahlen in bestimmten Zellbereichen. Jetzt möchte ich folgendes erreichen. Als Beispiel ordne ich A1 dem Zellbereich X1:X9 zu sowie B1 =Y1-Y9 , C1= Z1:Z9 usw Ich ordne den Zellenbereich die Zahlen zu, das tue nach verschiedenen Kriterien diese ändern sich ständig und sind nicht immer gleich. Der Zellbereich bleibt jedoch immer derselbe. Nun gebe ich in Zeile 1 von A bis ...... 6 Zellen mit 1 an und den Rest mit 0 Jetzt möchte ich alle Zahlenkombinationen angezeigt bekommen die diese Bedingungen erfüllen. Ist so etwas überhaupt möglich?

Über reichlich Lösungsvorschläge würde ich mich sehr freuen

MfG Uwe

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen