Thema Datum  Von Nutzer Rating
Antwort
Rot Zufallsgenerator
 16.07.2014 14:29:59 Christian
NotSolved
16.07.2014 14:34:08 Gast92591
NotSolved
16.07.2014 15:47:09 Gast4966
NotSolved
31.07.2014 15:17:13 Gast56055
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
16.07.2014 14:29:59		 Views:
1273		 Rating:
     
Antwort:
  Ja
Thema:
Zufallsgenerator

Hallo zusammen,

Ich habe die Aufgabe bekommen einen Zufallsgenerator zu entwerfen, der aus einer Liste von vielen Namen einen zufällig auswählt.
Dabei ich ejdoch folgende zwei Probleme:

1. Der Zufallsgenerator wählt immer die gleichen Namen aus.
2. Die Namen stehen in der Spalte B. Dabei würde ich gerne die Zelle B13 aus der range herausnehmen, sodass dieser Name nicht ausgewählt werden kann.

Hier ist mein bisheriger Versuch:

Sub Auswahl()
  Dim r As Range, zufallszelle As Integer, zufallsbereich As Integer
  Set r = Range("B6:B89").SpecialCells(xlCellTypeConstants) 'merke dir nur befüllte Zellen (hier nur Konstanten, formeln würden ignoriert)
  Range("B6:B89").ClearFormats ' löscht die Formatierung (hilfreich, wenn man Zelle farbig makiert)
  zufallsbereich = Int(Rnd() * r.Areas.Count) + 1  'Ermittle, aus wievielen Bereichen die befüllten Zellen bestehen und suche dir irgendeine aus (RND-Funktion)
  zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1  'Such dir aus dem beliebigen Bereich irgendeine Zelle aus
  Do While zufallszelle = Int(13)
    zufallszelle = Int(Rnd() * r.Areas(zufallsbereich).Cells.Count) + 1  'Such dir aus dem beliebigen Bereich irgendeine Zelle aus
  Loop
  r.Areas(zufallsbereich).Cells(zufallszelle).Activate  'Aktiviere die zufallszelle im Zufallsbereich
  r.Areas(zufallsbereich).Cells(zufallszelle).Interior.ColorIndex = 4
End Sub
 

Könnt ihr mir dabei helfen? Wie müsste das VBA richtig geschrieben aussehen?

Beste Grüße
Christian

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
Rot Zufallsgenerator
 16.07.2014 14:29:59 Christian
NotSolved
16.07.2014 14:34:08 Gast92591
NotSolved
16.07.2014 15:47:09 Gast4966
NotSolved
31.07.2014 15:17:13 Gast56055
NotSolved