Hallo, wer kann mir im folgendem Code so änder dass es keine doppelte Zahlen mehr in einer Zeile gibt.
Danke schon mal fü eure Hilfe.
Danke schon mal fü eure Hilfe.
Visual Basic:
Private Sub ZufallsZahlen(Bereich As Range, ByVal Von As Long, _
ByVal Bis As Long)
Dim vx() As Variant, i As Long, k As Integer
On Error GoTo Fehler
Randomize Timer
With Bereich
ReDim vx(.Rows.Count - 1)
ReDim vx(.Rows.Count - 1, .Columns.Count - 1)
For i = 1 To .Rows.Count
For k = 1 To .Columns.Count
vx(i - 1, k - 1) = Int((Bis - Von + 1) * Rnd + Von)
Next k
Next i
.Value = vx()
End With
'Sortieren
For i = 1 To Bereich.Rows.Count
Bereich.Rows(i).Sort Bereich.Rows(i).Cells(1), Orientation:=2
Next
Exit Sub
Fehler:
MsgBox "Fehler: " & vbCrLf & Err.Description
End Sub
Zuletzt bearbeitet von einem Moderator: