Ein VBA-Programm in Excel

Füllen Sie den Tabellenbereich "A1:A10" mit beliebigen Zahlen. Markieren
Sie einige Zellen dieses Bereiches mit der Hintergrundfarbe "Rot".
Fügen Sie in der Entwicklungsumgebung ein neues Modul ein, indem
Sie im Projekt-Explorer mit der rechten Maustaste klicken und den
Kontextmenübefehl EINFÜGEN/MODUL wählen.
Übung 2
Benutzerdefinierte Funktion
schreiben
Schreiben Sie eine Funktion Function SummeRoteZellen(Zelle
As Range), die nur die Zellen mit roter Hintergrundfarbe addiert.
Hinweise:
1) Setzen Sie als erstes die Anweisung Application.Volatile.
Hierdurch wird bewirkt, dass die Funktion immer neu berechnet
wird, wenn in einer beliebigen Zelle des Tabellenblattes eine Berechnung
durchgeführt wird
2) Um jede Zelle eines Bereiches zu erreichen, verwenden Sie die
for-Schleife: For Each Zelle In Zelle.Cells
3) Addieren Sie nur dann, wenn die Zelle einen numerischen Wert
enthält: If IsNumeric(Zelle)
4) Abfrage der Hintergrundfarbe einer Zelle des Bereiches auf die
Farbe "Rot" mit If Zelle.Interior.ColorIndex = 3
5) Addition der Funktionswerte: SummeRoteZellen = Summe-
RoteZellen + Zelle.Value
6) Prüfen Sie die Funktion, indem Sie in Zelle "A11" die Formel eingeben
"=SummeRoteZellen(A1:A10)"
2.2 Die Gäste kommen
Nun wieder zurück zu unserem Doppelkopfturnierprogramm. Die Teilnehmer
melden sich größtenteils vor dem Turnier telefonisch oder per
Mail, so dass sie bereits vorab in einer Liste im Programm (in Spalte
"A") aufgenommen werden können (das gesamte Excel-Sheet besteht zu
diesem Zeitpunkt lediglich aus einem Tabellenblatt). Es genügt dann
am Turnierabend nur ein Klick, um die betreffende Person real am Turnier
teilnehmen zu lassen.
14