Excel - datumprobleem

[PepijnWest]

Hello

Kan iemand me helpen met mijn probleem. Ik ben namelijk een soort project-plannings programmatje aan het maken.

Ik heb in Excel alle werkdagen van dit jaar horizontaal naast elkaar geplaatst ( 5/jan, 6/jan, 7/jan,... )

Nu zou ik via een inputbox willen een datum ingeven, vba zou die datum moeten opzoeken en dan in de kolom van die specifieke datum een cel kleuren.

De inputbox heb ik al, ook de manier om een cel te kleuren is er.
Alleen de formule die voor mij de gevraagde datum opzoekt en dan op gewenste hoogte (hoogte nieuw project) een cel kleurt, is voor mij een raadsel.

Misschien moet er een andere manier zijn om datums weer te geven zodat vba ze kan opzoeken...


Iemand een idee, of kan me een stuk op weg helpen?

Alvast bedankt

 

[Karel 2]

Hoi Pepijn,

Als je een standaard datum opmaak in je excelblad gebruikt kan je met VBA vergelijken of de datum in het invoerscherm gelijk is aan de datum in een cel.
Als je op rij 1 een rij data plaatst kan je met het onderstaande macrotje een waarde opzoeken en kleuren.

       Dim datum As Date

    'wis alle kleur in dit berijk
    Range("A1:T1").Interior.ColorIndex = xlNone
    'vraag om een datum
    datum = InputBox("welke datum zoekt u?")
    
    'doorloop de eerste 31 plaatsen op de eerste rij
    For a = 1 To 31
        'als de opgevraagde datum gelijk is aan de datum in deze cel
        If Cells(1, a) = datum Then
            'maak de cel dan rood
            Cells(1, a).Interior.ColorIndex = 3
            'stop deze macro
            Exit Sub
        End If
    Next a
    'hier kom je alleen maar als je niets gevonden heb
    MsgBox ("datum niet gevonden")

Groet, Karel

 

[snb]

stel dat je alle data in rij 5 hebt staan
en je wil in de kolom van de datum de cel in rij 15 kleuren

sheets(1).rows(5).find(inputbox("welke datum ?"),,xlvalues,xlwhole).offset(10).interior.colorindex=5

 

[PepijnWest]

Dank u wel, ik ben weeral een stapje dichter bij mijn doel.

Misschien kunt u ook helpen met het volgend probleem.

Nu is het zo dat in de formule een rij is opgegeven.
Kan ik die opgegeven rij vervangen door een rij-positie?
Ik klik eerst in de gewenste rij. En start dan mijn programma en Excel zou dan moeten in die rij het vakje kleuren.

Iemand een idee

Bedankt

Pepijn

 

[henkhoogerbrug]

je opent dus excel, selecteert een cel en start dan de macro?
als dat zo is kun je de volgende code gebruiken om het rijnummer te achterhalen (je moet dit wel aan het begin van je code plaatsen, om er zeker van te zijn dat je niet per ongeluk tussendoor een andere cel activeert).

Dim rij As Long
rij = ActiveCell.Row

 

[PepijnWest]

Dat is wat ik zoek !

Bedankt voor uw hulp