Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

6 Gewinner auslosen ohne Widerholung

Forumthread: 6 Gewinner auslosen ohne Widerholung

6 Gewinner auslosen ohne Widerholung
29.01.2017 17:31:06
Sebastian
Hallo zusammen,
ich habe folgendes Problem:
ich möchte aus einer Liste von x Leuten (untereinander in Spalte A gelistet) sechs Gewinner ziehen. Die Namen sollten nicht doppelt erscheinen, bzw. es soll keinen geben, der zwei Dinge gewinnt.
Die Ergebnisse der zufälligen Wahl möchte ich gern in C5 bis C10 ausgeben.
Die normalen Excel Varianten hab ich schon durch, helfen mir aber nur zu 80%. Ein Makro bzw. der Code wären ein Traum! Vielen Dank
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 6 Gewinner auslosen ohne Widerholung
29.01.2017 17:32:17
Hajo_Zi
schaue doch mal bei Excelformeln.de Lotto

6 Gewinner auslosen ohne Widerholung
29.01.2017 18:28:57
Michael
Hi,
anbei Makro-Variante: Option Explicit Sub ziehen() Dim lZmD As Long ' letzte Zeile mit Daten Const eZmD = 2 ' erste Zeile mit Daten Const lSp = "G" ' leere Spalte "rechts außen" ' mit mindestens 1 komplett leeren Spalte zwischen ' vorhandenen Daten und dieser Eingabe. lZmD = Range("A" & Rows.Count).End(xlUp).Row Range("A" & eZmD & ":A" & lZmD).Copy Range(lSp & eZmD) Range(lSp & eZmD).CurrentRegion.Offset(, 1).FormulaLocal = "=Zufallszahl()" Range(lSp & eZmD).CurrentRegion.Sort Range(lSp & eZmD).Offset(, 1), _ xlAscending, Header:=xlNo MsgBox "Mich kannst Du dann wieder rausnehmen." Range(lSp & eZmD).Resize(6, 1).Copy Range("C5") Range(lSp & eZmD).CurrentRegion.Clear End Sub
Beispieldatei: https://www.herber.de/bbs/user/110986.xlsm
Gruß,
M.
Anzeige
AW: 6 Gewinner auslosen ohne Widerholung
29.01.2017 18:40:12
Sebastian
Danke Euch allen für die schnellen Antworten!! @Michael(der Alte): Genau das hab ich gesucht :-)
gern geschehen, Gruß owT
30.01.2017 18:23:40
Michael
AW: 6 Gewinner auslosen ohne Widerholung
30.01.2017 20:23:51
Sebastian
Hallo Michael (der Alte)
Folgendes Problem ist nun aufgetreten:
In excel 2010 funktioniert das Makro einwandfrei.
In excel 2013 leider nicht mehr und da brauch ich das Tool ;-(
Wenn ich auf den Zufallsbutton drücke, kopiert er mir nur die ersten sechs Namen in Spalte C.
und da ändert sich dann auch nichts mehr, wenn ich wieder klicke.. Die ersten sechs Namen bleiben die gleichen ..
Irgendeine Idee woran das liegen könnte?
Danke für Euren Input.
Anzeige
AW: 6 Gewinner auslosen ohne Widerholung
30.01.2017 20:53:36
Sebastian
Hat sich erledigt.. Sorry für die Aufregung. Das Excel 2013 ist english, das 2010 auf Deutsch.
"Zufallszahl" mit "RAND" tauschen, dann läufts ;-)
6 Gewinner auslosen ohne Widerholung
30.01.2017 23:12:43
Michael
Hi,
das hätte mich schon gewundert - ich habe es mit 2013 entwickelt.
Gruß,
Michael
AW: 6 Gewinner auslosen ohne Widerholung
30.01.2017 20:53:37
Sebastian
Hat sich erledigt.. Sorry für die Aufregung. Das Excel 2013 ist english, das 2010 auf Deutsch.
"Zufallszahl" mit "RAND" tauschen, dann läufts ;-)
Anzeige
AW: 6 Gewinner auslosen ohne Widerholung
29.01.2017 18:41:33
Sebastian
Danke Euch allen für die schnellen Antworten!! Thema ist gelöst :-)
AW: 6 Gewinner auslosen ohne Widerholung
29.01.2017 18:15:24
Matthias
Hallo
evtl so?
Tabelle1

 ABC
10,262037293Name 1 
20,834046379Name 2 
30,504936189Name 3 
40,263334478Name 4 
50,093490658Name 5Name 5
60,137178402Name 6Name 6
70,805235835Name 7Name 1
80,408694424Name 8Name 4
90,752973423Name 9Name 8
100,940333326Name 10 

Formeln der Tabelle
ZelleFormel
A1=ZUFALLSZAHL()
A2=ZUFALLSZAHL()
A3=ZUFALLSZAHL()
A4=ZUFALLSZAHL()
A5=ZUFALLSZAHL()
C5=SVERWEIS(KKLEINSTE($A$1:$A$10;ZEILE()-4);$A$1:$B$10;2;0)
A6=ZUFALLSZAHL()
C6=SVERWEIS(KKLEINSTE($A$1:$A$10;ZEILE()-4);$A$1:$B$10;2;0)
A7=ZUFALLSZAHL()
C7=SVERWEIS(KKLEINSTE($A$1:$A$10;ZEILE()-4);$A$1:$B$10;2;0)
A8=ZUFALLSZAHL()
C8=SVERWEIS(KKLEINSTE($A$1:$A$10;ZEILE()-4);$A$1:$B$10;2;0)
A9=ZUFALLSZAHL()
C9=SVERWEIS(KKLEINSTE($A$1:$A$10;ZEILE()-4);$A$1:$B$10;2;0)
A10=ZUFALLSZAHL()


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Gruß Matthias
Anzeige
;
Anzeige

Infobox / Tutorial

Gewinner auslosen ohne Wiederholung in Excel


Schritt-für-Schritt-Anleitung

Um aus einer Liste von Namen in Excel Gewinner ohne Wiederholung auszulosen, kannst du folgendes Makro verwenden:

  1. Öffne Excel und erstelle eine neue Tabelle.

  2. Trage die Namen der Teilnehmer in Spalte A ein (z.B. von A2 bis A20).

  3. Öffne den Visual Basic for Applications (VBA) Editor: Drücke ALT + F11.

  4. Füge ein neues Modul hinzu:

    • Rechtsklicke auf "VBAProject (dein Dokument)".
    • Wähle "Einfügen" → "Modul".
  5. Kopiere den folgenden Code in das Modul:

    Sub GewinnerAuslosen()
        Dim lZmD As Long
        Const eZmD = 2
        Const lSp = "G"
    
        lZmD = Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & eZmD & ":A" & lZmD).Copy Range(lSp & eZmD)
        Range(lSp & eZmD).CurrentRegion.Offset(, 1).FormulaLocal = "=Zufallszahl()"
        Range(lSp & eZmD).CurrentRegion.Sort Range(lSp & eZmD).Offset(, 1), xlAscending, Header:=xlNo
        Range(lSp & eZmD).Resize(6, 1).Copy Range("C5")
        Range(lSp & eZmD).CurrentRegion.Clear
        MsgBox "Die Gewinner wurden erfolgreich ermittelt!"
    End Sub
  6. Schließe den VBA Editor und gehe zurück zu Excel.

  7. Führe das Makro aus: Drücke ALT + F8, wähle GewinnerAuslosen und klicke auf "Ausführen".

Die Gewinner werden in den Zellen C5 bis C10 angezeigt.


Häufige Fehler und Lösungen

  • Fehler: Es werden immer die gleichen Namen gezogen.

    • Lösung: Stelle sicher, dass die Funktion Zufallszahl() in einer englischen Excel-Version durch RAND() ersetzt wird. Dies ist besonders wichtig, wenn du eine nicht-deutsche Excel-Version verwendest.
  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob du die Sicherheitsstufe für Makros in Excel angepasst hast, um die Ausführung von Makros zu erlauben.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du auch den Zufallszahl-Generator in Excel nutzen, um die Gewinner zu ermitteln:

  1. Erstelle eine Zufallszahl für jeden Namen in der Spalte B neben den Namen in Spalte A:
    =ZUFALLSZAHL()
  2. Sortiere die Tabelle nach der Zufallszahl in Spalte B.
  3. Die ersten sechs Namen in Spalte A sind die Gewinner.

Diese Methode funktioniert gut, wenn du keine Programmierung verwenden möchtest und ist eine einfache Excel-Auslosung.


Praktische Beispiele

Nehmen wir an, du hast folgende Namen in A2 bis A10:

  • Name 1
  • Name 2
  • Name 3
  • Name 4
  • Name 5
  • Name 6
  • Name 7
  • Name 8
  • Name 9

Führe das Makro aus, um aus diesen Namen sechs Gewinner zu ziehen. Die Ergebnisse erscheinen dann automatisch in C5 bis C10.


Tipps für Profis

  • Verwende einen Zufallsgenerator für größere Listen: Für mehr als 100 Namen kann es sinnvoll sein, ein zusätzliches Tool oder ein Online-Auslosung-Tool zu verwenden.

  • Automatisiere die Auslosung: Du kannst das Makro so anpassen, dass es automatisch ausgeführt wird, wenn die Excel-Datei geöffnet wird.

  • Erstelle ein Gewinnspiel: Nutze die Funktionalitäten von Excel, um ein komplettes Gewinnspiel zu organisieren, inklusive Teilnehmerverwaltung und Auslosung.


FAQ: Häufige Fragen

1. Wie viele Gewinner kann ich auslosen? Du kannst theoretisch so viele Gewinner auslosen, wie du Teilnehmer in deiner Liste hast, solange du die Anzahl der Gewinner nicht über die Anzahl der Teilnehmer hinaus erhöhst.

2. Funktioniert das Makro in Excel Online? Das VBA-Makro funktioniert nicht in Excel Online, da es keine Makros unterstützt. Du musst die Desktop-Version von Excel verwenden.

3. Gibt es eine Möglichkeit, die Gewinner zu speichern? Ja, du kannst die Gewinner in eine separate Tabelle oder ein neues Arbeitsblatt kopieren, um sie für zukünftige Auslosungen zu speichern.

4. Was ist der Unterschied zwischen ZUFALLSZAHL() und ZUFALLSBEREICH()? ZUFALLSZAHL() gibt eine Zufallszahl zwischen 0 und 1 zurück, während ZUFALLSBEREICH() eine Zufallszahl innerhalb eines spezifischen Bereichs zurückgibt, z.B. =ZUFALLSBEREICH(1,100).

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige