• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kalender

Status
Niet open voor verdere reacties.

drontenfm

Gebruiker
Lid geworden
13 mrt 2007
Berichten
43
Misschien een hele simpele vraag, maar als ik in excel een kalenderbesturingselement invoer dmv invoegen-> object-> kalenderbesturingselement 11.0
hoe zet ik dan data in die kalender?
 
Dag Drontenfm,

Die kalender is handig om een datum op te zoeken, maar ik denk niet dat-ie te koppelen is. Wel als je een kalender op een Userform zet.

Gegroet,

Axel.
 
Axel,

Klopt, je kunt er niets mee.
 
drontenfm,

Probeer het eens op deze manier:
zet de code's in je persnl.xls werkmap.

zet deze code in een module:

Code:
Sub KalenderWeergeven()
frmKalender.Show
End Sub


en onderstaande in de programmacode van de userform:


Code:
Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    ActiveCell.EntireColumn.AutoFit
    Unload Me
End Sub


Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
    Calendar1.Value = DateValue(ActiveCell.Value)
    Else
    Calendar1.Value = Date
End If
End Sub

vervolgens:
Klik ergens met rechtermuis op een lege plek op de menu balk
1- Kies voor aanpassen
2- kies uit linker rij voor macro's
3- sleep smilie uit het rechtervak naar de lege plek
4- Klik rechts op de smilie
5- verander de naam in kalender
6- macro toewijzen: kies voor "kalenderWeergeven"
7- Knopvlak wijzigen, en kies voor een pictogram
 
drontenfm,

Probeer het eens op deze manier:
zet de code's in je persnl.xls werkmap.

zet deze code in een module:

Code:
Sub KalenderWeergeven()
frmKalender.Show
End Sub

Hij geeft een fout bij frmKalender.Show, dat zegt ie bij foutopsporing als ik de macro start?


en onderstaande in de programmacode van de userform:


Code:
Private Sub Calendar1_Click()
    ActiveCell.Value = Calendar1.Value
    ActiveCell.EntireColumn.AutoFit
    Unload Me
End Sub


Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
    Calendar1.Value = DateValue(ActiveCell.Value)
    Else
    Calendar1.Value = Date
End If
End Sub

vervolgens:
Klik ergens met rechtermuis op een lege plek op de menu balk
1- Kies voor aanpassen
2- kies uit linker rij voor macro's
3- sleep smilie uit het rechtervak naar de lege plek
4- Klik rechts op de smilie
5- verander de naam in kalender
6- macro toewijzen: kies voor "kalenderWeergeven"
7- Knopvlak wijzigen, en kies voor een pictogram
 
drontenfm,


Hij geeft een fout bij frmKalender.Show, dat zegt ie bij foutopsporing als ik de macro start?

Ik neem aan dat je de UserForm al hebt gemaak, geef hem de naam frmKalender.

Is hiermee je probleem opgelost?
 
drontenfm,




Ik neem aan dat je de UserForm al hebt gemaak, geef hem de naam frmKalender.

Is hiermee je probleem opgelost?

Nee, het wil bij mij niet echt lukken, hij blijft een fout geven?

zou je anders misschien het even in een documentje willen zetten?

met vriendelijke groet,
Alexander
 
drontenfm,

Ik heb dit ooit eens uit een boekje gehaald, ben ook geen specialist.
Ik ga achterhalen hoe ik dit gedaan heb. En laat zeker wat weten.
 
drontenfm,

Ik heb dit ooit eens uit een boekje gehaald, ben ook geen specialist.
Ik ga achterhalen hoe ik dit gedaan heb. En laat zeker wat weten.


Ik denk dat je dit bedoelde of niet?
http://www.ozgrid.com/VBA/excel-calendar-dates.htm

Het gaat mij er eigenlijk om hoe er in de kalender een datum gekleurd wordt als ik ergens een datum invoer. Voorbeeld: verwachte opleveringsdatum: wordt dan blauw geselecteerd in de kalender op de datum die ik in de cel van verwachte opleveringsdatum invoer.

gr,
Alexander
 
drontenfm,

Inderdaad zoiets bedoelde ik.
Maar je wilt toch niet in die kalender datums gaan kleuren neem ik aan.
Dat zal zeker niet lukken, of wat bedoel je precies.
 
drontenfm,

Inderdaad zoiets bedoelde ik.
Maar je wilt toch niet in die kalender datums gaan kleuren neem ik aan.
Dat zal zeker niet lukken, of wat bedoel je precies.


Wat ik wil is eigenlijk dat ik op bijv tabblad 1 ee datum invoer onder hte kopje oplever datum en dat die in de kalender op de 2e pagina gemarkeerd wordt, of dat ik hem zelf met een kleurtje kan markeren.

En zo nog een paar data's als installatie datum enz.

Is dat ook mogelijk?

Wat ook mogelijk is, is het zelf maken van een kalender, het enige nadeel daar van is dat als je um later nog een keer nodig hebt dat je dan weer die hele kalender moet gaan veranderen, vanwege de maand en het jaar.
 
anders gewoon ff heel simpel, dan ben ik alweer tevreden.

Als ik in een cel de datum van vandaag, maar dan precies een maand later wil hoe doe ik dan? =VANDAAG()+
en dan weet ik het niet.

Misschien dat iemand mij erbij kan helpen?
 
Formules zijn niet mijn sterkste kant, maar dit doet het trucje:
Code:
=DAG(VANDAAG())&"-"&MAAND(VANDAAG())&"-"&JAAR(VANDAAG())
 
Laatst bewerkt:
Voor de volledigheid.

Kon deze functie niet vinden op Excel (gisteren een totale herinstall van pc).
Ben er nu achter dat je voor deze de het Analysis ToolPak nodig hebt.

Ga naar: Extra / invoegtoepassingen / en vink Analysis ToolPak aan.

Vul nu de functie in, met cel eigenschappen op datum natuurlijk.

Heb ik weer wat geleerd.

Thanks.
 
Formules zijn niet mijn sterkste kant, maar dit doet het trucje:
Code:
=DAG(VANDAAG())&"-"&MAAND(VANDAAG())&"-"&JAAR(VANDAAG())


Het is al gelukt, het was slechts een kleine aanpassing in de formule:

Code:
=DAG(VANDAAG())&"-"&MAAND(VANDAAG())[B]+1[/B]&"-"&JAAR(VANDAAG())

igg bedankt voor de moeitje dan is deze topic opgelost:thumb:
 
Voor de formule van Eusebio: zie post nr. 17.

Voor de volledigheid.

Kon deze functie niet vinden op Excel (gisteren een totale herinstall van pc).
Ben er nu achter dat je voor deze de het Analysis ToolPak nodig hebt.

Ga naar: Extra / invoegtoepassingen / en vink Analysis ToolPak aan.

Vul nu de functie in, met cel eigenschappen op datum natuurlijk.

Heb ik weer wat geleerd.

Thanks.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan