Thema Datum  Von Nutzer Rating
Antwort
17.06.2015 20:45:22 Icke
NotSolved
17.06.2015 20:52:27 Gast80470
NotSolved
17.06.2015 21:37:55 Chris1807
**
Solved
17.06.2015 22:12:57 Icke
NotSolved
18.06.2015 19:59:23 Gast57578
NotSolved
18.06.2015 20:00:12 Chris1807
*
Solved
Rot Zufallszahl in Abhängigkeit von Zahlenbereich
 19.06.2015 16:41:23 Gast50820
**
Solved

Ansicht des Beitrags:
Von:
Gast50820		 Datum:
19.06.2015 16:41:23		 Views:
1279		 Rating:
     
Antwort:
 Nein
Thema:
Zufallszahl in Abhängigkeit von Zahlenbereich		 
Option Explicit

Sub Bsp()
  
  With Worksheets("Tabelle1")
    'autom. Berechnung deaktivieren (es soll nur 1x geziehlt berechnet werden)
    .EnableCalculation = False
    'Definition der Zufallszahlen
    .Range("A1:A10").Formula = "=RANDBETWEEN(1,19)"
    .Range("C1:C10").FormulaR1C1 = "=RANDBETWEEN(1,20-RC[-2])"
    'Zufallszahlen 1x berechnen lassen
    .EnableCalculation = True
    .EnableCalculation = False
    'Formelnwerte in reine Werte umwandeln
    .Range("A1:A10").Value = .Range("A1:A10").Value
    .Range("C1:C10").Value = .Range("C1:C10").Value
    'autom. Berechnung wieder aktivieren (!)
    .EnableCalculation = True
  End With
  
End Sub

Excel eigene Methoden sind i.d.R. schneller als VBA Schleifen.

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
17.06.2015 20:45:22 Icke
NotSolved
17.06.2015 20:52:27 Gast80470
NotSolved
17.06.2015 21:37:55 Chris1807
**
Solved
17.06.2015 22:12:57 Icke
NotSolved
18.06.2015 19:59:23 Gast57578
NotSolved
18.06.2015 20:00:12 Chris1807
*
Solved
Rot Zufallszahl in Abhängigkeit von Zahlenbereich
 19.06.2015 16:41:23 Gast50820
**
Solved