Dieses Seminar vermittelt nur einen ersten Eindruck. Sie haben einige grundlegende Begriffe und Tätigkeiten erlernt. Das folgende Beispiel nun soll auf Weiteres neugierig machen.

Erweitern Sie die Prozedur Geburtstage auf diesen Programmcode (ohne Kommentare) inklusive der Prozedur ausblenden:

Sub Geburtstage()

Application.ScreenUpdating = False ' Der Bildschirm wird nicht mehr aktualisiert

' Das Pogramm wird schneller

' und der Bildschirm flackert nicht

' während der Arbeit des Programms

ActiveWorkbook.CustomViews("Geburtstage").Show

Call nach_Namen_sortieren ' Die Prozedur nach_Namen_sortieren wird aufgerufen

Call ausblenden ' Die Prozedur ausblenden wird aufgerufen

Application.ScreenUpdating = True ' Der Bildschirm wird wieder aktualisiert

End Sub

Sub ausblenden()

Dim Gebdat As Range ' Eine Bereichsobjektvariable Gebdat wird vereinbart

' Eine unbekannte Anzahl von Zellen

' einer Spalte auswerten

' Spalte auswählen und "Tiefe" ermitteln

' Der Objektvariablen Gebdat zuweisen

Dim Zelle As Range ' Eine Bereichsobjektvariable Zelle wird vereinbart

Set Gebdat = Range("R3", Range("R3").End(xlDown))

' Bereichsobjekt auswerten

For Each Zelle In Gebdat

'Nur Tabellen-Zeilen der Geb.-Daten des aktuellen Datums werden angezeigt

If Month(Zelle) = Month(Now) Then

'Zeile nicht ausblenden, wenn Monat des Geburtstages gleich Monat aktuelles Datum

Zelle.Rows.Hidden = False

Else

'Zeile ausblenden, wenn Monat Geburtstag ungleich Monat aktuelles Datum

Zelle.Rows.Hidden = True

End If

Next

End Sub

Die Behandlung der im letzten Beispiel angeführten Objekte, Steueranweisungen für Entscheidungen im Programm, Unterprogrammtechnik, einige eingebaute Funktionen und viele interessante Themen werden in weiteren Seminaren folgen.