Hallo Arnold,

Nee hoor, geen verwarring aan deze kant, althans niet deze keer
Het ging echt over een al dan niet aanwezig zijn van een CRLF. Wat ik meer waarschijnlijk acht is dat teken(13) in het csv-bestand was terecht gekomen door het openen en opnieuw opslaan. En dat teken is exact wat 'Line Input' nodig heeft, dus dáárom ging het met het eerste bestand wel goed.
We hoeven er ook niet langer bij stil te staan, want die methode was in mijn laatste bijlage al afgeschaft.
En in de huidige is ook elektriciteit al uitgewerkt.

Het werkt nu dus op basis van teken(10) waardoor het niet meer in de soep kan draaien door het bestand te openen/opslaan/manipuleren. Al zou ik dat liefst afraden, gewoon downloaden en op zijn plaats zetten volstaat. En vooral de titelrij niet verwijderen, anders moeten we de code weer veranderen of uitbreiden met een extra controle.

Wat ik ook nog zag voor gas is dat de formules op 'Maandverbruik' gebruik maken van de KWh-kolom op 'Dagverbruik', dus daar heb ik meteen een formule in gezet (die uiteraard maar zal werken nadat je werkblad 'Parameters' hebt ingevuld. De tabellen daarop zijn nu ook anders dan in een vroegere versie, dus het zit er dik in dat we nog wel ergens gaan moeten ingrijpen, maar liever dan daar nu naar te zoeken wachten we beter even af tot je parameters (mogen fictieve zijn ) ingevuld zijn.

O ja, na je bestand met gegevens vanaf 24/11 te hebben gekregen is mijn uitgangspunt ook dat er geen regels met 0-standen in je csv's staan.

Groetjes,
Molly

@Montagnard en mollyVH

wil niet al te brutaal zijn maar hoe lees je de csv in?

@Montagnard

Super werkt perfect, nu een export maken incl zonnepanelen.

@MollyVH u ook weer bedankt en SoftAid bedankt voor de tip 

Goedemorgen !
na veel wikken en wegen heb ik uiteindelijk besloten om mijn verbruiks data te importeren van de "Fluvius" website , deze zal altijd dezelfde blijven als netwerkbeheerder tenzij ik verhuis ...
ik kan dus voor zowel aardgas als electriciteit de verbruiken downloaden in CSV formaat en die worden dan in mijn bestand verwerkt ( met dank aan Molly die daarvoor gezorgd heeft  ).
als ik op de website van Fluvius kies om de verbruiken te downloaden is de begin datum standaard van 2/6/2023 dit omdat ik van dan een digitale meter heb.
ik moet dan manueel telkens die datum gaan aanpassen naar 1/1/2024  om de verbruiken te downloaden van dit jaar.
nu is mijn vraag hoe ik de code moet aanpassen zodat ENKEL de verbruiken van 2024 ingevuld worden op mijn werkblad "Dagverbruik" ?
ik geraak er zelf niet uit....

bestand = Dir(Download_map & "Verbruikshistoriek*.csv")
While bestand <> ""
  With Sheets("Dagverbruik")
    If InStr(1, bestand, "gas", vbTextCompare) Then
        spl_bestand = Split(WorksheetFunction.Substitute(bestand, "_", " ", 3), " ")
            Gasverbruik = bestand
            Open Download_map & bestand For Input As #1
            While Not EOF(1)
                Line Input #1, regel
                spl_regel = Split(regel, ";")
                If IsDate(spl_regel(0)) And spl_regel(9) <> "kWh" And spl_regel(8) <> "" Then
                    datum = --Format(spl_regel(0), 0)
                    rij = WorksheetFunction.Match(datum, .Columns(1), 0)
                    .Cells(rij, 2) = Replace(spl_regel(8), ",", ".")
                End If
            Wend
            Close #1
        End If
    If InStr(1, bestand, "elektr", vbTextCompare) Then
        spl_bestand = Split(WorksheetFunction.Substitute(bestand, "_", " ", 3), " ")
        Elecverbruik = bestand
           Open Download_map & bestand For Input As #1
            While Not EOF(1)
                Line Input #1, regel
                spl_regel = Split(regel, ";")
                If IsDate(spl_regel(0)) And Left(spl_regel(7), 6) = "Afname" And spl_regel(8) <> "" Then
                    datum = --Format(spl_regel(0), 0)
                    rij = WorksheetFunction.Match(datum, .Columns(1), 0)
                    If spl_regel(7) = "Afname Dag" Then Verbruik1 = CDbl(Replace(spl_regel(8), ".", ","))
                    If spl_regel(7) = "Afname Nacht" Then Verbruik2 = CDbl(Replace(spl_regel(8), ".", ","))
                    .Cells(rij, 4).Value = Verbruik1
        .Cells(rij, 6).Value = Verbruik2
                    End If
            Wend
            Close #1
        End If
    bestand = Dir
  End With
Wend

graag hulp 

Mvg,
Arnold.

@Montagnard

heb je een andere versie want

If IsDate(spl_regel(0)) And spl_regel(9) <> "kWh" And spl_regel"8" <> "" Then
                    datum = --Format(spl_regel(0), 0)
kan ik in de vba nergens vinden

@Montagnard

Ha ok, versie die ik al heb werkt prima

Ik heb er eens mijn "uitgekleed" bestand bij gedaan met de echte kolommen en waarden....
misschien is het zo duidelijker wat ik wil....
alvast thanks !.
Mvg,
Montagnard.

ps : vergeten mee te geven : ik kan het perfect laten werken via VBA (macro) maar ik ben ervan overtuigd dat het gewoon met een formule ook moet kunnen , zie mijn code in vorige post....dus op werkblad "Maandverbruik" formules in de kolommen D en E en G en H voor de 12 maanden...