Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zahlen in Zellbereich zuf�llig anordnen

Forumthread: VBA: Zahlen in Zellbereich zuf�llig anordnen

VBA: Zahlen in Zellbereich zuf�llig anordnen
20.08.2024 20:59:13
Fritz_W
Hallo Forumsbesucher,

ich bitte um Unterstuetzung der VBA-Experten bei der Umsetzung folgenden Vorhabens:
Im Tabellenblatt "Liste" soll - entsprechend der Zahl in Zelle J1 - in Spalte D ab Zelle D2 die entsprechenden Anzahl Zahlen zufaellig angeordnet werden.
Beispiel: Zahl in J1 = 50: Dann sollten im Zellbereich D2:D51 die Zahlen 1 bis 50 zufaellig "verteilt" werden.
Steht in J1 die Zahl 66, dann in D2:D67 die Zahlen 1 bis 66 per Zufallsauswahl.

Fuer eure Unterstuetzung vielen Dank im Voraus.

mfg
Fritz
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zahlen in Zellbereich zuf�llig anordnen
20.08.2024 22:41:41
Zwenn
Hallo Onur,

da hatten wir wohl die gleiche Idee 😂 Du hast es nur etwas kürzer aufgeschrieben und das Change Event verwendet.

Viele Grüße,

Zwenn
AW: VBA: Zahlen in Zellbereich zuf�llig anordnen
20.08.2024 22:46:53
Onur
Nur dass du für jede Zelle solange Zufallszahlen generieren lässt, bis die Zahl nicht bereits gezogen wurde und ich die Zahlen 1-50 (z.B.) wie bei Karten einfach mische, bis sie zufällig genug sind. :)
Anzeige
AW: VBA: Zahlen in Zellbereich zuf�llig anordnen
20.08.2024 22:54:01
Zwenn
Jou, habe ich auch gerade gesehen. Habe mir Deine Lösung noch einmal genauer angesehen :-) Beide Lösungen liefern das gewünschte Ergebnis. Ist doch gut^^
AW: VBA: Zahlen in Zellbereich zufaellig anordnen
20.08.2024 22:37:17
Zwenn
Hallo Fritz,

folgendes Makro liest die gewünschte Anzahl von Zahlen aus der Zelle J1. Anschließend wird ein Array generiert, in das jede Zahl aus dem Intervall 1 bis J1 genau einmal eingetragen wird. Die Zahlen werden via Zufall generiert. Für jede Zahl wird geprüft, ob sie bereits im Array enthalten ist. Wenn ja, wird sie verworfen, wenn nein, wird sie ins Array aufgenommen. Wenn das Array mit der gewünschten Anzahl Zahlen gefüllt ist, wird es in die Tabelle geschrieben, aus der das Makro aufgerufen wurde. Dort ab Zelle D2 nach unten. 



Sub ZufallsIntervall()



  Dim sollZahlen As Long

  Dim eineZahl As Long

  Dim alleZahlen() As Long

  Dim aktuelleZahl As Long

  Dim i As Long

  Dim fehlendeZahl As Boolean

  

  sollZahlen = Cells(1, 10) 'Anzahl zu generierender Zahlen aus J1 auslesen

  

  If sollZahlen > 0 Then

    ReDim alleZahlen(sollZahlen - 1, 0)

    

    Do

      eineZahl = Int(Rnd * sollZahlen + 1)

      fehlendeZahl = True

      

      For i = 0 To aktuelleZahl - 1

        If eineZahl = alleZahlen(i, 0) Then

          fehlendeZahl = False

          Exit For

        End If

      Next i

      

      If fehlendeZahl Then

        alleZahlen(aktuelleZahl, 0) = eineZahl

        aktuelleZahl = aktuelleZahl + 1

      End If

    Loop Until alleZahlen(UBound(alleZahlen, 1), 0) > 0

  Else

    MsgBox "Anzahl gewünschter Zahlen muss größer als 0 sein"

  End If



  Range("D2:D" & sollZahlen + 1) = alleZahlen

End Sub


Viele Grüße,

Zwenn
Anzeige
AW: VBA: Zahlen in Zellbereich zufaellig anordnen
21.08.2024 06:49:28
Fritz_W
Hallo Onur und Zwenn

super, eure beiden Vorschläge funktionieren perfekt.
Lieben Dank für eure Hilfe.

mfg
Fritz
@Onur und Zwenn
21.08.2024 09:14:34
Fritz_W
Hallo Onur und Zwenn,

ich möchte mich, nachdem ich eure beiden Lösungsvorschläge ausgiebig getestet und mir den jeweiligen Code angesehen habe noch einmal melden.
Obwohl ich wenig von VBA verstehe, ist der Code jeweils so gut strukturiert, dass ich ihn jeweils auf veränderte Situationen anpassen konnte und die Makros so künftig wohl noch häufiger verwenden kann.
Ich will diese Nachricht daher auch noch einmal zum Anlass nehmen, mich noch einmal mal ausdrücklich ganz herzlich bei euch zu bedanken. So kompetente und tolle Lösungsvorschläge, ihr Helfer seid einfach großartig.

mfg
Fritz
Anzeige
gerne !
21.08.2024 11:06:39
Onur
Außer Konkurrenz …
21.08.2024 06:07:56
RPP63
Moin!
Gönne Dir ein neues Excel oder nutze Excel-Online.
Dann ist es ein simples
=SORTIERENNACH(SEQENZ(Zahl);ZUFALLSMATRIX(Zahl))
 DJ
1Liste7
25 
34 
41 
56 
62 
73 
87 
9  

ZelleFormel
D2=SORTIERENNACH(SEQUENZ(J1);ZUFALLSMATRIX(J1))


Gruß Ralf
Anzeige
AW: Außer Konkurrenz …
21.08.2024 06:51:09
Fritz_W
Hallo Ralf,
danke für den Hinweis.
Aber dafür brauchts wohl die Abo Version 365

mfg
Fritz
;

Forumthreads zu verwandten Themen

Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Anzeige
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Anzeige
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Zahl in einer Zelle finden
question2

Hallo,
ich habe folgendes Problem.
In einem Tabellenblatt befinden sich Zellen mit Sätzen. Innerhalb der Sätze sind an beliebigen Positionen (von Satz zu Satz völlig unterschiedlich Zahlen enthalten. Hier ein Beispiel aus Zelle A1: "In dieser Zeile befindet sich der Wert von 57 Euro wel...
10.06.2009 22:15:37
Thread-ID: 1080628
10 Beiträge
Erste Minuszahl in Spalte "B" Rückgabe der Zelle
werner

Hallo
ich habe eine Annuität gerechnet.
Ich bin benötige die Zelle in Spalte "B" wo die erste Minuszahl erscheint.
Das Ergebnis soll in Zelle B2 Erscheinen.
Was kann ich tun
Spalte A Spalte B
01.04.2029 232,08 750,00 -517,92 -1,94
01.05.2029 -519,86 750,00...
14.07.2009 14:53:51
Thread-ID: 1088510
7 Beiträge
SpinButton - Jahreszahl, Tagesdatum-VBA
Wolfgang

Hallo,
ich versuche, in einem Tabellenblatt zwei SpinButton einzubauen. Bezug ist für das eine die Zelle B1 mit einer Jahreszahl -beginnend 2009-, das andere in B2 mit Tagesdatum. Gebe ich etwas in Eigenschaften ein, kommen regelmässig eine Fehlermeldungen. Kann das evtl. auch über VBA gelö...
17.09.2009 08:00:40
Thread-ID: 1103422
6 Beiträge
Anzeige
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige