• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Formule voor debiteurenbeheer

Status
Niet open voor verdere reacties.

ThomasWelcker

Nieuwe gebruiker
Lid geworden
21 sep 2014
Berichten
4
Hi all,

Zit al een tijdje te puzzelen op een formule om debiteurenbeheer (en dan met name achterstallige betalers) voor mij zelf te versimpelen.
Ik heb al wel een formule, alleen doet deze niet precies wat ik wil. E.e.a. heb ik toegelicht in bijgevoegde Excel sheet.

Major thanks voor degene die mij helpt!

Groeten,

Thomas

Bekijk bijlage Aanmaningsformule debiteurenbeheer.xlsx
 
Formule voor debiteurenbeheer -> Eigen functie definieren

Hallo Thomas,

In plaats van het nesten van de verschillende ALS-functies in Excel, kan het praktischer zijn om een eigen functie te definieren in Visual Basic for Applications (VBA).

Met volgende stappen zou je dit kunnen doen (ik gebruik Engels talige versie van Excel daardoor kunnen termen voor menu-items iets afwijken van Nederlandse versie)

Met behulp van <ALT> + <F11> kun je de VBA editor openen.
Onder menu tab INSERT de optie Module kiezen

In het grote scherm wat nu verschijnt, onderstaande code copieren :

Function Aanmanen_Debiteuren(Verkoopdatum, Status, Datum_1e_Aanmaning, Datum_2e_Aanmaning, Datum_3e_Aanmaning)
'Ingelezen data omzetten in handelbaardere codes binnen VBA
Datum1 = Datum_1e_Aanmaning
Datum2 = Datum_2e_Aanmaning
Datum3 = Datum_3e_Aanmaning

'Datum van vandaag definieren
Vandaag = Date

Aanmanen_Debiteuren = "-"

If Status = "Debiteuren" And (Vandaag - Verkoopdatum) > 14 Then 'Debiteur waarvan verkoop datum > 14 dagen
Aanmanen_Debiteuren = "Aanmanen(1)"
End If

If Status = "Debiteuren" And (Vandaag - Datum1) > 14 And Datum1 <> "" Then
Aanmanen_Debiteuren = "Aanmanen(2)"
End If

If Status = "Debiteuren" And (Vandaag - Datum1) <= 14 And Datum1 <> "" Then
Aanmanen_Debiteuren = "1e aanmaning"
End If

If Status = "Debiteuren" And (Vandaag - Datum2) > 14 And Datum2 <> "" Then
Aanmanen_Debiteuren = "Aanmanen (3)"
End If

If Status = "Debiteuren" And (Vandaag - Datum2) <= 14 And Datum2 <> "" Then
Aanmanen_Debiteuren = "2e aanmaning"
End If

If Status = "Debiteuren" And (Vandaag - Datum3) > 14 And Datum3 <> "" Then
Aanmanen_Debiteuren = "Blacklisten"
End If

If Status = "Debiteuren" And (Vandaag - Datum3) <= 14 And Datum3 <> "" Then
Aanmanen_Debiteuren = "3e aanmaning"
End If

End Function​

Hiermee heb je een eigen formule ""Aanmanen_Debiteuren" gemaakt.

Plaatst deze nieuwe functie in kolom C (Formules -> Invoegen Formules -> Category = User Defined -> Aanmanen_Debiteuren)
Na het invoegen van de formule wordt gevraagd om de benodigde velden te vullen.

Resultaat zou overeen moeten komen met je gewenste resultaat.

Excel bestand moet worden opgeslagen als XLSM bestand (ipv XLSX).
Mogelijk moet je ook je beveiligings nivo in Excel aanpassen door het gebruik van macro's te accepteren.

Westy
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan