Wie kann ich folgendes Ererignis abfangen und eine Funktion starten?
Zelle X wird mit einer Zahl gefüllt! starte Funktion
Gruß und vielen Dank
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1")
If Not Intersect(Target, Bereich) Is Nothing Then 'reagiert nur, wenn Zelländerung im Bereich
Call test
End If
End Sub
Sub Makro1()
If WorksheetFunction.CountBlank(Range(Cells(4, 4), Cells(4, 7))) = 4 Then
MsgBox "leer"
Else
MsgBox "nicht leer"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$4" Then Exit Sub
If Range("$A$4").Value = "x" Then MsgBox "Ich bin gefüllt mit 'x'"
End Sub