Code Snippet "VBA allgemein"

Beliebige Zufallszahlen generieren

'Allgemeine Zufallszahlen generieren
Sub procZufallszahlen()
  Const INT_UNTERGRENZE As Integer = 1
  Const INT_OBERGRENZE As Integer = 40
  
  Dim intButton As Integer
  Dim intZahl As Single
  Dim intDifferenz As Integer
  
  intDifferenz = INT_OBERGRENZE - INT_UNTERGRENZE + 1
  
  'Zufallsgenerator initialisieren
  Randomize
  
  Do
    'Achtung: wegen negativer Zahlen muss Int() statt Fix() verwendet werden
    intZahl = Int(Rnd() * intDifferenz + INT_UNTERGRENZE)
    intButton = MsgBox("Sie haben " & FormatNumber(intZahl, 2) & " erhalten." & vbCrLf & _
      "Möchten Sie noch eine Zufallszahl?", vbOKCancel)
  Loop While intButton <> vbCancel
  
End Sub