Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
312to316
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
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Macro

Macro
25.09.2003 20:15:58
Jürgen Link
Hallo,

Schaltfläche "Neu" muss für jede Lottoreihe neu angeklickt werden. Das zugewiesene Makro "Sub Lotto() " soll aber so oft widerholt werden bis in Zelle "H10" die Zahl "1" erscheint.
Beispieldatei:
http://mitglied.lycos.de/plusbannertausch/M1.xls

Mit freundlichen Grüßen

Jürgen Link

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

Betreff
Datum
Anwender
Anzeige
AW: Macro
25.09.2003 20:46:21
Nepumuk
Hallo Jürgen,
so geht's:


Sub Lotto()
Dim wks As Worksheet, rng As Range
Dim iLotto As Integer, iCount As Integer
Set wks = Worksheets("Nummern")
Do
Randomize
For iLotto = 1 To 49
wks.Cells(iLotto, 1).Value = iLotto
Next iLotto
For Each rng In Range("A1:F1").Cells
iCount = WorksheetFunction.CountA(wks.Columns(1))
iLotto = Int((iCount * Rnd) + 1)
rng.Value = wks.Cells(iLotto, 1).Value
wks.Rows(iLotto).Delete
Next rng
Calculate
NeueKombi
Loop Until Cells(10, 8).Value = 1
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Macro Schleife
25.09.2003 21:10:14
Jürgen Link
Hallo,

Danke für die schnelle Hilfe.

Mit freundlichen Grüßen

Jürgen Link

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige