Worksheet.Change-Ereignis (Excel)

Tritt auf, wenn Zellen im Arbeitsblatt durch den Benutzer oder durch einen externen Link geändert werden.

Syntax

Ausdruck. Änderung (Ziel)

Ausdruck: Eine Variable, die ein Worksheet-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Target	Erforderlich	Range	Der geänderte Bereich. Kann mehr als eine Zelle umfassen.

Rückgabewert

Nothing

HinwBemerkungeneise

Dieses Ereignis tritt nicht auf, wenn Zellen während einer Neuberechnung geändert werden. Verwenden Sie das Calculate-Ereignis , um eine Neuberechnung eines Blatts abzufangen.

Beispiel

Im folgenden Beispiel wird die Farbe der geänderten Zellen zu blau geändert.

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 5 
End Sub

Im folgenden Codebeispiel wird überprüft, ob sich die geänderte Zelle in Spalte A befindet und ob der geänderte Wert der Zelle größer als 100 ist, wenn ein Zellenwert geändert wird. Wenn der Wert größer als 100 ist, wird die Farbe der angrenzenden Zelle in Spalte B zu rot geändert.

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
    If Target.Column = 1 Then 
        ThisRow = Target.Row 
        If Target.Value > 100 Then 
            Range("B" & ThisRow).Interior.ColorIndex = 3 
        Else 
            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone 
        End If 
    End If 
End Sub

Im folgenden Codebeispiel werden die Werte im Bereich A1:A10 so festgelegt, dass die in die Zelle eingegebenen Daten in Großbuchstaben umgewandelt werden.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    'Set the values to be uppercase
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End Sub

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.