RandomZeilen mit individ. auswählb. ZeilenAnzahl
Chris
ich würde gerne aus einer Datei mit variierender Zeilen Anzahl eine frei wählbare Anzahl an Random Zeilen herauskopieren. Ich habe dafür schon einen sehr gut funktionieren Code im Internet gefunden, allerdings mit dem Haken, dass man die Anzahl an Random Zeilen im Code selbst auswählen muss (Const intMaxZeile = 270) und nicht über zB eine Inputbox bei jeder Anwendung selbst bestimmen kann. Fällt Euch hier eine Möglichkeit ein, den Code so umzuschreiben, dass dies funktioniert?
Lieben Dank für Eure Hilfe
Chris
Sub Random_rows()
Const intMaxZeile = 270
Dim lngAnzahlZeilen As Long
Dim lngZeile(1 To intMaxZeile) As Long
Dim intZeile As Integer
Dim intTemp As Integer
Dim blnDoppelt As Boolean
Dim rngZeilen As Range
lngAnzahlZeilen = ActiveSheet.UsedRange.Rows.Count
For intZeile = 1 To intMaxZeile
Do
blnDoppelt = False
lngZeile(intZeile) = Int(Rnd() * lngAnzahlZeilen + 1)
For intTemp = 1 To intZeile - 1
If lngZeile(intTemp) = lngZeile(intZeile) Then
blnDoppelt = True
intTemp = intZeile
End If
Next
Loop Until Not blnDoppelt
If intZeile = 1 Then
Set rngZeilen = Rows(lngZeile(intZeile))
Else
Set rngZeilen = Union(rngZeilen, Rows(lngZeile(intZeile)))
End If
Next
rngZeilen.EntireRow.Copy Sheets.Add.[A7]
Set rngZeile = Nothing
End Sub