Planning waar ik niet uit kom.

[HeHaHu]

Ik ben een basis Excel gebruiker en red me met eenvoudige dingen wel. Nu wil ik, voor mij in elk geval, iets ingewikkelders maken en hoop dat iemand mij daar mee kan helpen.

Graag zou ik in de kolommen B en C, zie bijlage, een datum ingeven en dat dan de corresponderende data in de klommen E tot AI "oplichten". Is zoiets in Excel realiseerbaar? Indien ja, is dat aan mij uit te leggen?

Bij voorbaat dank

 

[AlexCEL]

Dat kan zeker: middels voorwaardelijke opmaak!

Voorwaarde wordt:

=EN(E$1>=$B2;E$1<=$C2)

 

[HeHaHu]

Vraag 1 is beantwoord. Dankjewel. Ik ben al iets verder.

Nu nog iemand die vraag 2 kan beantwoorden.

 

[AlexCEL]

Was nog bezig met voorbeeldje

Voorwaardelijke opmaak stel je in voor een bepaald bereik, en indien cellen binnen dit bereik voldoen aan de voorwaarde dan krijgen ze een ingestelde opmaak. Zit achter de knop "voorwaardelijke opmaak" (logisch...). De voorwaarde uit post #2 en het ingestelde bereik zul je vinden bij "regels beheren".

 

[HeHaHu]

Oh sorry, ik was te snel met reageren hahaha.

Dit is inderdaad wat ik bedoel, super. Met de formule lukt het me niet, maar met kopiëren van rij 2 naar rij 4 werkt het. Maar ik wil het ook graag snappen. Daar ga ik nog even goed voor zitten. Hopelijk kom ik daar uit.

Ik denk dat het nu wat duidelijker voor me wordt. Dit (bijlage) is wat je denk ik bedoelde.

 

[AlexCEL]

Je hoeft de formule niet aan te passen, dat doet Excel voor je voor het gehele opgegeven bereik. De $-tekens geven aan wat "vast" blijft staan.

Dus als jij de VO uit wilt breiden tot bijvoorbeeld regel 50 pas je het bereik aan naar $E$2:$AI$50.

 

[HeHaHu]

Ik had het inmiddels begrepen. Het $-teken gebruik ik ook als ik bijv. in A1 of zo het BTW-tarief heb staan. Dan is een formule makkelijk te kopiëren en A1 blijft dan in de formule staan.

Het bereik had ik ook ontdekt. Ik wil namelijk graag snappen hoe het werkt. Het gaat via typen, maar je kunt ook via de muis het bereik groter "trekken". Nu heb ik 1 regel, die ik gekopieerd had, weggehaald en het bereik vergroot (bijlage).

Ik heb nog een vraag. 14-10 gaan we een week op vakantie, hoe kan ik die week automatisch "weg laten vallen"? Ik zeg maar wat, ik begin na het verbouwen op 13-10 op te ruimen en zet in B4 "13-10" en in C4 "23-10". Hoe krijg ik dan automatisch 14-10 t/m 21-10 rood?

Of, stel dat je alle zondagen rood wilt hebben, hoe doe je dat?

 

[VenA]

Als je op nieuwe regel klikt dan kan je een nieuwe voorwaarde opgeven. Om de zondagen te markeren

=WEEKDAY(E$1;2)=7

 

[HeHaHu]

Volgens mij heb ik het zo gedaan (bijlage), maar dat lukt me niet.

 

[VenA]

Even van WEEKDAY() WEEKDAG() maken.

 

[HeHaHu]

Wat 1 lettertje een verschil kan maken .

Het werkt, dank je.

 

[VenA]

De letter maakt niet zoveel uit. De ene is de Engels- en de andere is de Nederlandse-variant

 

[HeHaHu]

Euh, dat had ik wel begrepen :d. Het blijft 1 lettertje.

 

[SjonR]

Of met VBA

Private Sub Worksheet_Change(ByVal Target As Range)
For Each C In Range("E2:AI50")
    If C.End(xlUp).Value >= Cells(C.Row, 2).Value And C.End(xlUp).Value <= Cells(C.Row, 3).Value Then
    C.Interior.Color = vbYellow
    Else
    C.Interior.Color = xlNone
    End If
Next

End Sub

 

[HeHaHu]

Ik heb wel met Virtual Basic gewerkt, maar dat is denk ik al 8 jaar geleden. Dat is ook mijn probleem, ik werk niet frequent genoeg met excel om er een bepaalde routine in te krijgen. Elke keer moet ik weer terug om alles op te frissen.

Deze code is me toch ook wat te moeilijk. Dan is VO toch voor mij wat makkelijker te doorgronden. Maar ik waardeer de moeite zeer.

 

[Cobbe]

Ik heb bij de code van SjonR wat uitleg gedaan, wellicht dat je ze dan dan wel kan gebruiken:

Private Sub Worksheet_Change(ByVal Target As Range)
 Lrow = Range("A" & Rows.Count).End(xlUp).Row
   For Each c In Range("E2:CR" & Lrow)
    If Cells(Lrow, 2) = "" Or Cells(Lrow, 3) = "" Then Exit Sub
     agendadatum = Cells(1, c.Column): Cells(1, c.Column).Interior.ColorIndex = 33
     startdatum = Cells(c.Row, 2): Cells(c.Row, 2).Interior.ColorIndex = 44
     einddatum = Cells(c.Row, 3): Cells(c.Row, 3).Interior.ColorIndex = 20
      If agendadatum >= startdatum And agendadatum <= einddatum Then
        c.Interior.Color = vbYellow
       Else
        c.Interior.Color = xlNone
      End If
    Next
End Sub

 

[HeHaHu]

Als ik heel begrijpend lees kan ik wel doorgronden wat er staat, maar de bij VO geboden oplossing is voor mijn niveau toch meer geschikt moet ik eerlijk bekennen.

 

[Cobbe]

Geen probleem,
No bad feelings!

 

[HeHaHu]

Bedankt voor het begrip.

Ik weet wel dat ik destijds hele mooie dingen gemaakt heb met VB, maar zoals ik al eerder schreef zit er geen continuïteit in mijn werk met excel. Veel dingen zijn telkens weer pionieren.

Nu ben ik aan het stoeien met VO en als ik alles heb zoals ik het wil hebben zal ik het hier melden en kan dit topic gesloten worden.

 

[HeHaHu]

Kan gesloten worden.

Iedereen hartelijk dank voor de hulp :thumb: