Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Zufall()
   Dim intRow As Integer
   Randomize
   For intRow = 1 To 100
      Cells(intRow, 1) = Int((10 * Rnd) + 1)
   Next intRow
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zufall