Generere 3000 rækker med tal

det var vist ikke så godt formuleret, jeg prøver lige igen:

jeg vil gerne have genereret 3000 rækker.
I hver række vil jeg gerne have 13 tal.
hvert af de 13 tal skal stå i en kolonne for sig selv.
i hver række må det samme tal ikke gå igen.
blandt de 3000 rækker må der ikke være nogle ens rækker

Public Sub LavTal()
    Dim Tal(3000, 12) As Variant, I As Integer, X As Integer, Nr As Integer
    Dim Y As Integer, Z As Integer, Antal As Integer, AA As Integer
    Randomize
   
    For I = 0 To 2999

        For X = 0 To 12
            Nr = Int((90 * Rnd) + 1)

            Tal(I, X) = Nr
            For Z = 0 To X - 1
                If Tal(I, Z) = Nr Then    ' tjekker rækken for dubletter
                    X = X - 1
                End If
            Next
        Next


        For Y = 0 To I - 1
            Antal = 0
            For Z = 0 To 12
                If Tal(Y, Z) = Tal(I, Z) Then Antal = Antal + 1 ' tjekker rækker op mod hinanden
            Next
            If Antal = 13 Then ' hvis der er 13 ens, laves den om
                I = I - 1
                Exit For
            End If

        Next

    Next
    Range("A1:M" & UBound(Tal) + 1) = Tal
End Sub

Nu kan du se i statusbaren hvad den laver.

Public Sub LavTal()
    Dim Tal(2999, 12) As Variant, I As Integer, X As Integer, Nr As Integer
    Dim Y As Integer, Z As Integer, Antal As Integer
    Randomize
    For I = 0 To 2999
        Application.StatusBar = "Laver række nr.: " & I + 1 & " af 3000"
        For X = 0 To 12
            Nr = Int((90 * Rnd) + 1)    ' udtrækker tal
            Tal(I, X) = Nr
            For Z = 0 To X - 1
                If Tal(I, Z) = Nr Then    ' tjekker rækken for dubletter
                    X = X - 1
                    Exit For
                End If
            Next
        Next

        For Y = 0 To I - 1
            Antal = 0
            For Z = 0 To 12
                If Tal(Y, Z) = Tal(I, Z) Then Antal = Antal + 1    ' tjekker rækker op mod hinanden
            Next
            If Antal = 13 Then    ' hvis der er 13 ens, laves den om
                I = I - 1
                Exit For
            End If
        Next
    Next

    Range("A1:M" & UBound(Tal) + 1) = Tal
    Application.StatusBar = ""
End Sub

nu spørger jeg nok lidt dumt, men hvor skal jeg skrive dette?

I excel
Tryk ALT +F11
i menuen der vælg
Insert > Module

Kopier koden ind på den hvide del

luk på øverste højre x

Nu er du tilbage på arket
Vælg Funktioner > makro
vælg makroen og tryk afspild

Husk at din Makro sikkerhed, ikke må stå til høj

SUPER, det var lige hvad jeg manglede, laver du et svar så du kan få nogle points :)

et svar ;-))