Thema Datum  Von Nutzer Rating
Antwort
23.04.2021 08:34:58 Timo
NotSolved
23.04.2021 09:37:25 Gast39508
NotSolved
23.04.2021 09:39:25 Timo
NotSolved
Blau Lotto-Zahlen
 25.04.2021 22:19:17 Gast87368
Solved

Ansicht des Beitrags:
Von:
Gast87368		 Datum:
25.04.2021 22:19:17		 Views:
250		 Rating:
     
Antwort:
 Nein
Thema:
Lotto-Zahlen

ein Vorschlag von mir:

Option Explicit

Sub Test()
  
  Dim col As VBA.Collection
  Dim i As Long
  Dim j As Long
  
  Set col = New VBA.Collection
  
  'kosmetischer Kram
  With Range("A1:G7")
    .Clear
    .Borders.LineStyle = xlContinuous
    .HorizontalAlignment = XlHAlign.xlHAlignCenter
    .VerticalAlignment = XlVAlign.xlVAlignCenter
  End With
  
  'Collection mit Zellen 1 bis 49 in einer 7x7 Matrix erzeugen
  For i = 1 To 7
    For j = 1 To 7
      'Cells(i, j).Value = j + (i - 1) * 7
      col.Add Cells(i, j)
    Next
  Next
  
  '(Pseudo-)Zufallszahlen-Generator initialisieren
  Randomize Timer
  
  '6x per Zufall ein Element aus der Collection auswählen
  For i = 1 To 6
    '1 bis col.Count (i=1 -> 1..49; i=2 -> 1..48; ...; i=6 -> 1..44;)
    j = Int(col.Count * Rnd() + 1)
    'Wert in die Zelle schreiben
    col(j).Value = col(j).Column + (col(j).Row - 1) * 7
    'das Element aus der Collection entfernen
    'kann so nicht erneut "gezogen werden"
    col.Remove j
  Next
  
  Set col = 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
23.04.2021 08:34:58 Timo
NotSolved
23.04.2021 09:37:25 Gast39508
NotSolved
23.04.2021 09:39:25 Timo
NotSolved
Blau Lotto-Zahlen
 25.04.2021 22:19:17 Gast87368
Solved