Private Sub CommandButton1_Click()
Cells(Zufall, 1).Select
End Sub
 
Private Function Zufall()
Dim Zahl As Integer
 
Randomize -Timer
 
Dim Result As Boolean
 
  Do
    Zahl = Int(100 * Rnd + 1)
    Result = True
      If Zahl < 1 Or Cells(Zahl, 1) = "" Then
        Result = False
      End If
  Loop Until Result = True
 
  Zufall = Zahl
End Function