With-AnweisungWith statement

Führt eine Reihe von Anweisungen für ein einzelnes Objekt oder einen benutzerdefinierten Typ aus.Executes a series of statements on a single object or a user-defined type.

SyntaxSyntax

Mit der Objekt [ Anweisungen ] Ende mitWith object [ statements ] End With


Die Syntax der With-Anweisung umfasst die folgenden Teile:The With statement syntax has these parts:

TeilPart BeschreibungDescription
Objektobject Erforderlich.Required. Name eines Objekts oder eines benutzerdefinierten Typs.Name of an object or a user-defined type.
statementsstatements Optional.Optional. Eine oder mehrere Anweisungen, die für ein Objekt ausgeführt werden sollen.One or more statements to be executed on object.

HinweiseRemarks

Die With-Anweisung ermöglicht Ihnen das Ausführen einer Reihe von Anweisungen für ein angegebenes Objekt, ohne den Objektnamen neu zu qualifizieren.The With statement allows you to perform a series of statements on a specified object without requalifying the name of the object. Wenn Sie beispielsweise eine Reihe von unterschiedlichen Eigenschaften für ein einzelnes Objekt ändern möchten, fügen Sie die Eigenschaftszuordnungsanweisungen in die With-Steuerelementstruktur ein, sodass nicht bei jeder Eigenschaftszuordnung auf das Objekt verwiesen wird, sondern nur einmal.For example, to change a number of different properties on a single object, place the property assignment statements within the With control structure, referring to the object once instead of referring to it with each property assignment.

Im folgenden Beispiel wird die Verwendung der With-Anweisung zum Zuordnen von Werten zu verschiedenen Eigenschaften desselben Objekts veranschaulicht.The following example illustrates use of the With statement to assign values to several properties of the same object.

With MyLabel 
 .Height = 2000 
 .Width = 2000 
 .Caption = "This is MyLabel" 
End With 

Hinweis

Nachdem ein With-Block eingegeben wurde, kann das Objekt nicht mehr geändert werden.Once a With block is entered, object can't be changed. Demzufolge können Sie keine einzelne With -Anweisung verwenden, die sich auf eine Vielzahl verschiedener Objekte auswirken soll.As a result, you can't use a single With statement to affect a number of different objects.

Sie können With -Anweisungen schachteln, indem Sie einen With -Block in einem anderen Block positionieren.You can nest With statements by placing one With block within another. Da jedoch die Elemente der äußeren With -Blöcke innerhalb der inneren With -Blöcke maskiert werden, müssen Sie für jedes Element eines Objekts in einem äußeren With -Block einen vollständig qualifizierten Objektverweis in einem inneren With -Block bereitstellen.However, because members of outer With blocks are masked within the inner With blocks, you must provide a fully qualified object reference in an inner With block to any member of an object in an outer With block.

Hinweis

[!HINWEIS] Generell wird empfohlen, weder in With -Blöcke hinein noch aus diesen Blöcken herauszuspringen.In general, it's recommended that you don't jump into or out of With blocks. Wenn Anweisungen in einem With-Block ausgeführt werden, die With- oder End With-Anweisung jedoch nicht ausgeführt wird, bleibt eine temporäre Variable mit einem Verweis auf das Objekt im Speicher erhalten, bis Sie die Prozedur beenden.If statements in a With block are executed, but either the With or End With statement is not executed, a temporary variable containing a reference to the object remains in memory until you exit the procedure.

BeispielExample

In diesem Beispiel wird die With -Anweisung zum Ausführen einer Reihe von Anweisungen für ein einzelnes Objekt verwendet.This example uses the With statement to execute a series of statements on a single object. Bei dem Objekt und den zugehörigen Eigenschaften handelt es sich um generische Namen, die nur der Veranschaulichung dienen.The object and its properties are generic names used for illustration purposes only.

With MyObject 
 .Height = 100 ' Same as MyObject.Height = 100. 
 .Caption = "Hello World" ' Same as MyObject.Caption = "Hello World". 
 With .Font 
  .Color = Red ' Same as MyObject.Font.Color = Red. 
  .Bold = True ' Same as MyObject.Font.Bold = True. 
 End With
End With

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.