Private Sub UserForm_Click()
 
   Dim i As Integer, k As Integer
   Dim Reihen As Integer
   Reihen = 10
   Dim numbers() As Integer
 
   Tabelle1.Activate
   For i = 1 To Reihen
 
      'Zufallszahlen ohne Wiederholung erstellen
      CreateRandomNumbers numbers
 
      'Zufallszahlen in eine Spalte eintragen 
      For k = 1 To 7
          ActiveSheet.Cells(k, i) = numbers(k)
      Next k
 
   Next i
 
End Sub
 
Private Sub CreateRandomNumbers(ByRef numbers() As Integer)
 
   Dim zahl As Integer, i As Integer, k As Integer
   Dim exists As Boolean
   ReDim numbers(1 To 7)
 
   Do
      zahl = Fix(49 * Rnd + 1)
      exists = False
 
      For i = 1 To 7
         If numbers(i) = zahl Then exists = True
      Next i
 
      If Not exists Then k = k + 1: numbers(k) = zahl
   Loop While k < 7
 
End Sub