Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zufallszahl innerhalb eines Berieches als Variable

Zufallszahl innerhalb eines Berieches als Variable
k
Hallo,
habe einen Bereich in einem Tabellenblatt (W3:W17) mit Zahlen.
Nun möchte ich gern per Marko einer Variablen x - Zufällig eine der Zahlen aus dem Bereich übergeben...
wie lautet da richtige Code für ?!
Gruß und vielen Dank !
Kay
AW: Zufallszahl innerhalb eines Berieches als Variable
31.07.2009 15:52:41
Ramses
Hallo
Option Explicit

Sub test()
    Dim x As Long
    x = Int((17 - 3 + 1) * Rnd + 3)
    MsgBox x
End Sub

Gruss Rainer
Anzeige
AW: Zufallszahl innerhalb eines Berieches als Variable
31.07.2009 16:16:08
k
Super - vielen Dank ;o)
Gruß
Kay
das ist mE aber falsch !
31.07.2009 19:21:01
Matthias
Hallo Rainer
Zitat
habe einen Bereich in einem Tabellenblatt (W3:W17) mit Zahlen.
Nun möchte ich gern per Marko einer Variablen x - Zufällig eine der Zahlen aus dem Bereich übergeben.
Mal angenommen ich habe diese Konstelation:
Userbild
Mit diesem Code kannst Du es probieren. Ich hatte keinen Erfolg!
Dein Code wird nix finden was größer 17 ist.
Option Explicit
Sub test()
Dim x As Long, Y As Long
For Y = 1 To 10000000
x = Int((17 - 3 + 1) * Rnd + 3)
'MsgBox x
If x > 17 Then MsgBox x: Exit For
Next
'MsgBox x
End Sub
Wenn ich einen Denkfehler habe, bitte klärt mich auf.
Gruß Matthias
Anzeige
AW: das ist mE aber falsch !
31.07.2009 19:54:38
Tino
Hallo,
X gibt ja auch nur die Zeile zurück von 3 bis 17.
 Dim X As Long
X = Int((17 - 3 + 1) * Rnd + 3)
MsgBox Cells(X, 23) '23 = Spalte W
Gruß Tino
Ja, ich wei0 das ...
31.07.2009 20:40:36
Matthias
Hallo Tino
Das mußt Du aber an Ramses schicken und nicht an mich.
Ich hab ihn ja schließlich selbst darauf hingewiesen.
Wenn ich nicht wüßte wie es richtig ist, hätte ich mich garantiert rausgehalten.
Gruß Matthias
AW: Ja, ich wei0 das ...
31.07.2009 20:58:02
Tino
Hallo,
dachte nur weil dein Beispiel auch nicht den zellwert zurückgibt.
Sorry ist wohl falsch rübergekommen.
Gruß Tino
So gesehen schon....
01.08.2009 09:42:53
Ramses
Hallo
Aber Kay konnte das dann offensichtlich umsetzen und Tino hat das Prinzip auch erkannt.
Das Beispiel sollte nur die Generation von Zufallszahlen in einem betimmten Bereich darlegen um zufällige Zelladressen in diesem Bereich anzusprechen
Gruss Rainer
Anzeige
AW: Zufallszahl innerhalb eines Berieches als Variable
31.07.2009 19:50:39
hary
Hallo zusammen
geht das nicht so? Es ist doch nicht gesagt das es immer Zahlen von 3 bis 17 sind,oder. 

Sub test()
Dim x As Long
x = Int((17 - 3 + 1) * Rnd + 3)
MsgBox cells(x,23)
End Sub

Gruss Hary
AW: Zufallszahl innerhalb eines Berieches als Variable
31.07.2009 19:51:20
hary
Hallo zusammen
geht das nicht so? Es ist doch nicht gesagt das es immer Zahlen von 3 bis 17 sind,oder. 

Sub test()
Dim x As Long
x = Int((17 - 3 + 1) * Rnd + 3)
MsgBox cells(x,23)
End Sub

Gruss Hary
AW: Zufallszahl innerhalb eines Berieches als Variable
04.08.2009 11:32:15
k
Hallo,
habe es mithilfe der Formel so gelöst, dass ich anstelle der "festen" Werte die Zellbereiche auslese und einsetze.
Gruß
Kay
Anzeige

306 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
mehrere Zufallszahlen aus Bereich ohne Wiederholun
Dieterlem

Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiede...
19.08.2008 22:05:38
Thread-ID: 1003045
4 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
20
6
1
2
4
3
18
3
3
2
1
1
3
11
5
15
3
11
2
5
2
2
3
1