Einführung "VBA mit Microsoft Office"

Ãœbungen zu Kontrollstrukturen

Ãœbung 1

Öffnen Sie Excel, Word oder Powerpoint. Schreiben Sie einen Makro mit If, der von den Benutzer/innen die Eingabe ihres Geschlechts mit den Buchstaben m oder f verlangt. Prüfen Sie die Eingabe und zeigen Sie anschliessend je nach Geschlecht "weiblich", "männlich" oder "Ungültige Eingabe" an.

Zusatzaufgabe für die Schnellen:

Bauen Sie den Makro so aus, dass Gross- und Kleinschreibung bei der Benutzereingabe keine Rolle spielt. Wie heissen die VBA-Funktionen dafür?

Ãœbung 2

Lösen Sie Übung 1 mit Select Case.

Ãœbung 3

Zeigen Sie ein Dialogfenster an, das als Benutzereingabe eine Zahl zwischen 1 und 100 verlangt. Zeigen Sie eine Fehlermeldung an, wenn eine zu kleine oder zu grosse Zahl eingeben wurde. Verwenden Sie dazu Select. Bei korrekter Eingabe zeigen Sie die Zahl an.

Zusatzaufgabe für die Schnellen:

Wie lässt sich sicherstellen, dass eine Zahl eingegeben wird?

Ãœbung 4

Welches Resultat gibt der folgende Code aus (überlegen, nicht ausprobieren):

Dim intCounter As Integer
Dim intResultat As Integer
intResultat = 2
For intCounter = 8 To 1 Step -1
  intResultat = intResultat * 2
Next
MsgBox ("Das Resultat ist " & intResultat)

Ãœbung 5

Bauen Sie Ãœbung 1 so aus, dass die Eingabe solange wiederholt wird, bis "f" oder "m" eingegeben wird.

Ãœbung 6

Machen Sie alle Übungen dieser Lektion mit Einrückungen lesbarer. Fügen Sie erklärende Kommentare ein.

Optionale Kniffelaufgaben

  • Lassen Sie die Benutzer/innen eine beliebige Jahrzahl eingeben und zeigen Sie an, ob es sich um ein Schaltjahr handelt. Normale Schaltjahre, z.B. 2004, lassen sich durch 4 teilen. Jahrhunderte wie 1900 sind keine Schaltjahre, es sei denn, es handelt sich um Jahre, die durch 400 teilbar sind.
    Beispiele: 
     - Schaltjahre: 1600, 2000 und 2004
     - keine Schaltjahre: 2005, 1900 
    Erzwingen Sie, dass eine Jahrzahl zwischen 0 und 3000 eingegeben wird.
     
  • Berechnen Sie ein Vermögen mit Zins und Zinseszins nach 10 Jahren, wenn das Ausgangskapital 10'000 SFr. und der Zinssatz 3% beträgt. Am Ende jedes Jahres zieht ihnen die Bank 8 SFr. vom Vermögen ab. Zeigen Sie das Vermögen in gut leserlicher Form an.

Letzter Update: 20.01.12 23:26
EMail: mailto:rothen_s@bluewin.ch
Zurück zur VBA-Foliensammlung
Zurück zum rothen ecotronics Web Site