VBA – ActiveCell festlegen

In diesem Tutorial zeigen wir Ihnen, wie Sie ActiveCell mit VBA einstellen und damit arbeiten können.

Die VBA-Eigenschaft ActiveCell gibt die Adresse der Zelle zurück , die in Ihrem Arbeitsblatt ausgewählt (aktiv) ist. Wir können den Zellenzeiger mit VBA auf eine bestimmte Zelle bewegen, indem wir die ActiveCell-Eigenschaft auf eine bestimmte Zelle einstellen, und wir können auch die Werte der derzeit aktiven Zelle mit VBA auslesen.

ActiveCell einstellen

Das Einstellen der aktiven Zelle in VBA ist sehr einfach. Sie verweisen einfach auf einen Bereich als aktive Zelle.

Sub Makro1()
    ActiveCell = Range("F2")
End Sub

Dadurch wird der Zellenzeiger auf die Zelle F2 bewegt.

Den Wert der aktiven Zelle abfragen

Wir können den Wert einer aktiven Zelle abrufen, indem wir eine Variable damit belegen.

Wenn zum Beispiel der Wert in F2 300 beträgt, können wir ihn über eine deklarierte Variable zurückgeben.

Sub TestMakro()
    Dim dblWert As Double
    dblWert = ActiveCell
    MsgBox dblWert
End Sub

wenn wir den Code ausführen, wird die Variable dblWert mit dem Wert in ActiveCell belegt.

Wenn wir dann den Code weiterlaufen lassen, wird ein Meldungsfenster mit dem Wert angezeigt.

ActiveCell im Worksheet_Change-Ereignis abrufen

Wenn Sie Daten in Ihrem Arbeitsblatt ändern, wird das Ereignis Worksheet_Change ausgelöst.

Das Change-Ereignis enthält ein Argument (ByVal Target as Range). Der Bereich, auf den in der Variable Target verwiesen wird, ist entweder ein Bereich von Zellen oder eine einzelne Zelle, die derzeit in Ihrem Arbeitsblatt ausgewählt ist. Wenn Sie nur eine Zelle im Arbeitsblatt ausgewählt haben, ist die Variable Target gleich ActiveCell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("F2") Then
       MsgBox "Die aktive Zelle ist F2!"
    End If
End Sub

Beachten Sie, dass dieses Ereignis nur ausgelöst wird, wenn Sie die Daten in Ihrem Arbeitsblatt ändern. Wenn Sie also Daten ohne Bewegen des Zellenzeigers auf dem Arbeitsblatt hinzufügen oder ändern, wird es nicht ausgelöst.