Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
Sub KalenderWeergeven()
frmKalender.Show
End Sub
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
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
Hij geeft een fout bij frmKalender.Show, dat zegt ie bij foutopsporing als ik de macro start?
drontenfm,
Ik neem aan dat je de UserForm al hebt gemaak, geef hem de naam frmKalender.
Is hiermee je probleem opgelost?
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.
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.
=zelfde.dag(vandaag();1)
=zelfde.dag(vandaag();1)
=DAG(VANDAAG())&"-"&MAAND(VANDAAG())&"-"&JAAR(VANDAAG())
Formules zijn niet mijn sterkste kant, maar dit doet het trucje:
Code:=DAG(VANDAAG())&"-"&MAAND(VANDAAG())&"-"&JAAR(VANDAAG())
=DAG(VANDAAG())&"-"&MAAND(VANDAAG())[B]+1[/B]&"-"&JAAR(VANDAAG())
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.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.