Thema Datum  Von Nutzer Rating
Antwort
20.05.2018 02:38:13 Carmelo
NotSolved
20.05.2018 02:47:14 Gast19580
NotSolved
Rot warum kopieren?
 20.05.2018 08:33:29 Gast41897
NotSolved
20.05.2018 10:51:01 Carmelo
NotSolved
20.05.2018 19:32:08 RPP63
NotSolved

Ansicht des Beitrags:
Von:
Gast41897		 Datum:
20.05.2018 08:33:29		 Views:
431		 Rating:
     
Antwort:
  Ja
Thema:
warum kopieren?		 
Sub RandIt()
Dim lower As Long, upper As Long
Dim arrRandom() As Variant
Dim x As Long, y As Long

   lower = 1: upper = 99
   ReDim arrRandom(1 To 500, 1 To 4)
   
   For x = 1 To UBound(arrRandom, 1)
      For y = 1 To UBound(arrRandom, 2)
         Randomize
         arrRandom(x, y) = Int((upper - lower + 1) * Rnd + lower)
      Next y
   Next x
   
   Sheets("Samples").Range("B2").Resize(UBound(arrRandom, 1), UBound(arrRandom, 2)).Value = arrRandom

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.05.2018 02:38:13 Carmelo
NotSolved
20.05.2018 02:47:14 Gast19580
NotSolved
Rot warum kopieren?
 20.05.2018 08:33:29 Gast41897
NotSolved
20.05.2018 10:51:01 Carmelo
NotSolved
20.05.2018 19:32:08 RPP63
NotSolved