Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: VBA Zufallscounter

Forumthread: VBA Zufallscounter

VBA Zufallscounter
13.04.2007 19:50:37
Peter
Hallo! Kann mir wer helfen?
Habe folgendes vor, bin aber leider unfähig, es in VBA umzusetzen:
User soll eine Zufallszahl beliebiger Länge eingeben in eine freie Zelle.
Excel soll in einer Schleife solange Zufallszahlen generieren, bis die erzeugte Zufallszahl mit der
vom User eingegebenen Zahl übereinstimmt. Dabei soll ein einfacher Counter die Versuche mitzählen - d.h. der Counter soll bei jeder Zufallszahl, die noch nicht der vorgegebenen Zahl entsprach, um 1 erhöht werden.
Kann mir jemand helfen?!
Vielen vielen Dank im voraus!

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zufallscounter
13.04.2007 20:20:00
Jan
"...eine Zufallszahl beliebiger Länge..."
Kaum praktikabel, bis 6 Stellen gehts noch einigermaßen, darüber dauert es zu lange.
mfg jan

AW: VBA Zufallscounter
14.04.2007 04:47:11
Mustafa
Hallo Peter,
trotz das ich es genauso sehe wie Jan, hier mal ein Beispiel Code.

Sub zufall()
Dim Obergrenze, Untergrenze, X, Z
Obergrenze = Cells(1, 1) * 2
Untergrenze = 1
Z = 0
Do While X  Cells(1, 1)
X = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
Z = Z + 1
Loop
Cells(2, 1) = Z
End Sub


In Zelle A1 die Zahl eingeben, ausgabe erfolgt in Zelle A2
Rückmeldung obs Hilft wäre nett.
Viele Grüße aus Köln.

Anzeige
;

Forumthreads zu verwandten Themen

VBA: rows.count benachbarte Zellen
rkak907

Hallo,
mal wieder eine Frage... Ich habe sagen wir mal 2 Spalten "A" und "B"!
Spalte "A" ist ausgefüllt, in "B" ist gar nichts. Ich möchte nun die Spalte "B" soweit nach unten markieren, wie Spalte "A" ausgefüllt ist.
Das heisst wenn Spalte "A" bis Zeile 15 etwas stehen hat, dann so...
20.04.2009 12:47:57
Thread-ID: 1069779
10 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
Anzeige
UsedRange.Rows.Count liefert falschen Wert
Tomsen

Hallo
abe da ein kleines Problem mit dem zählen der belegten Reihen. Die oben genannte Funktion liefert mir nicht den richtigen Wert der sollte 45 sein sondern 64458. Habe keine Schimmer wieso? irgendeine Formatierung ist in den Reihen nicht vorhanden.
02.11.2010 09:28:18
Thread-ID: 1184805
4 Beiträge
Gegenteil "Cells(Rows.Count, 1).End(xlUp).Row" ?
kle

Hallo,
Dieser Code findet die letzte Zeile:
Worksheets("Seriendruck").Cells(Rows.Count, 1).End(xlUp).Row
Aber wie muss es heißen für die letzte beschrieben Spalte einer Zeile x ?
erhalte nicht das richtige Ergebnis ;o(
Letzer Versuch war: (Zeile 14)
n = Worksheets("Daten...
21.02.2011 15:06:16
Thread-ID: 1202113
2 Beiträge
Anzeige
VBA Find Value and Delete Row
Marc

Hi VBA team,
I have following problem.
I field B3 I have a text/value and this text/value should be searched in column A. When it finds the text/value ( for example A10 ) it should delete the Row.
For any help thanks in advance!
Marc
30.06.2011 04:11:51
Thread-ID: 1220246
5 Beiträge
.usedrange.rows.count erhöht sich bei dickem Rahme
R.Przybilla

Hallo Excel-Kenner,
ich arbeite gern mit .usedrange.rows.count
nun kommt es vor, dass mitten im Makro das .usedrange um 1 erhöht wird, wenn ich am usedrange unten ein dicken Rahmen mache.
Ich suche weniger eine Lösung, sondern vielmehr den Grund dafür.
Hat jemand eine Ahnung?
21.05.2012 12:55:03
Thread-ID: 1264187
5 Beiträge
Verknüpfung Range,SpecialCells,RowCount
Marsch

Hallo zusammen,
unter https://www.herber.de/bbs/user/110833.xlsm findet ihr zum folgenden die passende Testdatei, falls dies weiterhilft.
Vorab: Meine Kenntnisse sind begrenzt, ich versuche aber aktuell diese learning-by-doing auszubauen. Habe auch versucht diverse Ansätze zu kombiniere...
24.01.2017 09:49:09
Thread-ID: 1536972
3 Beiträge
COUNT (Anzahl) Formel in VBA verwenden
Michael

Hallo, ich möchte gerne durch einen Code prüfen ob in einer bestimmten Zelle eine Zahl vorkommt (ISnumeric geht nicht, da in der Zelle auch eine Text + Zahl stehen kann also z.B. KW5).
Für Excel habe ich die Formel "COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))>0" gefunden.
Möchte ich diese...
01.02.2018 23:08:22
Thread-ID: 1606462
5 Beiträge
IngRow / IngLast Anwendung VBA
Anne

Guten Abend, ich benötige mal Unterstützung:
mir ist die Anwendung von IngRow und IngLast in VBA nicht klar. Kann mir das jemand kurz an diesem Beispiel erklären?
Ich habe diesen Code, der bewirkt, dass Duplikate in Spalte C erkannt werden und je nach dem in welcher Zeile das jeweils a...
18.02.2019 19:30:12
Thread-ID: 1676374
8 Beiträge
VBA kompakte Find-Row-Funktion mit Error-Abfrage
Ralf

Hallo Forum,
ich habe folgendes VBA-Problem:
Ich möchte eine möglichst kompakte FIND/ROW Funktion/Positionsbestimmung nutzen die aber auch dann funktioniert, wenn es keinen Suchtreffer gibt - bisher hat dies mit folgender Anweisung immer recht gut geklappt - aber eben nur wenn ein Suchtr...
23.07.2004 20:50:52
Thread-ID: 459793
4 Beiträge
Probleme mit UsedRange.Rows.Count
ewald

Hallo zusammen,
ich markiere und anschließend lösche einen Bereich mit:
Range("A3:L" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Clear
soweit alles OK.
Mit den dem nachfolgenden Abschnitt aus dem Code markiere und formatiere
ich den gleichen Bereich erneut.
...
06.10.2004 16:44:55
Thread-ID: 496226
2 Beiträge
Countdown anzeigen VBA
Mathias

Hallo Forum,
könnt Ihr mir kurz helfen?
Ich habe eine UserForm3 von dort wird nach 30 sekunden eine weiter Prozedur aufgeführt.
Application.OnTime Now + TimeValue("00:00:30"), "my_Procedure"
nun würde ich gern in der UserForm3 einen Countdown anzeigen der diese 30 Sekunden runte...
11.04.2005 16:18:39
Thread-ID: 597337
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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