automatisch datum geven in een matrix

[brooddoos]

Hallo,

Ik heb een vraag. Ik ben een planning aan het maken. Ik heb per activiteit aangegeven hoeveel uur er aan moet worden besteed en op welke datums. Nu wil ik dat er in een andere kolom per activiteit automatisch de start datum komt te staan en de einddatum.
Voorbeeld: bij een activiteit heb ik op maandag 15-12-09, dinsdag 16-12-09 en vrijdag 19-12-09 uren in geplant. Nu moet er een een kolom naast de matrix komen waar automatisch in komt te staan : start maandag 15-12-09, eind 19-12-09

Kan dit en wie kan/wil mij hierbij helpen? ik ben het al een paar dagen aan het proberen, maar het wil maar niet lukken. Op internet ook niks over gevonden.


Het voorbeeld is toegevoegt als bijlage

Alvast bedankt.

 

[Cobbe]

Je zou deze macro kunnen testen.
De verfijning zal wel volgen door de specialisten.

Sub dateren()
Dim Activiteit As Integer, I As Integer
For Activiteit = 8 To 43
    For I = 13 To 75
        If Cells(Activiteit, I) > 0 Then
            Cells(Activiteit, 3) = Cells(4, I)
    I = 76
    End If
Next
For I = 75 To 13 Step -1
    If Cells(Activiteit, I) > 0 Then
        Cells(Activiteit, 6) = Cells(4, I)
    I = 12
    End If
Next
Next
End Sub

Cobbe

 

[brooddoos]

bedankt voor u reactie. Ik zal eens kijken of me het nu lukt.

 

[bandito bob]

Met matrix formules...

 

[brooddoos]

bandito bob hartstikke bedankt! heb er ff snel na gekeken, en doet precies wat ik wil :thumb: Ik ga morgen kijken of ik het snap wat je gedaan heb, zoniet dan kom ik wel weer met vragen.

 

[HSV]

Mooi gevonden @Paul,

Ik begreep eerst de bedoeling niet van de vraag (activiteiten?), dus in de ijskast ermee dacht ik.

Maar beide formules ietsie pietsie korter.

 

[bandito bob]

Inderdaad HSV:thumb:

Niet dat het veel uitmaakt.....maar ik verbaas me vooral over de >0 in de aantal.als van mij:shocked:. blijkbaar was ik er niet helemaal meer bij.

 

[HSV]

Inderdaad HSV:thumb:

Niet dat het veel uitmaakt.....maar ik verbaas me vooral over de >0 in de aantal.als van mij:shocked:. blijkbaar was ik er niet helemaal meer bij.

De iets langere >0 was ik ook eigenlijk niet van jou gewend.

 

[bandito bob]

bandito bob hartstikke bedankt! heb er ff snel na gekeken, en doet precies wat ik wil :thumb: Ik ga morgen kijken of ik het snap wat je gedaan heb, zoniet dan kom ik wel weer met vragen.

Zou je de vraag (vooralsnog) op opgelost willen zetten. :thumb:

 

[brooddoos]

Hallo

Ik ben verder gegaan met mijn planning. Nu wil ik de formule die HSV gemaakt heeft kopieren naar mij goede planning. Alleen krijg ik dat maar niet voor elkaar. Ben al een poos bezig geweest om de formule te begrijpen, maar dat wilt maar niet lukken.

Iemand misschien een site waar handig uitleg staat of een document over hoe matrixen werken in excel??

Ik wil graag het 'celbereik' veranderen van BM naar CC en van M naar K. Als ik dat doe dan krijg ik foutmeldingen. Het lukt me zelfs niet om de formule te kopieren naar mijn goede planning. ik krijg dan alleen de formule te zien. Moet ik iets aan de celeigenschappen veranderen ofzo?

{=ALS(AANTAL.ALS(M9:BW9;">0")=0;"";INDIRECT(ADRES(4;MIN(ALS(M9:BW9>0;KOLOM(M9:BW9))))))}

=ALS(AANTAL.ALS(M8:BW8;">0")=0;"";ZOEKEN(EXP(10);ALS(M8:BW8>0;M8:BW8);$M$4:$BW$4))

Ik heb mijn goede planning bijgevoegt.

Alvast bedankt.

 

[HSV]

Na verandering van de formule in de formulebalk, deze afsluiten met Ctrl+Shift+Enter, en geen Enter.
De accolades veschijnen automatisch, dus niet zelf intypen.

Succes.

 

[brooddoos]

Hartstikke bedankt HSV Het werkt :thumb: