Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige