VBA code korter maken meerdere if else statements

[Luuk12345]

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.

=dag(vandaag())

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

Etc.

Ook heb ik het volgende geprobeerd, alleen hiermee wordt de verkeerde dag geselecteerd:

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

 

[edmoor]

En deze?

ListBox1.ListIndex = Day(Date) - 1

Of:

ListBox1.ListIndex = Range("B1") -1

 

[Luuk12345]

Fantastisch! Het werkt.

Functie werkt voor aparte dag en maand listbox. Het selecteren voor het jaar heb ik op onderstaande manier opgelost.

ListBox1.ListIndex = Day(Date) - 1
ListBox2.ListIndex = Month(Date) - 1
ListBox3.ListIndex = Year(Date) - 2018

Bedankt!