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