Tilfældige rækker

Option Explicit
Option Base 1

Sub kør()

  Call UdvælgTilfældige(10)

End Sub

Sub UdvælgTilfældige(antalTilfældige As Integer)

  Dim i As Integer
  Dim valgt As Integer
 
  Dim udvalgte(50) As Boolean

  For i = 1 To UBound(udvalgte)
      udvalgte(i) = False
  Next i

  i = 1
 
  While i <= antalTilfældige
 
      valgt = Int((50 * Rnd) + 1)
     
      If Not udvalgte(valgt) Then
        udvalgte(valgt) = True
        i = i + 1
      End If
 
  Wend
 
  Range("A60").Activate
 
  For i = 1 To UBound(udvalgte)
 
      If udvalgte(i) Then
       
        Range(Cells(i, 1), Cells(i, 8)).Copy
        ActiveSheet.Paste
       
        ActiveCell.Offset(1, 0).Activate
       
      End If
 
  Next i

End Sub

super, og den virker fint - sådan skal et svar være !!

Super duper!