Recente berichten31
Excel / Re: Automaitisch optellen in 1 cel
« Laatste bericht door ValentinS Gepost op 28 juli 2026, 14:42:01 »Option Explicit
Dim OudeWaarde As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
If IsNumeric(Me.Range("B3").Value) Then
OudeWaarde = CDbl(Me.Range("B3").Value)
Else
OudeWaarde = 0
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
Me.Range("B3").Value = OudeWaarde + CDbl(Target.Value)
Application.EnableEvents = True
End Sub
Dim OudeWaarde As Double
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
If IsNumeric(Me.Range("B3").Value) Then
OudeWaarde = CDbl(Me.Range("B3").Value)
Else
OudeWaarde = 0
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
Me.Range("B3").Value = OudeWaarde + CDbl(Target.Value)
Application.EnableEvents = True
End Sub
SoftAid 
