Zufallsgenerator

Forumthread: Zufallsgenerator
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zufallsgenerator

Zufallsgenerator

16.11.2006 00:06:03

DieterG

Hallo Excelfreunde,
wie läßt sich per VBA aus Tabelle2 D3:D2000 ein zufällig ermittelter Wert in Tabelle1 B4 kopieren?
Danke schon mal
Gruß Dieter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallsgenerator

16.11.2006 00:26:06

{Boris}
AW: Zufallsgenerator

16.11.2006 00:49:25

DieterG
AW: Zufallsgenerator

16.11.2006 09:26:27

{Boris}
AW: Zufallsgenerator

16.11.2006 11:31:06

DieterG

AW: Zufallsgenerator

16.11.2006 00:26:06

{Boris}

Hi Dieter,
Option Explicit


Sub Zufall()
Dim lRow As Long
Randomize
lRow = CLng(Rnd * 1998) + 3
Worksheets("Tabelle1").Range("B4") = Worksheets("Tabelle2").Range("D" & lRow)
End Sub

Grüße Boris

AW: Zufallsgenerator

16.11.2006 00:49:25

DieterG

Hallo Boris,
das klapp hervorragen!
Wäre es vielleicht noch möglich, daß nur Zellen berücksichtigt werden in denen ein Wert eingetragen wurde?
Danke
Gruß Dieter

AW: Zufallsgenerator

16.11.2006 09:26:27

{Boris}

Hi Dieter,
mit ein bisschen Trial and Error zum Beispiel. Bei dieser Datenmenge zeitlich nicht spürbar:
Option Explicit


Sub Zufall()
Dim lRow As Long
Randomize
Do
lRow = CLng(Rnd * 1998) + 3
With Worksheets("Tabelle2")
If .Range("D" & lRow) <> "" Then
Worksheets("Tabelle1").Range("B4") = .Range("D" & lRow)
Exit Do
End If
End With
Loop
End Sub

Grüße Boris

AW: Zufallsgenerator

16.11.2006 11:31:06

DieterG

Hallo Boris,
Das ist Spitzenklasse!
Danke nochmal für Deine Mühe
Gruß Dieter