Hallo allen,
Ik heb een listbox gemaakt met daarin de waardes 1 t/m 31 (waardes staan voor de dag van de maand).
Wat ik graag wil is dat bij het openen van de listbox automatisch het dagnummer van vandaag wordt geselecteerd. Nu heb ik de volgende code die werkt, maar lijkt mij erg inefficiënt:
In cel B1 wordt met de volgende formule het dagnummer verkregen.
Etc.
Ook heb ik het volgende geprobeerd, alleen hiermee wordt de verkeerde dag geselecteerd:
Graag zou ik willen weten of dit korter kan en hoe (en hoe ik eventueel de 2e methode kan gebruiken).
Alvast bedankt!
Groet,
Luuk
Ik heb een listbox gemaakt met daarin de waardes 1 t/m 31 (waardes staan voor de dag van de maand).
Wat ik graag wil is dat bij het openen van de listbox automatisch het dagnummer van vandaag wordt geselecteerd. Nu heb ik de volgende code die werkt, maar lijkt mij erg inefficiënt:
In cel B1 wordt met de volgende formule het dagnummer verkregen.
Code:
=dag(vandaag())
Code:
If Range("B1").Value = 1 Then
ListBox1.ListIndex = 0
Else
If Range("B1").Value = 2 Then
ListBox1.ListIndex = 1
Else
If Range("B1").Value = 3 Then
ListBox1.ListIndex = 2
Else
If Range("B1").Value = 4 Then
ListBox1.ListIndex = 3
Ook heb ik het volgende geprobeerd, alleen hiermee wordt de verkeerde dag geselecteerd:
Code:
ListBox1.ListIndex = (Day(Today) - 1)
Graag zou ik willen weten of dit korter kan en hoe (en hoe ik eventueel de 2e methode kan gebruiken).
Alvast bedankt!
Groet,
Luuk