Herbers Excel-Forum - das Archiv

Macro

    Bild

    Betrifft: Macro
    von: Jürgen Link
    Geschrieben am: 25.09.2003 20:15:58
    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

    Bild

    Betrifft: AW: Macro
    von: Nepumuk
    Geschrieben am: 25.09.2003 20:46:21
    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
    Bild

    Betrifft: AW: Macro Schleife
    von: Jürgen Link
    Geschrieben am: 25.09.2003 21:10:14
    Hallo,

    Danke für die schnelle Hilfe.

    Mit freundlichen Grüßen

    Jürgen Link
     Bild