Loop specifikt antal gange

Smid en Textbox med navn Text1 på din form, og brug følgende

Dim Loopnumber as Long
Dim counter as Long
LoopNumber = CInt(Text1.Text)
For Counter = 1 to LoopNumber
  Msgbox "Loop nr. " & Counter & " af " & Loopnumner
  'Anden kde
Next Counter

Og så bør du sørge for at der KUN kan tastes tal i din textbox, og f.eks. kun 3 cifre. Du sætter MaxLength =3 på din textBox, og skriver følgende kode, der gør, at der kun kan tastes tal:


Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKeyBack 'Backspace er lovligt
    Case 48 To 57 'Tallene 0-9
    Case Else 'Alle andre tastetryk
      KeyAscii = 0 'Sletter det tastede tegn
  End Select
End Sub

PS: Når du sørger for at der kun kan tastes tal ind i textboxen vha. KetPress proceduren, kan du evt. skrive
  LoopNumber = val(Text1.Text) i stedet for LoopNumber = CInt(Text1.Text)

Tak for et mega hurtigt svar :)

<-*-*-*-*-*- SPØRGSMÅL LUKKET -*-*-*-*-*->