Übungen zur Entwicklungsumgebung

Übung 1

Öffnen Sie Excel. Mit dem Menü Extras - Makros - Visual Basic Editor gelangen Sie in die VBA-Entwicklungsumgebung. Identifizieren Sie die 7 Elemente aus der vorangehenden Folie. Blenden Sie jene Fenster ein, die z.Z. nicht sichtbar sind.

Übung 2

Erstellen Sie (in Excel) den folgenden VBA-Code:

Sub WeiterWennOK()
  If MsgBox("Markierte Zellen rot?", _
    vbOKCancel, "Formatieren") = 1 Then
    '3 ist rot
    Application.Selection _
      .Interior.ColorIndex = 3
  End If
End Sub

Beantworten Sie dabei die folgenden Fragen:

Was wird mit welcher Farbe farbig formatiert?
Was erhält man, wenn man MsgBox( eingibt?
Was geschieht bei der Eingabe von Application.?
Finden Sie heraus, welche Zahl bei ColorIndex welcher Farbe entspricht. Wie viele Farben gibt es?
Was passiert, wenn man die 3 in der Zeile mit ColorIndex löscht und dann in eine andere Zeile klickt?

Zusatzaufgabe für die Schnellen:

Die Funktion WeiterWennOK so erweitern, dass aus allen möglichen Farben zufällig eine ausgewählt wird, und zwar jedes Mal eine andere Farbe.

Übung 3

Öffnen Sie mit Excel die Übungsdatei dieser Lektion und wechseln Sie mit Alt F11 in die Entwicklungsumgebung.

Setzen Sie einen Haltepunkt in Zeile 12 (Eingabe = ..). Führen Sie den Makro bis zum Haltepunkt aus. Lassen Sie sich mit den Quickinfos den Wert der Variablen "Eingabe" anzeigen und fügen Sie für diese Variable eine Überwachung ein. Führen Sie den nächsten Schritt aus und analysieren Sie die Anzeige im Überwachungsfenster sowie die Variable "Resultat". Fahren Sie mit der Ausführung fort.

Was kann bei diesem Makro schiefgehen?