Gerrit, een paar vraagjes..

• is blad 1 dus je 'week-invoer-blad'?
• dit blad zal je dus iedere week 'schonen' nadat je de waarden hebt overgenomen op je totaaloverzicht?
• Om hoeveel fondsen gaat het maximaal op het totaaloverzicht?
• de fondsen die nieuw zijn in het weekinvoerblad moeten uiteraard worden toegevoegd aan het totaaloverzicht. Moeten dan de regels die je niet meer in je weekinvoerblad opgeeft, verwijderd worden uit je totaaloverzicht?

Ik heb opzich wel een ideetje om dit uit te werken. Maar da's niet 1,2,3 gebeurd.

Interessant stuk trouwens van Luc Heyndrickx. Heel leerzaam voor diegene die in de wereld van de VBA wil stappen. (bekijken dus, die link)

Groet, Leo

Ps. Je hebt je weg naar OplossingBE nu ECHT gevonden hè? Blijf sturen, die vragen!

Gerrit, als ik je antwoord zo lees, maak ik op dat je al een workbook hebt.... Klopt dat? Zo ja, is het dan mogelijk om een kopie daarvan als bijlage op het forum te plaatsen? (uiteraard kan je de fondsen en/of bedragen in dat kopiebestand veranderen zodat je geen geheimen op het net gooit! )
Maar dan kunnen we verder bouwen op hetgeen je nu hebt, ipv het wiel opnieuw uitvinden. Eens?

Groet, Leo

Gerrit, Rustig aan... We zien 'm vanzelf verschijnen!

Groet, Leo

Omdat ik problemen kreeg met varabele-declaraties is de vul_array code samengevoegd met ProKopieerVrgWeekNaarJaaroverzicht .

Hierdoor krijg je een wat langere procedure, maar met duidelijker inzicht in de volgorde van uit te voeren stappen.

Het probleem spitst zich nu toe op een lus in een lus. De buitenste lus loopt door m'n array, en gaat per gevonden fonds in de 2e lus door het jaaroverzicht om de regel van dat fonds te vinden.

In de 1e lust treedt echter een foutmelding op als een fonds in de array niet direct wordt gevonden in de volgende regel van het jaaroverzicht: Fout 9, het subscript valt buiten het bereik.

    Sub ProKopieerVrgWeekNaarJaaroverzicht()
   
    Dim LWeek As Integer
    Dim LColumn As Integer
    Dim LFound As Boolean
    Dim FondsFound As Boolean
    Dim Arrayteller As Integer
    Dim thisarray As Variant
   
    'On Error Resume Next
    On Error GoTo Err_Execute

    'Retrieve date value to search for
    Sheets("Portefeuille").Select
   
    LWeek = Sheets("Portefeuille").Range("F8").Value
   
    number_of_elements = LaatsteRij() - 9   'aantal elementen in de matrix
    'grootte moet worden gewijzigd
    ReDim thisarray(1 To number_of_elements, 20) As Variant
   
   Arrayteller = 1
   fillmeup = 7
   For Arrayteller = 1 To number_of_elements
      'Hier moeten de fondsen uit portefeuille.B9-laatste rij komen en de waarden uit F9-laatsterij
      'de 7 en hoi werken, de rijen ook
     
      thisarray(Arrayteller, 1) = Range("B" & 8 + Arrayteller) 'fondsnaam
      thisarray(Arrayteller, 2) = Range("F" & 8 + Arrayteller) 'koers
   Next Arrayteller
   Arrayteller = 1        'deze lus toont wat is ingevuld in de portefeuille
   
   Sheets("Jaaroverzicht").Select

    'Start at column A
    LColumn = 1
    LFound = False
   
    While LFound = False
        'Encountered blank cell in row 3, terminate search
        If Len(Cells(3, LColumn)) = 0 Then
            MsgBox "Geen overeenkomend weeknummer gevonden."
            Exit Sub

        'Found match in row 2
        ElseIf Cells(3, LColumn) = LWeek Then
          LFound = True
          'Continue searching
        Else
            LColumn = LColumn + 1
        End If
    Wend
   
   'MsgBox ("LWeek: " & LWeek)
   'MsgBox ("wat is lcolumn: " & LColumn)
   
   
   While Arrayteller <= UBound(thisarray)
      MsgBox ("arrayteller is: " & Arrayteller & " en Ubound is: " & UBound(thisarray))
     
     
      FondsFound = False
      While FondsFound = False
        If thisarray(Arrayteller, 1) = Cells(Arrayteller + 3, 1) Then
          Cells(Arrayteller + 3, LColumn).Value = thisarray(Arrayteller, 2)
          FondsFound = True
        Else
          FondsFound = False
        End If
      Arrayteller = Arrayteller + 1
      Wend
     
      MsgBox ("Teller is: " & Arrayteller & " , fonds is: " & thisarray(Arrayteller, 1) & " koers is: " & thisarray(Arrayteller, 2))
     
   Wend
   
    On Error GoTo 0
   
    Exit Sub

Err_Execute:
    MsgBox "(2) Er is een fout opgetreden.

End Sub

Gerrit, je bent lekker bezig zo te zien...
Ik was zelf een dagje afwezig, maar ga morgen(avond) met je mee doen (voor zover je er dan al niet zelf uitgekomen bent).

Groet, Leo

Ehhh Gerrit, HEB je nog wel hulp nodig??? Volgens mij heb je 't aardig onder controle!

Ik zal d'r ook nog 'ns doorheen lopen om te kijken of er nog leuke dingen gedaan kunnen worden.
Wat ik me trouwens net zit af te vragen.... Waarom zet je al je waarden niet gewoon in 1 grote doorlopende tabel (3 velden: fonds; bedrag; weeknummer) om vervolgens met een 'draaitabel' je gegevens te clusteren? Excel neemt je daarmee een hoop werk uit handen (óók al blijft het natuurlijk wél leuk om zelf iets te bouwen )

Groet, Leo

P.s. lange verhuizing?