Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
1 Vorwort<br />
1.1 Wie alles begann<br />
Jedes Jahr zwischen Weihnachten und Silvester f<strong>in</strong>det bei me<strong>in</strong>em<br />
Schwager e<strong>in</strong> privates Doppelkopfturnier statt. Seit ca. 20 Jahren erfreut<br />
es sich e<strong>in</strong>er immer größeren Beliebtheit; es ist zur Tradition geworden.<br />
Die ersten Jahre fand das Turnier noch <strong>in</strong> e<strong>in</strong>em kle<strong>in</strong>en<br />
Rahmen – jeder kannte jeden – statt. In der Zwischenzeit hat es sich<br />
zu e<strong>in</strong>er Mammutveranstaltung ausgeweitet - das Turnier zählte im<br />
letzten Jahr genau 101 Teilnehmer. Da bei e<strong>in</strong>er Tischanzahl von maximal<br />
25 die räumlichen Kapazitäten restlos ausgeschöpft s<strong>in</strong>d, ist damit<br />
dann wohl auch das Ende der Fahnenstange erreicht. Die e<strong>in</strong>ladende<br />
Raumatmosphäre sowie die ausgezeichnete Organisation (als<br />
e<strong>in</strong> Beispiel sei nur die erstklassige Verpflegung mit Speisen und Getränken<br />
genannt) haben dafür gesorgt, dass sich der Teilnehmerkreis<br />
Jahr für Jahr erweitert hat. Dieser permanente Zuwachs an Teilnehmern<br />
hat aber auch dazu geführt, dass der manuelle Aufwand für die<br />
anfallenden Tätigkeiten - von der Auslosung über die Erfassung der<br />
Punktzahlen bis h<strong>in</strong> zur Auswertung der Spielergebnisse - immer größer<br />
wurde. Das wiederum veranlasste me<strong>in</strong>en Schwager als Ausrichter<br />
des Turniers nach möglichen Alternativen im PC-Bereich Ausschau zu<br />
halten, um diese manuellen Tätigkeiten durch Automatismen zu ersetzen.<br />
So kam es, dass er vor 10 Jahren auf mich zukam mit der Bitte,<br />
mir hierüber mal Gedanken zu machen.<br />
Als spontane Idee, per <strong>Programm</strong> e<strong>in</strong>e Verbesserung zu erzielen, fielen<br />
mir - wie konnte es auch anders se<strong>in</strong> - die Möglichkeiten von Microsoft<br />
<strong>Excel</strong> e<strong>in</strong>. Das, was mir dabei zunächst vorschwebte, war allerd<strong>in</strong>gs<br />
noch recht rudimentär. Der e<strong>in</strong>zige Fortschritt, den <strong>Excel</strong> mir <strong>in</strong> me<strong>in</strong>en<br />
ersten Überlegungen bot, schien dar<strong>in</strong> zu bestehen,<br />
‣ e<strong>in</strong>e Liste mit allen Teilnehmern zu erstellen,<br />
‣ diese Liste zu e<strong>in</strong>er Tabelle zu erweitern, <strong>in</strong>dem pro Durchgang e<strong>in</strong>e<br />
zusätzliche Spalte genutzt wurde, <strong>in</strong> der die Punktzahlen der<br />
Teilnehmer pro Durchgang e<strong>in</strong>getragen wurden,<br />
‣ um <strong>Excel</strong> danach diese Punktzahlen für jeden Teilnehmer addieren<br />
zu lassen,<br />
‣ und die Liste anschließend nach erreichter Gesamtpunktzahl zu<br />
sortieren.<br />
Nun hätte ich es natürlich auch dabei bewenden lassen können. Die<br />
Umsetzung <strong>in</strong> <strong>Excel</strong> wäre <strong>in</strong> wenigen M<strong>in</strong>uten fertig gewesen. Der<br />
größte Aufwand hätte wohl noch dar<strong>in</strong> bestanden, die Teilnehmerliste<br />
e<strong>in</strong>zutippen. Das kam mir aber alles e<strong>in</strong> bisschen "zu mager" vor. <strong>E<strong>in</strong></strong>e<br />
deutliche Verbesserung gegenüber Bleistift und Papier hätte das zudem<br />
auch nicht bedeutet.<br />
H<strong>in</strong>weis/Bemerkung 1<br />
Die gute Stimmung der Teilnehmer<br />
sorgt für e<strong>in</strong>e hohe<br />
Spendenbereitschaft. Das an<br />
den Tischen e<strong>in</strong>gespielte<br />
Geld wandert - neben zusätzlichen<br />
freiwilligen Beiträgen -<br />
als Spende <strong>in</strong> e<strong>in</strong>en geme<strong>in</strong>samen<br />
Topf und wird e<strong>in</strong>er<br />
geme<strong>in</strong>nützigen<br />
humanitären<br />
Organisation <strong>in</strong> Afrika<br />
zugeführt.<br />
3