Ein VBA-Programm in Excel

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