an F R A N K mit dem S K A T S P I E L P L A N

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Frank
Schön, dass du meine Nachricht doch noch gesehen hast.
Dann war meine "Arbeit" doch nich umsonst ;-)
Muss aber sagen, dass meine Datei anders aussieht, als deine. Als "Grundvorlage" nahm ich die, ich glaube, letzte Idee von Walter aus dem Thread, dessen Link ich dir hier schon schrieb.
Aber guck selbst. Vllt gefällt dir ja mein "Entwurf" auch gut - auf jeden Fall funktioniert bei mir alles ;-)
Nun im Einzelnen:
In der Eingabetabelle hab ich noch n paar Eingabefelder eingebaut.
- du kannst n Namen für eure Turniere eintragen
- du kannst den Ort, das Datum und die Beginn-Uhrzeit eintragen
Ich habe zum Erstellen der 3 Runden nur noch einen Button eingebaut.
Ich hatte den Sinn nicht verstanden, warum man jede Runde für sich und einzeln neu "mischen" konnte - deswegen hab ich die 3 Einzel-Button weggelassen.
Dann habe ich - weil auch übersichtlicher - im Tabellenkopf der Liste die Anzahl der Mitspieler und die notwendigen Tische eingetragen.
Eine gerade Anzahl an Tischen entsteht natürlich nur, wenn die Anzahl der eingetragenen Mitglieder durch 3 teilbar ist.
Sollte es vorkommen, dass z Bsp nur 23 Mitspieler eingetragen sind,
erscheint für Anzahl Tische = 7 (2)
Die Zahl in den Klammern stellt immer die Anzahl der Mitglieder dar, die nicht mitspielen können.
Egal, ob nun 1 oder 2 nicht mitspielen können, es handelt sich immer un den oder die Letzten in der Liste.
Um noch mal optisch darauf aufmerksam zu machen, sind die letzten Mitspieler dann rot markiert.
Name + Vorname werden nun nicht mehr am Ende der Liste eingetragen, sondern ich habe die Eingabefelder oberhalb der Liste platziert. Sieht ordentlicher aus, finde ich.
Beide Teile (Name + Vorname) werden automatisch in die Liste übertragen - aber nur dann, wenn in beiden Feldern etwas drin steht.
Du siehst dann auch, dass auch die Spieler-Nr. automatisch eingetragen wird.
Und eine vollständige Rundenübersicht mit den Namen anstelle der Spielernummern gibt es in meiner Datei auch nicht - denn du hast doch alle Spieler schon mit ihren Nummern in den erstellten Runden.
Damit aber die Namen trotzdem mit ins "Spiel" kommen ;-), habe ich mir dieses Gimmick ausgedacht.
- nachdem du auf den Button "Spielpläne erstellen" geklickt hast, gibt es ja nun neben der Mitgliederliste die 3 Rundentabellen mit der jeweiligen Tischnummer als "Überschrift" für immer jeweils 3 Mitspieler
- wenn du nun die Namen der 3 von Tisch 1 in Runde 1 sehen möchtest, klick mal auf die "Überschrift" Tisch 1
- abhängig von den unter Tisch 1 eingetragenen Spielernummern werden nun in der Mitgliederliste die zugehörigen Namen gesucht und....eingefärbt dargestellt :-)
So hast du mit nur immer 1 Klick sofort im Blick, um welche Namen es sich handelt.
Und zu guter letzt!
Nun ist es auch möglich, Spielpläne pro Mitspieler auszudrucken :-)
(zumindets funzt es bei mir, kann vllt sein, dass bei dir noch was angepasst werden muss, weil du bestimmt n anderen Drucker hast als ich)
Der ausdruckbare Spielplan für jeden Mitspieler ist so aufgebaut,
- dass der Name des Turniers, Otr, Datum + Zeit gedruckt werden
- dass jeder Mitspieler weiß, in welcher der 3 Runden er an welchem Tisch spielt
- und für jede Runde hab ich noch ein Feld eingebaut, in das jeder Mitspieler seine erspielten Punkte/Runde eintragen kann. Und nach der 3. Runde kann dann ganz unten die Gesamtpunktzahl aufgeschrieben werden.
Der Audruck ist so aufgeteilt (wenns denn auch bei dir funzt ;-) ), dass pro Ausdruckseite (DIN A4) 8 Spielpläne ausgedruckt werden.
Für die in der Bsp-Datei schon eingetragenen 23 Mitspieler müssten also 3 Seiten ausgedruckt werden.
So, lang genug geschrieben :-)
Hier die Datei mit meinen Ideen:
https://www.herber.de/bbs/user/70296.xls
Wenn du nun siehst, dass die so gar nicht wie deine Datei aussieht, dann reagiere bitte nicht mit "Oh Gott!! Wie sieht das denn aus?" :-P :-), sondern teste erst mal.
Ich hab ca 3 Tage daran gesessen ;-)
Aber jetzt bin ich echt mal neugierig, was du dazu sagst?
Ciao
Thorsten

Hi Frank
Gut Ding braucht eben Weile - und dann auch noch für gratis...grins
puhh...geschafft - nach deinen Wünschen.....meine konnt ich leider nich ganz erfüllen...mist
1.
Dein zuletzt bemerkter Fehler ist korrigiert
2.
Zumindest wiederholen sich ab 20 (oder 16, weiss nich mehr genau) Spieler in Runde 2 nicht mehr die Spielerzusammenstellungen.
Das war ja meine Frage, die ich zuletzt stellte.
Aber leider hab ich es für Runde 3 nicht ganz geschafft, wie ich es mir vorstellte.
Ich hatte es zwar geschafft, dass sich auch in Runde 2 die Spielerzusammenstellungen NICHT wiederholten - es war wirklich so, dass in jeder Runde jeder mit wem anderes spielte! :-)
Aber leider dauerte es mit meinem Code extrem lange, bis auch Runde 3 komplett gefüllt war :-(
Deswegen hab ich den Code wieder "zurückgeschraubt", so dass sich Spieler aus Runde 1 wenigstens nicht in Runde 2 wiedertreffen.
3.
Du siehst ja, wenn du auf einen der Tische klickst, dass dann in der Mitspielerliste die markiert werden, die an dem Tisch sitzen werden, den du angeklickt hattest.
Das Ganze funzt nun auch umgekehrt :-)
Das heißt, wenn du nach Rundenerstellung in Spalte B auf eine der Mitspielernummern klickst, dann wird in allen drei Runden genau die Mitgliedernummer farblich hervorgehoben, auf die du in Spalte B geklickt hattest.
Ich dachte mir, das könnte hilfreich sein, wenn ein Mitspieler schon vorm Ausdrucken seines Spielplans wissen möchte, an welchen Tischen er sitzt.
So, finde ich, ist die Antwort schneller gegeben, als wenn du erst im Tabellenblatt "Ausdruck" seinen Namen suchen musst.
Soooo, puuhhhhh....das Ziel, dass sich möglichst keine Spieler in den Runden wiedertreffen war echt na harte Nuss (leider nich ganz gelöst..mist), aber der Rest war fast einfach..grins
Über ein Danke noch mal würd ich mich echt freuen.
Ach so...hehe...die Datei...wollt schon auf senden klicken :-)
Hier:
https://www.herber.de/bbs/user/70324.xls
Ich hoffe, bete zwar, dass nun wirklich alles läuft, keine Fehler mehr auftreten, aber wenn doch...du kennst ja dieses Forum ;-)
Ciao
Thorsten

Sub sbPrint() Dim liRowSpieler As Integer, liAkt As Integer Dim liR1 As Integer, liR2 As Integer, liR3 As Integer, liR4 As Integer, liR5 As Integer, _ liR6 As Integer Dim lstrC1 As String, lstrC2 As String Dim liRow As Integer With Application .EnableEvents = False .ScreenUpdating = False End With Sheets("Ausdruck").Select sbDelPrint If Sheets("Auswertung").Range("F11").Value = "" Then Exit Sub '....weiterer Code End Sub

Sub sbPrint() Dim liRowSpieler As Integer, liAkt As Integer Dim liR1 As Integer, liR2 As Integer, liR3 As Integer, liR4 As Integer, liR5 As Integer, _ liR6 As Integer Dim lstrC1 As String, lstrC2 As String Dim liRow As Integer If Sheets("Auswertung").Range("F11").Value = "" Then Exit Sub With Application .EnableEvents = False .ScreenUpdating = False End With Sheets("Ausdruck").Select sbDelPrint '....weiterer Code End Sub

Beliebteste Forumthreads (12 Monate)

an F R A N K mit dem S K A T S P I E L P L A N

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread