6 Zahlen nach Zufall markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Unbekannter,
ein Name wäre schon ganz schön, dann hat man das Gefühl, mit einem Menschen zu reden...
Warum so kompliziert mit rotem Ring und so?
Das soll wohl eine ganz normale Lotto-Auswahl ergeben oder etwa doch nicht?
Die Zahlen 1 bis 49 sind nur Tand.
versuche es mal mit dieser Version:

Sub test() Dim rng As Range, rngAll As Range Dim iRandomize As Integer Dim Spalte As String Dim SortierSpalte As String Dim OffsetSpalte As String Dim rRange As String Dim Anzahl As Integer Dim SpaltenKopf Dim FelderAnzahl As Integer SpaltenKopf = Array("B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", " _ P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") Anzahl = InputBox("Wie viele Spalten sollen gerechnet werden?") For FelderAnzahl = 0 To Anzahl - 1 Spalte = SpaltenKopf(FelderAnzahl) SortierSpalte = Spalte & "2" OffsetSpalte = Spalte & "10" rRange = Spalte & "2:" & Spalte & "7" Set rngAll = Range(rRange) Randomize rngAll.ClearContents For Each rng In rngAll.Cells iRandomize = Int((49 * Rnd) + 1) Do Until WorksheetFunction.CountIf(rngAll, iRandomize) = 0 iRandomize = Int((49 * Rnd) + 1) Loop rng.Value = iRandomize Next rng Range(rRange).Select Dim sVersion As String sVersion = Application.Version Select Case sVersion Case Is = "11:0" Selection.Sort Key1:=Range(SortierSpalte), Order1:=xlAscending, Header:=xlGuess, _ _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Case Is = "12.0" ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _ SortierSpalte), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets(1).Sort .SetRange Range(rRange) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Select Next FelderAnzahl End Sub

Gruß ...braleta

Private Sub SelectRandom(rngParam As Range, intParam As Integer) Dim lngCount As Long Dim r As Range Dim arr() As Variant Dim s$, i%, j% ' Abbruchkriterien If intParam 10000 Then Exit Sub If lngCount

Option Explicit Sub Mark6() Dim arrZ, ii As Long MarkWeg arrZ = Zufallsliste(49) For ii = 1 To 6 Cells(1, ii + 1) = arrZ(ii) ' falls du die 6 Zahlen in Zeile 1 haben möchtest arrZ(ii) = arrZ(ii) - 1 Cells(Fix(arrZ(ii) / 7) + 4, arrZ(ii) Mod 7 + 2).Interior.ColorIndex = 3 Next ii End Sub Sub MarkWeg() Range("B1:G1").ClearContents Range("B4:H10").Interior.ColorIndex = xlNone End Sub Function Zufallsliste(intI As Integer) ' Zahlen 1 bis Anzahl ohne Wiederholung - ingUR 04.12.2006 ' www.herber.de/forum/archiv/824to828/t825988.htm Dim ii As Long, iLosNr As Long, arrOK() As Boolean, arrLos() As Long ReDim arrOK(1 To intI), arrLos(1 To intI) Randomize For ii = 1 To intI Do iLosNr = Int((intI * Rnd) + 1) If Not arrOK(iLosNr) Then arrLos(ii) = iLosNr: arrOK(iLosNr) = True Loop Until arrLos(ii) > 0 Next Zufallsliste = arrLos End Function

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6 Zahlen nach Zufall markieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread