Zufallszahl

Forumthread: Zufallszahl

Zufallszahl

19.02.2009 20:31:00

Timmy

Liebe Excler,
in angehaengter Datei kann ich Zufallszahlen bestimmen, im Prinzip nichts anderes als Lotto!
https://www.herber.de/bbs/user/59607.xls
"Problematik" ist in der Datei aufgefuehrt...
muchas gracias a todos... ^^
Gruesse
Timmy

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zufallszahl

19.02.2009 20:38:00

chris
AW: Zufallszahl

19.02.2009 20:38:00

Josef
AW: WOW!

19.02.2009 20:43:00

Timmy
Die Zahlen vom Samstagslotto...

19.02.2009 20:57:00

Josef
AW: Haha... Super vielen Dank!!! ;-) owT

19.02.2009 21:01:00

Timmy

AW: Zufallszahl

19.02.2009 20:38:00

chris

Hallo Timmy hilft dir der code so weiter ?
Option Explicit


Sub Makro1()
Dim Bereich As Range
Dim lZZ As Long
If Cells(5, 3)  "" Then Range("C2:D5").ClearContents
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
With Application.WorksheetFunction
If .CountA(Columns(1)) = .CountA(Columns(3)) + .CountA(Columns(4)) Then
MsgBox "Alle Namen sind schon vorhanden"
Else
Do
Randomize
lZZ = Int(Bereich.Cells.Count * Rnd) + 1
Loop While .CountIf(Range("C:D"), Bereich(lZZ)) > 0 Or Bereich(lZZ) = ""
If .CountA(Columns(3)) = .CountA(Columns(4)) Then
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Bereich(lZZ)
ElseIf .CountA(Columns(3)) > .CountA(Columns(4)) Then
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Bereich(lZZ)
End If
End If
End With
End Sub

gruß Chris

AW: Zufallszahl

19.02.2009 20:38:00

Josef

Hallo Timmy,
Sub Makro1()
Dim Bereich As Range
Dim lZZ As Long
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))

Randomize Timer 'Guckst du in die OH!

If Application.Count(Range("C2:D5")) >= 7 Then Range("C2:D5").ClearContents

With Application.WorksheetFunction
    If .CountA(Columns(1)) = .CountA(Columns(3)) + .CountA(Columns(4)) Then
        MsgBox "Alle Namen sind schon vorhanden"
    Else

        Do
            lZZ = Int(Bereich.Cells.Count * Rnd) + 1
        Loop While .CountIf(Range("C:D"), Bereich(lZZ)) > 0 Or Bereich(lZZ) = ""

        If .CountA(Columns(3)) = .CountA(Columns(4)) Then
            Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = Bereich(lZZ)
        ElseIf .CountA(Columns(3)) > .CountA(Columns(4)) Then
            Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = Bereich(lZZ)
        End If
    End If
End With

Gruß Sepp

AW: WOW!

19.02.2009 20:43:00

Timmy

Hey Chris und Sepp,
das war ja mal flott... funktionieren beide einwandfrei!!!!
Vielleicht habt ihr mir auch noch einen Code, mit dem ich die Zahlen vom Samstagslotto rauskriegen kann!? LOL ;-))
schoenen Abend euch noch und danke nochmal...
Gruss
Timmy

Die Zahlen vom Samstagslotto...

19.02.2009 20:57:00

Josef

... rauszufinden ist ganz einfach.
Kauf dir am Sonntagmorgen einfach eine Zeitung;-)))

Gruß Sepp

AW: Haha... Super vielen Dank!!! ;-) owT

19.02.2009 21:01:00

Timmy

Beliebteste Forumthreads (12 Monate)

Forumthread: Zufallszahl

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread