Tök jó magammal beszélgetni :-)

Lassan a cella meghatározás is működik:

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(4, 2) > 0 Then
MsgBox ("Bukta")
End If
End Sub


Ez így jó :-)