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.