Freigeben über


Schreiben ausführbarer Anweisungen

Eine ausführbare Anweisung startet eine Aktion. Sie kann eine Methode oder Funktion ausführen, und die Anweisung kann als Schleife oder Verzweigung über Codeblöcke hinweg gelten. Ausführbare Anweisungen enthalten häufig mathematische oder bedingte Operatoren.

Im folgenden Beispiel wird ein For Each...-Element verwendet. Nächste Anweisung, um jede Zelle in einem Bereich mit dem Namen MyRange auf Sheet1 einer aktiven Microsoft Excel-Arbeitsmappe zu durchlaufen. Die Variable c ist eine Zelle in der Auflistung von Zellen, die in MyRange enthalten sind.

Sub ApplyFormat() 
    Const limit As Integer = 33 
    For Each c In Worksheets("Sheet1").Range("MyRange").Cells 
        If c.Value > limit Then 
            With c.Font 
                .Bold = True 
                .Italic = True 
            End With 
        End If 
    Next c 
    MsgBox "All done!" 
End Sub

Wenn ... Dann... Die Else-Anweisung im Beispiel überprüft den Wert der Zelle. Wenn der Wert größer als 33 ist, legt die With -Anweisung die Eigenschaften Bold und Italic des Font -Objekts dieser Zelle fest. If...Then...Else -Anweisungen enden mit End If. Die With-Anweisung kann eingaben speichern, da die darin enthaltenen -Anweisungen automatisch für das -Objekt ausgeführt werden, das dem With-Schlüsselwort folgt.

Mit der Next-Anweisung wird die nächste Zelle in der Auflistung von Zellen aufgerufen, die in MyRange enthalten sind.

Die MsgBox-Funktion (die ein integriertes Visual Basic-Dialogfeld anzeigt) zeigt eine Meldung an, die angibt, dass die Ausführung der Sub-Prozedur abgeschlossen wurde.

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.