Ein VBA-Programm in Excel

Weitere Magazine

Empfehlungen

Info

Beispiel 2: Das Eigenschaften-Fenster TextBox3 Abbildung 10 Eigenschaftenfenster TextBox3 Diese TextBox enthält das Steuerelement zur Eingabe der Tischanzahl. In diesem Fall wurde der von VBA vorgeschlagene Name Text- Box3 beibehalten. Kommen wir nun zur Makro-Programmierung dieser Steuerelemente, also der Möglichkeit, sie per Quellcode zu bearbeiten/"steuern". Um das Formular StartAuslosung zu initialisieren bzw. zu ändern, führen wir zunächst einen Doppelklick innerhalb des Formulars (oder Kontextmenü CODE ANZEIGEN) aus. Excel generiert automatisch einen leeren Programmrahmen zum Editieren(Abbildung 11). Abbildung 11 Programmrahmen einer User- Form Am oberen Rand sieht man zwei Listenfelder. Im rechten Listenfeld hat man neben dem (ereignisgesteuerten) Click u.a. auch die Möglichkeit einer Initialisierung. Die Auswahl dieses Elementes erzeugt automatisch den Text Private Sub userform_initialize() Die Textboxen der in Abbildung 5 (Seite 22) dargestellten UserForm (TextBox1 = Anzahl der Durchgänge, TextBox2 = Anzahl der Runden und TextBox3 = Anzahl der Tische) sollten nun mit Standard-Werten initialisiert werden. Während die Textboxen 1 und 2 bereits im jeweiligen Eigenschaftenfenster mit den Anfangswerten 3 (= Anzahl Durch- End Sub 26
gänge) und 4 (= Anzahl Runden) versehen werden können, ist dies bei der Anzahl der Tische nicht möglich; die Anzahl der Tische ist abhängig von der Anzahl der Teilnehmer und muss daher per Quellcode- Programmierung berechnet werden: Private Sub userform_initialize() Dim AnzSp As Integer Dim MaxAnzTi As Integer ... If Worksheets(1).Range("M1").Value = "" Then AnzSp = 0 Else AnzSp = Range Worksheets(1).Range("I8").Value 'Anzahl Spieler End If Listing 4 Sub userform_initialize() Vorbelegung Anzahl der Tische in TextBox3 mit dem maximal möglichen Wert MaxAnzTi = AnzSp \ 4 SpinButton3.Value = MaxAnzTi TextBox3.Value = SpinButton3.Value SpinButton1.Min = Worksheets(1).Range("I11").Value + 1 End Sub Im nächsten Schritt geht es darum, ein Makro für die Änderung der Tischanzahl zu schreiben. Da die Änderung über das nebenstehende Drehfeld SpinButton3 erfolgen soll, ist für die TextBox3 selber keine Codierung notwendig, wohl aber für das nebenstehende Drehfeld. Führen wir zunächst einen Doppelklick auf die Schaltfläche SpinButton3 in der Userform StartAuslosung aus, generiert Excel wiederum automatisch einen leeren Programmrahmen, diesmal mit der Option Change: Private Sub SpinButton3_Change() End Sub In diesem Rahmen werden nun die gewünschten Anpassungen bzw. Berechnungen vorgenommen (s. auch Listing 16, Seite 43): Private Sub SpinButton3_Change() Dim Max_AnzSp As Integer Dim AnzSp As Integer Dim i As Integer Dim MaxAnzTi As Integer Dim MinAnzTi As Integer Dim Anz5erTi() As Integer Dim Anz4erTi() As Integer Dim Anz_Tische() As Integer 'Max-Anzahl Spieler alle Durchgänge 'Anzahl Spieler in einem Durchgang 'Anzahl Tische Maximum 'Anzahl Tische Minimum 'Anzahl 5er-Tische 'Anzahl 4er-Tische 'Anzahl benötigter Tische insgesamt Listing 5 Sub SpinButton3_Change() If Worksheets(1).Range("M1").Value = "" Then AnzSp = 0 Else AnzSp = Worksheets(1).Range("I8").Value 'Anzahl Spieler End If 27
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 28: If AnzSp > Max_AnzSp Then Max_AnzSp
Seite 33 und 34: Durch einen Klick auf den Button Li
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

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

Template löschen?

Als Template speichern?