if en else constructie

[musti]

Ik kamp met de volgende probleem.

ik heb de volgende velden Maand,Datum, Vervaldatum

Wanneer ik in het keuzelijst van Maand het maand "Januari" kies moet het dan de velden Datum met "1-1" en de veld "Vervaldatum" met 1-2 vullen.

Hoe precies moet ik he tin vba programmeren.

Tot zover heb ik het volgende geprobeerd.

" If Maand = "Januari" Then
Datum = 1-1

enz.

 

[dneirynck]

select case of switch. Weet niet precies hoe het in VBA noemt:

http://www.ozgrid.com/VBA/select-case.htm

 

[musti]

select case of switch. Weet niet precies hoe het in VBA noemt:

http://www.ozgrid.com/VBA/select-case.htm

wil het gewoon simpel houden.

if else constructie

bv zoiets


if maand = januari then
datum = 1-1

elseif maand = februari then
datum = 1-2

enz.(niet met case)

de velden maand,datum en vervaldatum staan naast mekaar in het formulier. het zijn allemaal keuzelijsten met invoervakken. je kan ze ook selecteren maar het wordt liefts gewenst om het te automatiseren, zodoende minder "klikjes"te voorkomen.

 

[dneirynck]

Ik begrijp niet dat je hier niet mee wilt werken, select case is het vervangmiddel van

if veld == "januari" then
else if veld...
else if
else if
....
end if

Is toch gemakkelijker en komt op dezelfde functionaliteit?

select case veld
case januari
case feb..

 

[musti]

Ik begrijp niet dat je hier niet mee wilt werken, select case is het vervangmiddel van

if veld == "januari" then
else if veld...
else if
else if
....
end if

Is toch gemakkelijker en komt op dezelfde functionaliteit?

select case veld
case januari
case feb..

kunt u mij een voorprofje laten zien met codes en al ik ben startend amateur

 

[dneirynck]

google is your friend...

Select Case Range("A1").Value

Case 100

Range("B1").Value = 50

Case 150

Range("B1").Value = 40

Case 200

Range("B1").Value = 30

Case 350

Range("B1").Value = 20

Case 400

Range("B1").Value = 10

End Select

 

[musti]

google is your friend...

Select Case Range("A1").Value

Case 100

Range("B1").Value = 50

Case 150

Range("B1").Value = 40

Case 200

Range("B1").Value = 30

Case 350

Range("B1").Value = 20

Case 400

Range("B1").Value = 10

End Select

heel erg bedankt