Met VBA een maand aftrekken van een maand

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedenavond allen,

Zit met een vraagje, hoe kan men van een maand (bv September) een maand aftrekken, waarbij de uitkomst Augustus wordt.

Dit in VBA en niet met een cel formule.

Alvast many thanks

Vr. Gr.

Dutch
 
onder andere kan het zo
Code: 
a = MonthName(Month(Now()) - 3)
let wel dat de uitkomst als String weergegeven wordt waarmee je niet direct kunt rekenen (ik weet niet of dat de bedoeling was uiteraard)
 
Laatst bewerkt:
Hoi Pasan, mooie maar

altijd maar :-( dit is een maand die men van de huidige datum neemt.

maar zit er ook de mogelijkheid in om van September als vorige maand Augustus te maken?

en met VBA de eerste letter een hoofdletter te maken?
deze laatste al gevonden.
Code: 
.Range("D11").Value = UCase(Left(.Range("D11").Value, 1)) & StrConv(Right(.Range("D11").Value, Len(.Range("D11").Value) - 1), vbLowerCase)
 
Laatst bewerkt:
Code: 
a = MonthName(Month(DateValue("1-9-2019")) - 1)

of met hoofdletter
Code: 
a = StrConv(MonthName(Month(DateValue("1-9-2019")) - 1), vbProperCase)
 
Laatst bewerkt:
ok is met een Datum, maar ook de mogelijkheid van een maandnaam?
Dus September zou Augustus moeten worden
Dus basis de naam September

mooie, die tweede is korter

thanks
 
Denk dat dat moeilijk wordt, dus probeer het met de huidige datum.

Bedankt voor de hulp
Fijne week maar weer..

Vr. Grt.

Dutch
 
Code: 
maandnaam = "september"
aa = StrConv(MonthName(Month(DateValue("01-" & maandnaam & "-1900")) - 1), vbProperCase)
 
Thanks Pasan dit is hem..

Kan beidde gebruiken, maar deze is het mooist..

Zal hem als opgelost zetten.

Mooie week weer
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan