Hey Albert,

Omdat ik dacht dat het probleem bij mijn code achter de 'uitvoeren'-knop lag (omdat ik daar nog toevoegingen/wijzigingen had gemaakt) had ik eerst mijn hele codeblok doorgenomen en herschreven met een iets andere structuur. Na een halve dag hiermee bezig te zijn geweest en hiermee het probleem nog steeds niet opgelost was ben ik beginnen nadenken over wat er nog allemaal toegevoegd/gewijzigd was....
uiteindelijk heb ik de reden van de plotse foutmelding gevonden...

de code Txt_sombedrag = Replace(Txt_sombedrag, ".", ",") is de boosdoener...
Als ik bovenstaand lijntje code uitschakel heb ik de foutmelding niet meer...
Maar dan heb ik wel weer het fenomeen als ik handmatig een decimaal bedrag intyp dat er na 'enter' of 'tab' (ik dus naar het volgende object op het UF ga) een bedrag staat dat 10x groter is dan hetgene ik had ingetypt....

Ik ben al enkele uren bezig met het zoeken en testen/wijzigen van code maar ik vind echt geen oplossing om beide fouten te voorkomen.

Ik vrees dat ik helemaal opnieuw zal moeten beginnen....

groetjes,
BlackDevil

Wat Leo aangeeft is juist, onnodige poespas vermijden.
Maar zoals ik al eerder aangaf,  in het laatste voorbeeldbestand van deze topic werkt alles.
Plaats daarom het bestand. Heel misschien kan ik ontdekken waarom het fout gaat.

toch nog een (hopelijk) laatste vraagje...

Hoe je op een werkblad de laatste niet-lege rij moet zoeken via een bepaalde kolom weet ik.
Maar hoe doe je dit voor een 'echte' tabel waarbij niet gekend is in welke kolom de laatst niet-lege
cel zich bevind?

Of anders, hoe maak je een 'echte' tabel leeg ZONDER de berichtkoppen te wissen als niet gekend is
in welke kolom de laatst niet-lege cel zich bevind?

Alvast dank aan diegenen die willen helpen.


groetjes,
BlackDevil

@Warme bakkertje,

Hartelijk dank voor jouw reactie.
Toch nog een bijkomende vraag...

De betreffende tabel (tblCategorie) bevind zich op werkblad "Categorie" en de code om deze tabel leeg te
maken moet achter de knop 'bestand resetten' komen welke zich op het werkblad "Budget" bevind...

Hoe bouw ik dan jouw aangereikte code-blok op?


groetjes,
BlackDevil

@Warme bakkertje,

Hartelijk dank. 


groetjes,
BlackDvil

@Albert,

Hou er dan wel rekening mee dat als je het op jouw manier doet en je maakt gebruik van formules in je tabel dat je die ook kwijt bent.

Daarom is het beter om alle rijen te verwijderen buiten de 1ste en daarin enkel de constante waarden te wissen zodat je formules intact blijven.

Goedenavond allen,

Bij wijze van uitgebreid testen heb ik de afgelopen 2 dagen eens alle transacties uit mijn originele (oude) bestand ingegeven
in de recentste versie van mijn nieuw bestand. Heeft ff geduurd om al die transacties van om en bij de acht maanden in te geven
maar dit was volgens mij de enige manier om echt te testen of er nog foutjes aanwezig waren.
Op deze manier heb ik er dan toch nog enkele gevonden en aangepast.

In principe werkt de volledige code nu naar behoren en is het bestand dus 'af'.
Doch zou ik hier en daar enkele code-blokjes willen verbeteren indien mogelijk.

Zo heb ik een aantal loops met (serieus geneste) If-statements en ik vroeg me dus af of dit in sommige gevallen niet beter kan omgezet worden naar een 'select case'. Maar gezien mijn beperkte algemene kennis en het feit dat ik met 'select case' totaal geen ervaring heb en er soms best wel wat diverse voorwaarden verbonden zijn wou ik hier eens één van die code-blokjes laten zien om enerzijds te achterhalen of het al dan niet beter is er een 'select case' (of iets anders) van te maken en zo ja, hoe ik dit dan dien op te bouwen.

Een eerste blokje dat ik eventueel wil verbeteren is het volgende :
With Sheets("Rek-overzichten")
        .Cells(rek, 1) = datum
        .Cells(rek, 2) = tgnprt & " " & nota
        If categorie = "INKOMSTEN" Then
            .Cells(rek, 3) = bedrag
        End If
        If categorie = "SPREK's" Then
            If tgnprt = "Sprek -59" Then
                If bedrag > 0 Then
                    .Cells(rek, 6) = bedrag
                    .Cells(rek, 9) = bedrag
                Else
                    .Cells(rek, 3) = bedrag * -1
                    .Cells(rek, 10) = bedrag * -1
                End If
            End If
            If tgnprt = "Sprek -74" Then
                If bedrag > 0 Then
                    .Cells(rek, 6) = bedrag
                    .Cells(rek, 13) = bedrag
                Else
                    .Cells(rek, 3) = bedrag * -1
                    .Cells(rek, 14) = bedrag * -1
                End If
            End If
        End If
        If categorie <> "INKOMSTEN" And categorie <> "SPREK's" Then
            If tgnprt = "Sparen -59" Or tgnprt = "Sparen -74" Then
                .Cells(rek, 6) = bedrag
                If tgnprt = "Sparen -59" Then
                    .Cells(rek, 9) = bedrag
                Else
                    .Cells(rek, 13) = bedrag
                End If
            ElseIf tgnprt = "CM-Tsskmst" Then
                .Cells(rek, 3) = bedrag
            Else
                .Cells(rek, 4) = bedrag
            End If
            If CheckBox1.Value = True Then
                .Cells(rek, 5) = verschil
                .Cells(rek, 13) = verschil
            End If
        End If
        .Cells(rek, 7) = .Cells(rek - 1, 7) + .Cells(rek, 3) - (.Cells(rek, 4) + .Cells(rek, 5) + .Cells(rek, 6))
        .Cells(rek, 11) = .Cells(rek - 1, 11) + .Cells(rek, 9) - .Cells(rek, 10)
        .Cells(rek, 15) = .Cells(rek - 1, 15) + .Cells(rek, 13) - .Cells(rek, 14)
    End With

Alvast dank op voorhand.

Groetjes,
BlackDevil

dag,
omdat ik bleef sukkelen met die veranderende hoogtes van mijn beide listboxen ben ik nog eens op het web gaan zoeken en de oplossing is eigenlijk simpel :
in de eigenschappen van een listbox zelf heb je een optie : Integralheight , zet die op "false" (staat standaard op "true" ) en voila , probleem is opgelost.
Mvg,
Montagnard.