Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zufallszahl

Zufallszahl
silex1
Hallo,
vieleicht könnt Ihr mir helfen?
Unten seht Ihr den Bereich um den es geht.
Kann dieser mit Zufallszahlen (1-12) ausgefüllt werden, unter Beachtung von:
1. keine Zahl darf doppelt in einer Zeile vorkommt und
2. jede Zahl muss 4 mal im gesamten Bereich vorkommt.
 ABCD
11   
22   
33   
4 1  
5 2  
6 3  
7  1 
8  2 
9  3 
10   1
11   2
12   3
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Mit dankbaren Grüßen
René

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zufallszahl
20.01.2011 21:24:03
Josef

Hallo René,
so?


Sub zufallszahlenSpezial()
  Dim vntNumbers(1 To 12, 1 To 4)
  Dim vntN() As Variant, lngRow As Long, lngI As Long, lngRnd As Long
  Dim lngR As Long, lngC As Long
  
  Randomize Timer
  
  lngC = 1
  lngR = 1
  
  For lngRow = 1 To 4
    Redim vntN(1 To 12)
    For lngI = 1 To 12
      vntN(lngI) = lngI
    Next
    For lngI = 1 To 12
      lngRnd = Int(UBound(vntN) * Rnd + 1)
      vntNumbers(lngR, lngC) = vntN(lngRnd)
      vntN(lngRnd) = vntN(UBound(vntN))
      If UBound(vntN) > 1 Then Redim Preserve vntN(1 To UBound(vntN) - 1)
      lngC = lngC + 1
      If lngC > 4 Then
        lngR = lngR + 1
        lngC = 1
      End If
    Next
  Next
  
  Range("A1").Resize(UBound(vntNumbers, 1), UBound(vntNumbers, 2)) = vntNumbers
End Sub

Gruß Sepp

Anzeige
Danke!
20.01.2011 21:32:12
silex1
Hallo Sepp,
wie immer PERFEKT!
Besten Dank und schönes WE!
VG REné

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige