Lodtrækning / VBA

Her er et bud

Sub randomnumbers()
  Dim rando As New Collection
  Dim i As Long, FirstNumber As Long, Lastnumber As Long, counter As Long
  Dim x As Long
  Dim rgStart As Range
  On Error Resume Next
  FirstNumber = InputBox("start nummer ?")
  Lastnumber = InputBox("Slut nummer ?")
  counter = InputBox("Hvor mange numre ?")
  Set rgStart = Application.InputBox("Hvor skal 1. tal sættes ?", "Angiv sted", , , , , , 8)
  If FirstNumber < 1 Then FirstNumber = 1
 
  Randomize
  While rando.Count < counter
      x = Int((Rnd() * (Lastnumber + 1 - FirstNumber))) + FirstNumber
      rando.Add x, CStr(x)
  Wend
 
  For x = 1 To counter
      rgStart.Offset(x - 1, 0) = rando(x)
  Next
End Sub

Tak for hjælpen, det gjorde tricket...

Argh, kan aldrig finde ud af det her point ting...hvordan giver jeg dig point Bak?

Ja, det var jo så forkert...har du mulighed for at redde dig pts endnu?

nix, men det også ok, jeg har nok :-)

Ok...men har det da skidt med at snyde folk fordi jeg dummer mig...

Du snyder jo ikke, når du gerne ville have givet pointene.
Grunden til at du ikke kunne give point, var at jeg ikke havde lagt et svar fordi jeg ville være sikker på at det kunne bruges og at spm i mellemtiden også var åbent for andre :-)