Bingo-Karten selbst machen

Forumthread: Bingo-Karten selbst machen

Frank

Hallo zusammen,
ich möchte auf unserem Vereinsfest ein paar runden Bingo spielen.
Dafür brauchen wir natürlich Bingo-Karten.
Ich bin durchs googlen auf folgenden Link gestossen:
https://www.herber.de/bbs/user/3910.xls
Das ist eigentlich auch genau das, was ich suche, leider gehen die Zahlen dort bis 100.
Das Schleswig-Holsteinische Bingo geht aber nur bis 90 (der alte Mann ;-) )
Leider reichen meine Excel-Kenntnisse nicht aus, um das Programm umzuschreiben...
Hat jemand von so was auf "Lager" oder kann diese Tabelle umschreiben?
Wäre toll !!!
Viele Grüße aus Schleswig-Holstein (so ein Sauwetter!)
Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bingo-Karten selbst machen

19.01.2012 21:02:47

Josef

Hallo Frank,
Bingoschein generator

« Gruß Sepp »

AW: Bingo-Karten selbst machen

19.01.2012 21:05:21

Reinhard

Hallo Frank,
Rainer hat da anscheinend schon was vorbereitet.
klicke mal im VB-Editor links auf "Zufallszahlen" doppelt. Dann mußt du die Prozedur
"Zahlen" sehen, tausche die aus gegen die nachstehende Prozedur "Zahlen".
Stell den Cursor in den Code davon und drücke F5.
Dauert 1-2 min dann hast du im Blatt Zufallszahlen nur noch Zahlen von 1-90.
Gruß
Reinhard


Sub Zahlen()
Dim Zahl        As Integer
Dim Count       As Integer
Dim Zeile       As Integer
Dim Wert        As Integer
'R. Beckerbauer
With Worksheets("Zahlen")
Application.ScreenUpdating = False
Zahl = InputBox("Wieviele Zahlen möchten Sie?", "Zahlen Generator", 75)
If Not IsNumeric(Zahl) Then
MsgBox "Eingabe ist keine Zahl"
Application.ScreenUpdating = True
Exit Sub
End If
Zeile = 1
Do
Zeile = Zeile + 1
ReDim Feld(Zahl) 'As Integer
For Count = 1 To 25
Do
Wert = Zufall(Zahl)
If Feld(Wert) = 0 Then
Feld(Wert) = 1
Exit Do
End If
Loop
.Cells(Zeile, Count + 1) = Wert
.Cells(1, 1) = Zeile - 1
Next Count
Loop Until Zeile = 1001
Application.ScreenUpdating = True
End With
End Sub

da würde ich aber noch ein...

19.01.2012 21:10:45

Josef

... "Randomize Timer" einbauen, sonst sind es keine wirklichen Zufallszahlen!

« Gruß Sepp »

AW: da würde ich aber noch ein...

19.01.2012 21:33:45

Frank

Hallo Josef und Reinhard,
erstmal Danke für die schnellen Antworten, echt Wahnsinn!
Das mit den Bingoscheingeneratoren ist so 'ne Sache, da finde ich nur Shareware und nichts vernünftiges, was mir solche Karten ausdruckt.
Aber mit Euren Änderungen an der Tabelle habe ich doch genau das, was ich will!
Vielen Dank!
Gruß
Frank

AW: da würde ich aber noch ein...

19.01.2012 21:41:10

ing.grohn

Hallo Sepp,
was ist denn der Unterschied zwischen Randomize Timer und Randomize?
(VBA-Hilfe:Wenn Sie Zahl nicht angeben, wird der vom Systemzeitgeber zurückgegebene Wert als neuer Startwert verwendet)
Mit freundlichen Grüßen
Albrecht

AW: da würde ich aber noch ein...

19.01.2012 21:43:26

Josef

Hallo ALbrecht,
da besteht eigentlich kein Unterschied, ich bins halt so gewohnt.

« Gruß Sepp »

AW: da würde ich aber noch ein...

19.01.2012 22:40:11

ing.grohn

Hallo Sepp,
schöne(s) Abend
Albrecht

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und erstelle eine neue Arbeitsmappe.
Füge eine VBA-Prozedur hinzu:
- Drücke ALT + F11, um den Visual Basic-Editor zu öffnen.
- Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub Zahlen()
   Dim Zahl As Integer
   Dim Count As Integer
   Dim Zeile As Integer
   Dim Wert As Integer
   With Worksheets("Zahlen")
       Application.ScreenUpdating = False
       Zahl = InputBox("Wieviele Zahlen möchten Sie?", "Zahlen Generator", 75)
       If Not IsNumeric(Zahl) Then
           MsgBox "Eingabe ist keine Zahl"
           Application.ScreenUpdating = True
           Exit Sub
       End If
       Zeile = 1
       Do
           Zeile = Zeile + 1
           ReDim Feld(Zahl)
           For Count = 1 To 25
               Do
                   Wert = Int((Zahl * Rnd) + 1)
                   If Feld(Wert) = 0 Then
                       Feld(Wert) = 1
                       Exit Do
                   End If
               Loop
               .Cells(Zeile, Count + 1) = Wert
               .Cells(1, 1) = Zeile - 1
           Next Count
       Loop Until Zeile = 1001
       Application.ScreenUpdating = True
   End With
End Sub

Führe die Prozedur aus:
- Stelle den Cursor in den Code und drücke F5, um die Zahlen zu generieren.
Erstelle die Bingo-Karten:
- Du kannst die generierten Zahlen in einem neuen Arbeitsblatt anordnen, um deine Bingo-Karten zu gestalten.

Häufige Fehler und Lösungen

Fehler: "Eingabe ist keine Zahl"
- Lösung: Stelle sicher, dass du eine Zahl eingibst und keine Buchstaben oder Sonderzeichen. Die Eingabeaufforderung erwartet eine numerische Eingabe.
Problem mit Zufallszahlen
- Lösung: Stelle sicher, dass Randomize im Code verwendet wird, um echte Zufallszahlen zu generieren. Füge Randomize vor Wert = Int((Zahl * Rnd) + 1) hinzu.

Alternative Methoden

Wenn du keine VBA-Programmierkenntnisse hast, kannst du auch eine Bingo-Vorlage für Excel verwenden:

Suche nach „bingo excel vorlage“ oder „bingo karten erstellen mit excel“ im Internet.
Lade eine Bingo-Vorlage herunter und passe sie nach deinen Wünschen an.

Praktische Beispiele

Bingo-Karten für 1-90: Verwende den obenstehenden Code, um Bingo-Karten mit Zahlen von 1 bis 90 zu erstellen. Du kannst die Karten dann drucken und für dein Vereinsfest verwenden.
Bingo-Zettel erstellen: Nutze die erstellten Zahlen, um Bingo-Zettel zu generieren. Diese kannst du in Excel formatieren und ausdrucken.

Tipps für Profis

Bingo karten generator excel: Erstelle ein zusätzliches Makro, das automatisch Bingo-Karten aus den generierten Zahlen erstellt.
Anpassung der Karten: Experimentiere mit der Formatierung der Zellen, um die Karten ansprechender zu gestalten. Du kannst Farben und Schriftarten anpassen, um verschiedene Themen zu integrieren.

FAQ: Häufige Fragen

1. Wie kann ich die Bingo-Karten für verschiedene Spiele anpassen?
Du kannst die Anzahl der Zahlen und das Layout der Bingo-Karten ändern, indem du den VBA-Code anpasst oder verschiedene Vorlagen verwendest.

2. Gibt es kostenlose Online-Generatoren für Bingo-Karten?
Ja, du kannst nach „bingo generator kostenlos“ oder „bingo karten kostenlos erstellen“ suchen, um verschiedene Online-Generatoren zu finden, die dir helfen, Bingo-Karten zu erstellen und auszudrucken.

Beliebteste Forumthreads (12 Monate)

Forumthread: Bingo-Karten selbst machen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bingo-Karten selbst erstellen mit Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Bingo-Karten selbst machen

Forumthread: Bingo-Karten selbst machen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Bingo-Karten selbst erstellen mit Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread