• VBA

  test

  Posted by Excel Community on 23. Februar 2025 at 13:32

  Sub procRandomNumbers()
  
    Const INT_MAX_ZAHL = 1000
  
  
  
    Randomize 'Zufallsgenerator initialisieren
  
    
  
    For Each objCell In Selection
  
      'Rnd erzeugt Zufallszahl >= 0 und < 1
  
      objCell.Value = Int((INT_MAX_ZAHL * Rnd))
  
    Next
  
  End Sub

  Excel Community replied 2 weeks, 3 days aktiv. 1 Member · 0 Replies
• 0 Replies

Log In to Reply