Thema Datum  Von Nutzer Rating
Antwort
08.12.2014 20:48:27 adebar68
Solved
10.12.2014 19:53:30 Gast7114
*****
Solved
10.12.2014 19:59:25 Gast7114
Solved
Blau von mir aus wahlfrei
 10.12.2014 20:07:49 Gast7114
Solved
11.12.2014 03:22:04 adenar68
Solved

Ansicht des Beitrags:
Von:
Gast7114		 Datum:
10.12.2014 20:07:49		 Views:
8377		 Rating:
     
Antwort:
 Nein
Thema:
von mir aus wahlfrei		 
Option Explicit

Sub TestGenerierung()
Const MIN As Integer = 1                  'Zufallszahl von
Const MAX As Integer = 70                 'ditto
Const ANZAHL As Long = 5                  'Blockgröße
Const ZEILEN As Long = 100                'Blockgröße
Const TABELLE As String = "Tabelle2"      'Zieltabelle

Dim oSlist As Object
Dim oIlist As Object
Dim arrList() As Integer
Dim iInp As Integer, i As Integer
Dim strList As String
Dim Arr
ReDim arrList(ANZAHL)
Set oIlist = CreateObject("System.Collections.Sortedlist")
Set oSlist = CreateObject("System.Collections.Sortedlist")

oSlist.Clear
Do
   oIlist.Clear
   strList = ""
 Do
   iInp = WorksheetFunction.RandBetween(MIN, MAX)
   On Error Resume Next
   oIlist.Add iInp, ""
   On Error GoTo 0
   Loop Until oIlist.Count = ANZAHL
   For i = 0 To oIlist.Count - 1
      arrList(i) = oIlist.getkey(i)
      strList = strList & CStr(oIlist.getkey(i))
   Next i
   On Error Resume Next
   oSlist.Add strList, arrList
   On Error GoTo 0
Loop Until oSlist.Count = ZEILEN

With Sheets(TABELLE)
   .Range("A1").CurrentRegion.Clear
   For i = 0 To oSlist.Count - 1
      Arr = oSlist.GetByIndex(i)
      .Cells(i + 1, 1).Resize(1, UBound(Arr)).Value = Arr
   Next i
End With

Set oSlist = Nothing
Set oIlist = Nothing

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
08.12.2014 20:48:27 adebar68
Solved
10.12.2014 19:53:30 Gast7114
*****
Solved
10.12.2014 19:59:25 Gast7114
Solved
Blau von mir aus wahlfrei
 10.12.2014 20:07:49 Gast7114
Solved
11.12.2014 03:22:04 adenar68
Solved