VBA – Programmierung mit Excel Grundlagen

5.4.2.5 Die With – Anweisung
Seite 46
Das Sprachkonzept von VBA
Mit Hilfe der WITH - Anweisung, die als eine Schleife mit nur einem Durchlauf verstanden
werden kann, können mehrere Eigenschaften eines Objekts manipuliert werden, ohne
daß jedesmal der Objektname angegeben werden muß.
Ihre Syntax:
With Objekt
.. [Anweisungen..]
End With
So können beispielsweise die Anweisungen
UserForm2.CommandButton.Caption = "OK"
UserForm2.CommandButton.Enabled = True
UserForm2.CommandButton.Width = 100
UserForm2.CommandButton.Height = 30
in unterschiedlichen Versionen mittels der WITH – Anweisung umgesetzt werden:
With UserForm2
.CommandButton.Caption = "OK"
.CommandButton.Enabled = True
.CommandButton.Width = 100
.CommandButton.Height = 30
End With
With UserForm2.CommandButton
.Caption = "OK"
.Enabled = True
.Width = 100
.Height = 30
End With
WITH – Anweisungen können ineinander geschachtelt werden:
With ActiveCell
With .Borders
.LineStyle = xlSingle
.ColorIndex = 5
End With
With .Font
.Bold = True
.ColorIndex = 5
End With
End With
Diese Anweisung formatiert den Rahmen und die Zeichen einer aktiven Zelle.
➨ Bei der Benutzung der WITH – Funktion ist unbedingt auf die korrekte Syntax der
Objekt- und Eigenschaftsnamen (Punkte !!) zu achten !
Die folgende WITH - Anweisung setzt mehrere Eigenschaften einer Befehlsschaltfläche
mit dem Namen EINFÜGEN:
With Einfügen
.Heigth = 300
.Width = 900
.Left = 280
.Top = 800
.MultiLine = True
.Caption = "Einfügen eines Wertes"
End With