Gesplitste cel op beide een ander gegeven van aftrekken met VBA

[Johande]

Beste Allemaal,

Ik heb een vraag over gesplitste cellen.
In een formule lukt het me wel maar ik wi juist de uitkomst met een VBA code aanpassen.
Zie bijlage deze heb ik met een formule gecreeerd maar wil nu met gegevens vanuit een gegeven in VBA de getallen onafhankelijk aanpassen.

ik krijg het niet voor elkaar dat er van het eerste getal bijvoorbeeld 56 eraf en bij het volgende getal 23
Als het gesplits is in drie getallen 65 bij het derde getal.

Dit zijn voorbeelden.

Ik zie jullie reacties graag tegemoet.

Met vriendelijk groet,

Johan

 

[snb]

Kun je het svp eerst in begrijpelijk Nederlands vertalen ?

 

[VenA]

Volgens mij gaat er 65 vanaf in jouw voorbeeld.

Mogelijk dat zoiets werkt.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$2" Then
    Application.EnableEvents = False
    Dim a(2)
    x = Range("A8:D8")
    y = Range("J9:L10")
    If Target = "splitsing op 1 " Then
      a(0) = x(1, 1) - y(1, 1)
      a(1) = x(1, 2) + x(1, 3) + x(1, 4) - y(1, 2)
     Else
      a(0) = x(1, 1) - y(2, 1)
      a(1) = x(1, 2) - y(2, 2)
      a(2) = x(1, 3) + x(1, 4) - y(2, 3)
    End If
    Range("J18").Resize(, 3) = a
    Application.EnableEvents = True
  End If
End Sub