Ein VBA-Programm in Excel

Weitere Magazine

Empfehlungen

Info

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Dim rng As Range If Intersect(Target, Worksheets(1).Range("B:C")) Is Nothing Then Exit Sub If Target.Row = 1 Then Exit Sub If Target.Column = 2 Then If Target.Interior.ColorIndex = 4 Then 'Color 4 = Farbe Grün Cells(Target.Offset(0, 2) + 1, 6) = "" 'Sp-Name löschen Cells(Target.Offset(0, 2) + 1, 5) = "" 'Sp-Nr löschen Target.Offset(0, 2).Value = "" 'Nr in Spalte D löschen Target.Interior.ColorIndex = 0 'Farbe zurücksetzen Target.Offset(0, 1).Interior.ColorIndex = 0 Target.Offset(0, 1).Value = "" Target.Value = "" Range("I8").Value = Range("I8").Value - 1 'Anzahl Spieler Range("I9").Value = Range("I8").Value \ 4 'Anzahl Tische Range("I10").Value = Range("I8").Value Mod 4 'Anzahl 5er-Tische Else 'in Liste aufnehmen If Target.Offset(0, 2) "" Then Target.Interior.ColorIndex = 4 Target.Value = Chr(252) Exit Sub Else If Target.Offset(0, -1).Value = "" Then Exit Sub End If End If For Each rng In Worksheets(1).Range("F:F").Cells If IsEmpty(rng) Then lz = rng.Row rng = Target.Offset(0, -1).Value Target.Offset(0, 2).Value = lz - 1 Cells(lz, 5).Value = lz - 1 Target.Value = Chr(252) Target.Offset(0, 1).Value = Chr(252) Target.Interior.ColorIndex = 4 Target.Offset(0, 1).Interior.ColorIndex = 4 Range("I8").Value = Range("I8").Value + 1 'erste freie Zelle in Spalte "F" 'Anzahl Spieler 'Anzahl Tische Range("I9").Value = Range("I8").Value \ 4 Range("I10").Value = Range("I8").Value Mod 4 'Anzahl 5er-Tische End End If Next rng End If Listing 2 Sub Worksheet_BeforeDouble Click(ByVal Target As Range, Cancel As Boolean) Abfrage einer angeklickten Zelle in Spalte "B" auf Farbhintergrund: falls grün (ColorIndex=4), dann Teilnehmer aus Liste in Spalte "F" löschen, sonst Spieler neu in Spalte "F" aufnehmen Zu diesem Listing bedarf es nun einiger Erläuterungen. Mit der Methode Intersect wird sichergestellt, dass nur dann weitere Aktionen stattfinden, wenn sich die aktuell markierte Zelle im Zielbereich Range("B:C") befindet. Auch der Doppelklick in die 1. Zeile Target.Row = 1 soll keine weitere Aktion nach sich ziehen. Was passiert nun aber, wenn in Spalte "B" oder "C" eine Zelle angeklickt wird? Der Einfachheit halber soll hier nur das Vorgehen für die Spalte "B" (= bezahlt) erläutert werden: If Target.Column = 2 . Die Codierung für Spalte "C" (= anwesend") kann als Übung (s. Übung 3) dienen. 18
Wird nun beispielsweise die Zelle "B88" rechtsgeklickt und ist die Zelle "A88" leer, so ist wiederum nichts zu tun: If Target.Offset(0, -1).Value = "" Then Exit Sub. Gibt es aber in Zelle "A88" einen Teilnehmereintrag, so müssen zwei Fälle unterschieden werden: entweder die Zelle "B88" ist bereits mit einem Häkchen markiert und mit grüner Hintergrundfarbe versehen, d.h. der Teilnehmer ist bereits aufgenommen und soll jetzt wieder gelöscht werden, oder die Zelle ist nicht markiert und der Teilnehmer aus "A88" muss noch in die Teilnehmerliste, also in Spalte "F" aufgenommen werden. Fall A: Ein Teilnehmer wird neu aufgenommen, Beispiel "Tanja Evers" durch Doppelklick in "B13" Es wird zunächst nach der ersten freien Zelle in Spalte "F" Ausschau gehalten For Each rng In Worksheets(1).Range("F:F").Cells If IsEmpty(rng) und die entsprechende Zeilennummer in der Variablen lz (steht für leerzelle) gespeichert lz = rng.Row. Der Spielername "Tanja Evers" wird aus "A13" in der Variablen rng zwischengespeichert rng = Target.Offset(0, -1).Value, und die - nur intern vorgehaltene - Spielernummer in der Zelle "D13" (nicht sichtbar im Tabellenblatt, da für den Anwender ohne Belang) gemerkt (Target.Offset(0, 2).Value = lz - 1), um die Möglichkeit eines Löschvorgangs nicht zu verbauen. Anschließend werden lediglich noch die Zellen "B13" und "C13" mit einem Häkchen Target.Value = Chr(252) sowie der grünen Füllfarbe Target.Interior.ColorIndex = 4 versehen und es werden einige weitere Zellen ("I8", "I9" und "I10" für die spätere Auslosung bereits mit Werten gefüllt, und zwar enthalten ‣ "I8" die Anzahl der Spieler (bisherigen Wert um 1 erhöhen) Range("I8").Value = Range("I8").Value + 1 ‣ "I9" die Anzahl der benötigten Tische (= Anzahl der Spieler dividiert durch 4 als Integer-Wert) Range("I9").Value = Range("I8").Value \ 4 ‣ "I10" die Anzahl der benötigten 5er Tische (als Restwert der Division durch 4) Range("I10").Value = Range("I8").Value Mod 4 Hinweis 6 Chr (252) entspricht dem Zeichen "ü" und liefert in der Schriftart Wingdings das Häkchen Fall B: Ein bereits aufgenommener Teilnehmer wird wieder aus der Liste entfernt, Beispiel "Gerd Förster" (etwa weil man sich "verklickt" hat) In diesem Fall ist die Zelle "B18" grün markiert: If Target.Interior.ColorIndex = 4. Der Spieler muss nun wieder aus der Liste in Spalte "F" gelöscht werden. 19
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 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 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

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?