Dagplanner dmv blokjesrooster

[Excel gebruiker]

Heren en dames,

Wie kan mij helpen aan de formule(s) om hetvolgende te realiseren:
Ik wil een dagelijks rooster maken mbv tijden en data uit een afsprakenlijst. De volgorde van de afspraken staat op alfabetische volgorde op kindernaam.
De gegevens van datum, aanvangstijd, eindtijd en soort moeten tot uiting komen dmv gekleurde blokjes in het rooster.
In cel A4 van de planner komt =Vandaag(), zodat datums continu opschuiven.

Gaarne enige input.

Alvast bedankt

 

[JeanPaul28]

Dit is wel een uitdagend vraagstuk, hier kunnen wel veel fouten gemaakt worden , vb uren kunnen overlappen, ik ga er van uit dat dit van een persoon is

 

[Excel gebruiker]

Hallo Jean-Paul

Ik probeer dit voor mijn vrouw in elkaar te breien. Zij is kinder- en jeugdtherapeut.
De ureninvoer ga ik zelf doen. Het is niet de bedoeling dat uren op dezelfde dag elkaar gaan overlappen.

Ton

 

[HSV]

Verruim het bereik in de gedefiniëerde namen.

 

[robdgr]

@Harry: iets geleerd van je oplossing

@Ton: Opgelost met vert.zoeken. Je kunt drie afspraken per dag maken. De kleuren kun je met VO oplossen.

 

[sylvester-ponte]

Als je ook VBA wil gebruiken, is het mogen lijk om in je rooster cellen te kleuren
en dan automatisch je agenda in te laten vullen .
dan hoef je alleen de naam nog in te vullen.

dus je selecteert cellen in je rooster en daarna klik je op consult of zo en de rest gaat van zelf ( op de naam na )

laat weten of je dat wil aub
groet sylvester

 

[Excel gebruiker]

@ Harry , Rob en Sylvester.

Hartelijk dank voor jullie input!

Ik heb uiteindelijk gekozen voor Harry zijn oplossing. Werkt UITMUNTEND!!!
Heb zelf aantal "soorten" uitgebreid en rooster uitgebreid tot 3 weken.

Nog 1 aanvullende vraag van mijn vrouw,
is het mogelijk dat als je in het rooster op een afspraak klikt (aanwijst), automatisch de naam van het kind tevoorschijn komt?

Alvast bedankt.

Ton

 

[sylvester-ponte]

hallo Ton
dat wordt dan waarschijnlijk met VBA
laat eens zien hoe de uitbreiding is geworden
dat werkt makkelijker
groet sylvester

 

[Excel gebruiker]

Hallo Sylvester,

Dit is momenteel de laatste versie.

Mvg, Ton

Bekijk bijlage Planner_aangepast.xlsx

 

[HSV]

Ton,

Dubbelklik eens op de eerste cel van een afspraak (linker cel).

 

[sylvester-ponte]

Harry, aan het eind van je befor.... sub

moet je nog "Cancel = True" toevoegen

groet sylvester

 

[HSV]

Ik heb de code in het bestand iets anders in elkaar gestoken Sylvester.

 

[sylvester-ponte]

Harry,
ik moet eerst dubbel klikken en daarna nog een keer klikken om de naam te zien.
als je

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, firstaddress As Variant
Set c = Sheets("Afspraken").Columns(3).Find(CDate(Cells(Target.Row, 1)), , xlValues, xlWhole)
 If Not c Is Nothing Then
    firstaddress = c.Address
Do
  If CDate(c.Offset(, 2)) Like CDate(Cells(3, Target.Column)) Then
With Label1
    .Visible = True
    .Top = Target.Top
    .Left = Target.Left
    .BackColor = &H1&
    .ForeColor = &HFFFFFF
    .Caption = c.Offset(, -1)
    End With
   Exit Do
  End If
 Set c = Sheets("Afspraken").Columns(3).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
  End If
 [B][COLOR="#FF0000"] Cancel = True[/COLOR][/B]
End Sub

de rode tekst to voegt hoeft dat extra klikken niet meer
groet sylvester

 

[HSV]

Vreemd.

Daar heb ik geen last van.
Ik dubbelklik één keer en de label staat er.
Maar als het zo is opgelost bij jou en misschien anderen ook, dan is dat natuurlijk proof bestendig (beter).
Alleen begrijp ik niet waarom er een 'Cancel = True' in moet (beforedoubleclick, cancel as boolean).
De procedure is standaard 'False' als de code wordt uitgevoerd, dus zou ik verwachten dat het bovenaan de code moet staan.
Tenminste als ik de 'HELP' van Excel goed beredeneer.
Uiteraard bedankt voor je reactie Sylvester.

 

[JeanPaul28]

De vba code werkt niet in excel 2003, krijg foutmelding
Kan de ontwerpmodus niet afsluiten omdat besturingselement label 1 niet kan worden gemaakt

 

[HSV]

Speciaal voor jou Jean-Paul, en alle anderen die net als ik jaren achter lopen (Excel 2007).

 

[JeanPaul28]

Bedankt Harry deze werkt perfekt met toevoeging van de rode tekst van sylvester

Cancel = True

 

[Excel gebruiker]

@Harry, Sylvester.

Bedankt dat jullie zoveel tijd in dit projectje willen stoppen.

@Harry.
Omdat je de code aangepast hebt en in rij 3 van "rooster" de seconden hebt weggehaald, wordt een afspraak van een kwartier, weergegeven als een afspraak van een half uur.
Als ik vervolgens overal weer een seconde "achterplak" dan werkt het weergeven niet meer.

Als ik de VBA code in mijn originele "rooster" plak dan krijg ik een compileerfout dat een variabele niet is gedefinieerd.

Private Sub Worksheet_SelectionChange(ByVal Target As Range
With Label1
.Visible = False
.Caption = ""
End With
End Sub

Kun je de code niet zo aanpassen dat het in mijn origineel geposte bestand werkt?

Met vriendelijke groet,

Ton

 

[sylvester-ponte]

deze werkt met de notetext van de cellen als je er boven staat komt de naam tevoorschijn je hoeft niet te klikken

Bekijk bijlage Planner_aangepast(met notetext.xlsm

groet sylvester

 

[Excel gebruiker]

Hallo Sylvester,

Hoe heb je dat voor elkaar gekregen? Als ik de programmacode in mijn originele "rooster" kopieer, dan gebeurt er niets.
Wat moet ik nog meer aanpassen?

Met vriendelijke groet, Ton