Eingabe per Barcode-Scanner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier noch der Quelltext des Makros:

'Neue Karte verkaufen

Sub Vollzahler()

Range("Verkauf!$L$6") = Range("$L$6") + 1

End Sub



'Neue Karte verkaufen

Sub Vollzahler_Umwelt()

Range("Verkauf!$L$9") = Range("$L$9") + 1

End Sub



'Neue Karte verkaufen

Sub Frauen()

Range("Verkauf!$Q$6") = Range("$Q$6") + 1

End Sub



'Neue Karte verkaufen

Sub Frauen_Umwelt()

Range("Verkauf!$Q$9") = Range("$Q$9") + 1

End Sub



'Neue Karte verkaufen

Sub Senioren_SB()

Range("Verkauf!$L$14") = Range("$L$14") + 1

End Sub



'Neue Karte verkaufen

Sub Senioren_SB_Umwelt()

Range("Verkauf!$L$17") = Range("$L$17") + 1

End Sub



'Neue Karte verkaufen

Sub Studierende_Jug()

Range("Verkauf!$Q$14") = Range("$Q$14") + 1

End Sub



'Neue Karte verkaufen

Sub Studierende_Jug_Umwelt()

Range("Verkauf!$Q$17") = Range("$Q$17") + 1

End Sub



'Neue Karte verkaufen

Sub Mitglied()

Range("Verkauf!$L$23") = Range("$L$23") + 1

End Sub



'Neue Karte verkaufen

Sub Mitglied_Umwelt()

Range("Verkauf!$Q$23") = Range("$Q$23") + 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Vollzahler_minus()

Range("Verkauf!$L$6") = Range("$L$6") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Vollzahler_Umwelt_minus()

Range("Verkauf!$L$9") = Range("$L$9") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Frauen_minus()

Range("Verkauf!$Q$6") = Range("$Q$6") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Frauen_Umwelt_minus()

Range("Verkauf!$Q$9") = Range("$Q$9") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Senioren_SB_minus()

Range("Verkauf!$L$14") = Range("$L$14") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Senioren_SB_Umwelt_minus()

Range("Verkauf!$L$17") = Range("$L$17") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Studierende_Jug_minus()

Range("Verkauf!$Q$14") = Range("$Q$14") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Studierende_Jug_Umwelt_minus()

Range("Verkauf!$Q$17") = Range("$Q$17") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Mitglied_minus()

Range("Verkauf!$L$23") = Range("$L$23") - 1

End Sub



'Letzte verkaufte Karte zurücknehmen

Sub Mitglied_Umwelt_minus()

Range("Verkauf!$Q$23") = Range("$Q$23") - 1

End Sub



'Letzte Mitgliederkarte- zurücknehmen

'Sub Mitglied_Scan_minus()

'Range("Verkauf!$Q$23") = Range("$Q$23") - 1

'End Sub



'Verkäufe auf Null zurücksetzen

Sub Verkaufsstart()

    Range("Verkauf!$L$6") = 0           'Vollzahler

    Range("Verkauf!$L$9") = 0           'Vollzahler Umwelt

    Range("Verkauf!$L$14") = 0          'Senioren/SB

    Range("Verkauf!$L$17") = 0          'Senioren/SB Umwelt

    Range("Verkauf!$L$23") = 0          'Mitglieder FC 26

    Range("Verkauf!$Q$6") = 0           'Frauen

    Range("Verkauf!$Q$9") = 0           'Frauen Umwelt

    Range("Verkauf!$Q$14") = 0          'Studierende/Jugendliche

    Range("Verkauf!$Q$17") = 0          'Studierende/Jugendliche Umwelt

    Range("Verkauf!$L$23") = 0          'Mitglieder FC 26

    Range("Verkauf!$Q$23") = 0          'Mitglieder FC 26 Umwelt

    Range("Scan!M6:$M605") = 0          'Mitglieder FC 26 Scans

    Range("Verlosung!$B$14:$L$14") = "" 'Lostöpfe leeren

    Range("Verlosung!$C$5") = 0         'Gewinner zurücksetzen

End Sub



'Zur Verlosungs-Seite springen

Sub Zur_Verlosung()

    ThisWorkbook.Sheets(3).Select

End Sub



'Auslosung aller Lostöpfe

Sub Verlosung()

    Range("$C$5") = 0                                                                                 'Gewinner zurücksetzen

     Dim oBlatt As Worksheet

 Set oBlatt = ThisWorkbook.Worksheets("Verlosung")

 With oBlatt

    .Range("$B$14").FormulaLocal = "=index(Auflistung!$C$6:$C$5005;zufallsbereich(1;Verkauf!$L$6))"   'Vollzahler

    .Range("$C$14").FormulaLocal = "=index(Auflistung!$D$6:$D$5005;zufallsbereich(1;Verkauf!$L$9))"   'Vollzahler Umwelt

    .Range("$D$14").FormulaLocal = "=index(Auflistung!$E$6:$E$5005;zufallsbereich(1;Verkauf!$Q$6))"   'Frauen

    .Range("$E$14").FormulaLocal = "=index(Auflistung!$F$6:$F$5005;zufallsbereich(1;Verkauf!$Q$9))"   'Frauen Umwelt

    .Range("$F$14").FormulaLocal = "=index(Auflistung!$G$6:$G$5005;zufallsbereich(1;Verkauf!$L$14))"  'Rentner/SB

    .Range("$G$14").FormulaLocal = "=index(Auflistung!$H$6:$H$5005;zufallsbereich(1;Verkauf!$L$17))"  'Rentner/SB Umwelt

    .Range("$H$14").FormulaLocal = "=index(Auflistung!$I$6:$I$5005;zufallsbereich(1;Verkauf!$Q$14))"  'Student/Jug.

    .Range("$I$14").FormulaLocal = "=index(Auflistung!$J$6:$J$5005;zufallsbereich(1;Verkauf!$Q$17))"  'Student/Jug. Umwelt

    .Range("$J$14").FormulaLocal = "=index(Auflistung!$K$6:$K$5005;zufallsbereich(1;Verkauf!$L$23))"  'Mitglieder

    .Range("$K$14").FormulaLocal = "=index(Auflistung!$L$6:$L$5005;zufallsbereich(1;Verkauf!$Q$23))"  'Mitglieder Umwelt

    .Range("$L$14").FormulaLocal = "=index(Auflistung!$M$6:$M$5005;zufallsbereich(1;Verkauf!$Q$23))"  'Mitglieder Scans

 End With

 Set oBlatt = Nothing

End Sub



' Aus den ausgelosten Karten jeden Blocks wird der entgültige Gewinner gezogen

Sub And_th_Winner_is()

     Dim oBlatt As Worksheet

 Set oBlatt = ThisWorkbook.Worksheets("Verlosung")

 With oBlatt

    Range("Verlosung!$c$5").FormulaLocal = "=index(Verlosung!$B$14:$L$14;zufallsbereich(1;10))"  'ENDAUSLOSUNG

 End With

 Set oBlatt = Nothing

End Sub



'Alle Daten löschen

Sub Lostopf_leeren()

    Range("Verlosung!$B$14:$L$14") = "" 'Lostöpfe leeren

    Range("Verlosung!$C$5") = 0         'Gewinner zurücksetzen

    Range("Scan!$A$1:$A$600") = 0      'Mitglieder FC 26 Scans

End Sub

Soweit reichen eigentlich auch meine Kenntnisse in VBA auch schon aus.

Leider ja. Die Anzahl der Knöpfe ist nun einmal durch unser etwas umfangreiches Preismodell gegeben.
Wenn z.B. ein männlicher Gast kommt, zahlt der 4,- Euro Eintritt, als weiblicher Fan nur 1,- Euro. Als Rentner sind 3,- Euro und als Student 2,- Euro fällig.
Wer dann aber zu Fuß oder mit dem Fahrrad kommt, spart dann auch noch jeweils -,50 Euro pro Karte.

Der Vorstand hat ein mehrjähriges Umstellungsmodell erstellt, da wir eben nicht nur unter Corona, sondern auch einem mehrjährigen Umbau der gesamten Sportanlage sehr gelitten haben. Der Mitgliederbestand hat sich fast halbiert. Die Schließung während der Zeit hat sich natürlich auch auf die Zuschauerzahlen ausgewirkt. Viele Dinge können aktuell noch nicht gemacht werden, z.B. unser offenes Jugendzentrum ist noch zu.

Die Farben sind die einzelnen Modelle, und die preiswertere Karte gibt es eben auch real. Auf dem Kassentisch liegen momentan 8 Kartenstapel. Für Mitglieder gelten noch die normalen Preise, es sollen aber ab der nächsten Saison alle angepasst und auch Mitglieder einen Rabatt bekommen.

Mitglieder bekommen wohl auch einen Mitgliederausweis, auf der ein QR-Code stehen wird. Dieser soll dann einfach nur gescannt werden und so dann in der Spalte "Auflistung!M" ab Zeile 6 bis Zeile 605 eingetragen werden. (Vorbereitet auf fast 50 Prozent mehr Mitglieder)

Zitat:
"Die Ermittelung der ersten freien Zelle in Spalte M ist dir sicher bekannt."
Leider muss ich da sagen, dass es da für mich nicht mehr ausreicht. Irgendwie ist mein Kopf gerade leer, was die Programmierung angeht.

Wir verlosen bei jedem Spieltag einen Gutschein für eine benachbartes Restaurant. Daher müssen wir aktuell alle Karten händisch auf Loszetteln eintragen. Das ist eben fehlerbehaftet und gerade bei einer größeren Menge an Verkäufen schwer nachzuhalten. Aber es klappt durch das 4-Augen-Prinzip noch recht gut.

Aber ich habe z.B. auf dem dritten Blatt "Verlosung" eine Reihe von 11 Lostöpfen hingestellt, in den aus jeder der Listen eine Karte reingeworfen wird. Und aus diesen lose ich dann die Gewinner-Karte aus. So konnte ich eben durch die einzelne Vorauslosung eine leere Nummer verhindern.

Was die Anordnung angeht, wäre ich natürlich offen für Ideen, aber wollte eben alles notwendige auf einer Seite anbieten. Daher auch der Knopf "Zur Verlosung".

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe per Barcode-Scanner

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread