ppfft , weeral de ganse dag ermee bezig  ...
ik loop tegen een toch wel grote fout aan :
1) ik doe een verrichting en die wordt mooi opgeslagen op het werkblad "verhandelingen"
2) voor het wissen van een verrichting selecteer ik in het tabelbereik op werkblad "Verhandelingen" een cel/rij, keer daarna terug naar het werkblad "Budget" en daarna op de knop "wissen"
om de juiste kolom terug te vinden waar het bedrag moet afgetrokken worden baseer ik me op de datum van de geselecteerde rij/cel (werkblad Verhandelingen) en werk dan met de maand om de juiste kolom te vinden.
3) wat me nu is opgevallen dat als ik in kolom 1 op het werkblad "Verhandelingen" een cel selecteer (met de datum) die VERSCHILLEND wordt weergegeven in de "formule baar" , maand en dag worden verwisseld (zie screencopy !) , met als gevolg dat de kolom om het bedrag af te trekken niet meer klopt.

ik begrijp er geen snars van , heb al werkelijk vanalles geprobeerd maar kan het niet oplossen  .

Mvg,
Arnold.

ActiveWorkbook.Sheets("Verhandelingen").Activate
If ActiveCell.Value = "" Then MsgBox "Selecteer eerst een verrichting op het werkblad 'Verhandelingen' !": GoTo Einde
rij = ActiveCell.Row
Wisdatum = Cells(rij, 1).Value [color=red]' hier loopt het dus fout , de datum uit de cel veranderd van Dag-maand-jaar naar maand-dag-jaar ********[/color]

Rem stel nu de kolom in van de huidige maand om het bedrag af te trekken
    kolom = Month(Wisdatum) + 3 [color=blue](die +3 is omdat de kolommen met bedragen starten vanaf de kolom D)[/color]


Nope , werkt niet  ... datum wordt nog steeds verwisseld tussen dag en maand...
Mvg,

als ik je cel opmaak bekijk staat die op aangepast in A12
Ga eens naar cel A2, kies de juiste datum notatie voor alle cellen,
als dit lukt en het bij de volgende ingave weer misgaat moeten we verder zoeken.

Ga eens naar je userform Invulformulier
en verander deze regel naar
With Sheets("Verhandelingen").ListObjects(1).ListRows.Add
    .Range.Resize(, 5) = Array(CDate(TextBox5.Value), ListBox1.Value, ListBox2.Value, TextBox7.Value, CDbl(TextBox4.Value))
End With


je laatste plaatje ziet er volgens mij correct uit.
Vroegere ingaven, tja zal je waarschijnlijk manueel moeten aanpassen.
Hopelijk ben je toch een klein beetje geholpen.

Yes ! dat heeft het hem gedaan , alles gelijk gezet op "Nederlands België" en nu is de datum juist met als cel notatie "Datum" en formaat 7-11-2023.
zowel in de cel zelf als in de "formule baar" staan deze nu hetzelfde.
dikke merci voor al Uw hulp 
Mvg,
Arnold.

Hallo Arnold  (cc: @ Pagadder )

Mag ik daar nog enkele algemene wetenswaardigheden aan toevoegen?

1) Wat je in de formulebalk ziet is altijd juist, op je werkblad staat op zich hetzelfde maar mogelijk in een andere opmaak, een andere weergavemanier dus.

2) Een tekstveld op een userfom (het woord zegt het zelf) bevat altijd tekst. Het is een alsmaar terugkerend probleem bij veel gebruikers dat in geval van datums de wisselwerking tussen zo'n tekstveld en het werkblad in de soep draait. Die tekst omzetten naar datum met bv. CDate zoals Pagadder adviseerde is zonder meer o.k., maar je kan ook DateValue gebruiken. Voor jouw situatie zal het geen verschil maken, al zijn beide functies niet identiek. CDate kan ook overweg met getallen en zal (een beetje in tegenstrijd met zijn naam) ook tijd teruggeven. DateValue daarentegen heeft effectief een tekst nodig en geeft enkel een datum, ook als de tekst datum+tijd bevat. 't Is maar een weet...

Als je die 2 zaken in gedachten houdt mag het nooit meer fout gaan

Groetjes,
Molly