Ein VBA-Programm in Excel

Weitere Magazine

Empfehlungen

Info

2.5.2 Die neuen Tabellenblätter Zu Beginn des Programms existiert lediglich das Tabellenblatt mit dem Namen Auslosung. Es besteht i.w. aus der Teilnehmerliste (s. Abbildung 3) und dem Button Auslosung starten. Mit dem Klick auf diesen Button wird das Programm Sub Auslosung() ausgeführt. Es ist das Haupt-Programm. Es sorgt zunächst einmal dafür, dass jeder Teilnehmer für jeden einzelnen Durchgang einen zufällig ausgewählten Tisch- Platz zugewiesen bekommt. Nachdem das erfolgt ist, können neue zusätzliche Tabellenblätter generiert werden, und zwar ‣ ein Tabellenblatt Liste als Übersicht ‣ je ein Tabellenblatt pro Durchgang zur Eingabe der erreichten Punktzahl pro Spieler ‣ ein Tabellenblatt Ergebnis, in dem die Punktzahlen eines jeden Teilnehmers übersichtlich dargestellt werden Ein neues Tabellenblatt wird in VBA mit der Funktion Worksheets.Add erzeugt. 2.5.2.1 Das Tabellenblatt "Liste" Dieses Tabellenblatt enthält eine übersichtliche Liste aller Teilnehmer, aus der hervorgeht, welcher Spieler in welchem Durchgang an welchem Tisch mit welcher Tisch-Nr spielt. Mit der Anweisung Worksheets.Add After:=Worksheets(Worksheets.Count) wird hinter dem letzten Tabellenblatt ein neues angehängt. Es bekommt den Namen Liste. list ist eine globale Konstante: Const list = "Liste". Worksheets(1).Cells(2, 9).Value = Anz_Dg Worksheets(1).Cells(1, 9).Value = Worksheets(1).Cells(11, 9).Value Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = list 'Erstellung des Tabellenblattes "Liste" Worksheets(1).Range("M:M").Copy Destination:=Worksheets(list).Range("A:A") Worksheets(list).Range("A1").Insert Worksheets(list).Range("A1").EntireColumn.ColumnWidth = 22 Dieses Tabellenblatt dient dazu, eine übersichtliche, alphabetisch sortierte Liste zu erstellen, aus der für jeden Spieler hervorgeht, in welchem Durchgang er an welchem Tisch spielt. Aus dieser Liste kann z.B. die Teilnehmerin Marlies Bäumer erkennen, dass sie im ersten Durchgang am Tisch 4 spielt mit der Tisch-Nr 2 (s. Abbildung 13). Listing 7 Tabellenblatt Liste hinzufügen Hinweis 10 Die Spielerliste wurde in der Zwischenzeit im Tabellenblatt Auslosung (=Worksheets(1) von Spalte "F" nach Spalte "M" kopiert. 32
Durch einen Klick auf den Button Liste drucken kann die Liste (evtl. mehrfach) ausgedruckt werden und als Aushang (an evtl. verschiedenen Örtlichkeiten) angebracht werden. Abbildung 13 Tabellenblatt Liste bereits vorformatiert und nach Namen sortiert 2.5.2.2 Pro Durchgang je ein Tabellenblatt Im Anschluss an das Listentabellenblatt folgt pro Durchgang je ein weiteres Tabellenblatt für die Eingabe der erreichten Punkte jedes einzelnen Spielers. For d = DurchBeg To Anz_Dg 'Erstellung der Durchgangstabellenblätter Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(d + 2).Name = d & ". " & dg 'Name des Durchgangs- Tabellenblattes: const dg = Durchgang Sheets(d + 2).Range("A1").EntireColumn.ColumnWidth = 5 'es folgen weitere Formatierungen Sheets(d + 2).Range("B1").EntireColumn.ColumnWidth = 22 ... ... Next d Listing 8 Je ein Tabellenblatt pro Durchgang hinzufügen Ein komplett durchformatiertes Tabellenblatt hat dann folgendes Aussehen (Abbildung 14): Abbildung 14 Tabellenblatt 1. Durchgang 33
Seite 2 und 3: Inhaltsverzeichnis 1 Vorwort ......
Seite 4 und 5: Ich beschäftigte mich nun fortan i
Seite 6 und 7: 1.4 Programm-Umgebung Die erste Ver
Seite 8: 2.1.2 Makros Der einfachste Weg, si
Seite 11 und 12: lierten Sprachen wie etwa C++ oder
Seite 13 und 14: 2.1.4.2 Eigenschaften Eigenschaften
Seite 15: Abbildung 3 Die Teilnehmerliste in
Seite 18 und 19: Private Sub Worksheet_BeforeDoubleC
Seite 20 und 21: Die Zeile, in der er in Spalte "F"
Seite 22 und 23: Leicht zu erkennen an der Variablen
Seite 24 und 25: In dem darauffolgenden Kontextmenü
Seite 26 und 27: Beispiel 2: Das Eigenschaften-Fenst
Seite 28: If AnzSp > Max_AnzSp Then Max_AnzSp
Seite 35 und 36: Abbildung 15 Tabellenblatt Ergebnis
Seite 37 und 38: Im Mischprogramm Sub Tischzuweiung
Seite 39 und 40: Case 2 To 6 ZelleMitNameFuellen 'Ze
Seite 41 und 42: Wurde er nicht gefunden, wird er ne
Seite 43 und 44: Somit sind die beiden Zellen "I9" u
Seite 48 und 49: Die programmtechnische Umsetzung di
Seite 50 und 51: die Teilnehmer bitten, zu überprü
Seite 52: 4 Literatur- und Quellenverzeichnis

Ein VBA-Programm in Excel

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?