VBA-Lektion 5. Eigenschaften (Propertes)

In diesem Artikel erfahren Sie, wie Sie VBA-Code schreiben, um Zellinhalte, Zellen selbst und Buchstaben zu steuern.

Eine Eigenschaft ist ein Objektattribut, das eine der Eigenschaften des Objekts definiert, beispielsweise seine Größe, Farbe oder Position auf dem Bildschirm, oder einen Aspekt seines Verhaltens, beispielsweise ob es auf dem Bildschirm aktiviert oder sichtbar ist.

Um die Eigenschaften eines Objekts zu ändern, müssen Sie den Wert seiner Eigenschaften ändern.

1. Schreiben Sie die Werte in die Zelle

Öffnen Sie zunächst den Editor, fügen Sie ein Modul hinzu und kopieren Sie dieses Makro dorthin:

Sub Properties() 'moonexcel.com.ua
   Range ("A1")
End Sub

Wir gingen zu Zelle A1. Versuchen wir nun, diese Zelle zu kontrollieren. Um zu sehen, was wir tun können, fügen wir nach Range („A1“) einen Punkt hinzu.

Wählen Sie Value und drücken Sie Tab. Wir erhalten den folgenden Code:

Sub Properties() 'moonexcel.com.ua
        Range ("A1").Value
End Sub

Der Wert Value zeigt den Inhalt der Zelle an.

Schreiben wir nun den Wert 35 in Zelle A1:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   'Der Wert der Zelle A1 beträgt 35
End Sub

Versuchen wir nun, den Text in die Zelle zu schreiben (bei der Zuweisung eines Textwerts muss dieser in doppelte Anführungszeichen „“ eingeschlossen werden):

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = "Hier gibt es Text"
End Sub

Beachten Sie, dass das Makro die Werte in dem Blatt anzeigt, das Sie zuletzt geöffnet haben. Um den Inhalt einer Zelle auf einem beliebigen Blatt des Buches zu steuern, müssen wir daher den vollständigen Pfad zur Zelle schreiben, d. h. den Namen des Blatts am Anfang des Codes hinzufügen, zum Beispiel:

Option 1. Wir bewerben uns mit dem Namen des Buchstabens - Sheets("Sheet2").

Sub properties() 'moonexcel.com.ua
   Sheets("Sheet2").Range("A1").Value = "Hier gibt es Text"
   'Das bedeutet: Öffnen Sie Blatt 2, wählen Sie Zelle A1 aus und schreiben Sie Text in ihren Wert
End Sub

Option 2. Wir bewerben uns nicht mit dem Namen des Buchstabens, sondern mit seiner Seriennummer – Sheets(2).

Sub properties() 'moonexcel.com.ua
   Sheets(2).Range("A1").Value = "Hier gibt es Text"
End Sub

Wenn wir auf eine Zelle in einer anderen Arbeitsmappe verweisen möchten, müssen wir gleichermaßen den Namen der Arbeitsmappe am Anfang des Codes schreiben:

Sub properties() 'moonexcel.com.ua
   Workbooks("Book2.xlsx").Sheets("Sheet2").Range("A1").Value = "Hier gibt es Text"
End Sub

Obwohl wir in unseren Beispielen den Parameter Value angeben, kann er tatsächlich weggelassen werden, da es sich um die Standardeinstellung handelt. Das heißt, diese beiden Codezeilen sind äquivalent:

Sub properties() 'moonexcel.com.ua
   Range("A1").Value = 35
   Range("A1") = 35
End Sub

2. Werte löschen

Löschen wir den Wert 35 aus Zelle A1, den wir zu Beginn der Lektion aufgezeichnet haben:

Sub properties() 'moonexcel.com.ua
   Range("A1").Clear
   'Bedeutet: Zelle A1 auswählen und löschen
End Sub

3. Werte formatieren

Wenn Sie Font auswählen, wird eine Liste mit Eigenschaften angezeigt, die Sie auf die Zelle anwenden können:

Formatierung: Ändern der Textgröße

Setzen wir die Zelle auf 35 und reduzieren die Schriftgröße auf 8:

Sub properties() 'moonexcel.com.ua
   Range("A1") = 35
   Range("A1").Font.Size = 8
End Sub

Formatierung: Machen Sie den Text fett

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = True
End Sub

Ölige Sekrete entfernen:

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Bold = False
End Sub

Formatierung: Machen Sie den Text kursiv

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Italic = True
End Sub

Formatierung: Text unterstreichen

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Underline = True
End Sub

Formatierung: Legen Sie die Schriftart fest

Sub properties() 'moonexcel.com.ua
   Range("A1").Font.Name = "Arial"
End Sub

Formatierung: Zelle einfärben

Sub properties() 'moonexcel.com.ua
   Range("A1").Interior.ColorIndex = 6
End Sub