Maand wijzigen

[Atwist]

Hallo

Ik wil graag met een commandbuton de namen van de maand in een label veranderen.
Dus als ik op de button druk dat deze verspringt van januari naar februari enz. en bij december weer naar januari.
Kon hier op het forum niet zo gouw iets vinden terwijl ik weet dat ik het al eens gezien heb.

Heeft iemand hiervoor een code??

 

[edmoor]

In een Userform zou je dat zo kunnen doen:

Private Sub CommandButton1_Click()
    Select Case LCase(Label1.Caption)
        Case "januari"
            Label1.Caption = "februari"
        Case "februari"
            Label1.Caption = "maart"
        Case "maart"
            Label1.Caption = "april"
        Case "april"
            Label1.Caption = "mei"
        Case "mei"
            Label1.Caption = "juni"
        Case "juni"
            Label1.Caption = "juli"
        Case "juli"
            Label1.Caption = "augustus"
        Case "augustus"
            Label1.Caption = "september"
        Case "september"
            Label1.Caption = "november"
        Case "november"
            Label1.Caption = "december"
        Case "december"
            Label1.Caption = "januari"
    End Select
End Sub

Het kan veel mooier en met minder code maar dit is lekker leesbaar

 

[Atwist]

Ook deze werkt mooi en lekker leesbaar voor een leek als ik.

Mijn dank hiervoor ED:thumb:

 

[edmoor]

Graag gedaan en fijne jaarwisseling gewenst

 

[Atwist]

Jij ook een fijne jaarwisseling gewenst

 

[alphamax]

Private Sub CommandButton1_Click()
    With Application
        CommandButton1.Caption = .GetCustomListContents(4)((.Match(CommandButton1.Caption, .GetCustomListContents(4), 0) Mod 12) + 1)
    End With
End Sub

gebruik alleen code die je zelf begrijpt of kan analyseren

 

[Atwist]

Nog een kleine vraag, heb de code in mijn bestand verwerkt en dat werkt ook goed.
Maar nu heb ik onder deze knop nog twee regels staan en die werken nu niet.

Private Sub CommandButton15_Click()
    Select Case LCase(Label250.Caption)
        Case "januari"
            Label250.Caption = "februari"
        Case "februari"
            Label250.Caption = "maart"
        Case "maart"
            Label250.Caption = "april"
        Case "april"
            Label250.Caption = "mei"
        Case "mei"
            Label250.Caption = "juni"
        Case "juni"
            Label250.Caption = "juli"
        Case "juli"
            Label250.Caption = "augustus"
        Case "augustus"
            Label250.Caption = "september"
        Case "september"
            Label250.Caption = "november"
        Case "november"
            Label250.Caption = "december"
        Case "december"
            Label250.Caption = "januari"
    End Select
    Sheets.Add , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Label250.Caption
End Sub

Afzonderlijk werken de stukken codes wel maar achter elkaar niet terwijl mijn gevoel zegt dat het wel zou moeten werken.

 

[edmoor]

Wat gaat er niet goed dan?
Met die 2 extra regels werkt het hier wel goed.
Er wordt dan een extra tabblad aangemaakt die als naam de geselecteerde maand krijgt.

 

[Atwist]

EUH vergeten om al een naam van de maand erin te zetten en kwam er net achter dat de twee regels boven aan moeten staan.

Private Sub CommandButton15_Click()
    Sheets.Add , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Label250.Caption
    
     Select Case LCase(Label250.Caption)
        Case "januari"
            Label250.Caption = "februari"
        Case "februari"
            Label250.Caption = "maart"
        Case "maart"
            Label250.Caption = "april"
        Case "april"
            Label250.Caption = "mei"
        Case "mei"
            Label250.Caption = "juni"
        Case "juni"
            Label250.Caption = "juli"
        Case "juli"
            Label250.Caption = "augustus"
        Case "augustus"
            Label250.Caption = "september"
        Case "september"
            Label250.Caption = "november"
        Case "november"
            Label250.Caption = "december"
        Case "december"
            Label250.Caption = "januari"
    End Select
    
End Sub

Dus wederom een fout aan deze kant.

Sorry

 

[edmoor]

Wie geen fouten maakt probeert het niet hard genoeg

 

[Atwist]

waarheid als een koe

 

[edmoor]

De oplossing van alphamax is trouwens ook een mooie.
Daarmee kun je het bijvoorbeeld ook taal onafhankelijk maken.
Maar dan moet je al wat meer in VBA thuis zijn.

 

[Atwist]

Ik vind de iets uitgebreidere codes wat makkelijker te begrepen.
Kom hier in het forum ook weleens mooie oplossingen tegen maar die begrijp ik dan niet.

 

[alphamax]

gebruik alleen code die je zelf begrijpt of kan analyseren

daarom zijn er meerdere oplossingen goed beginner, gevorderde, expert

 

[Atwist]

Wijze woorden Alphamax

 

[pasan]

Omdat ik er gister mee begonnen was hier mijn insteek

bij het openen van de userform geef de label een maand

Label1 = Format(Date, "mmmm")

ik dacht aan een spinbutton om de maand aan te passen'

Private Sub SpinButton1_SpinDown()
Dim MyDate As Date
i = Label1
MyDate = "1" & "/" & i & "/" & "2013" 'de dag en jaartal aanduiding is fictief

k = DateSerial(Year(MyDate), Month(MyDate) - 1, Day(MyDate))  'met behulp van MyDate kun je nu rekenen met de maand van label1
Label1 = Format(k, "mmmm")
End Sub

Private Sub SpinButton1_SpinUp()
Dim MyDate As Date
i = Label1
MyDate = "1" & "/" & i & "/" & "2013" 'de dag en jaartal aanduiding is fictief

k = DateSerial(Year(MyDate), Month(MyDate) + 1, Day(MyDate))  'met behulp van MyDate kun je nu rekenen met de maand van label1
Label1 = Format(k, "mmmm")
End Sub

 

[Atwist]

Dankje Pasan,

Ik ga eens proberen om dit te begrijpen, eerlijkheidshalve moet ik wel zegen dat ik de oplossing van Edmoor al heb toegepast

Maar toch bedankt voor je bijdrage.

En nog de beste wensen.

 

[pasan]

Mijn voorbeeld is geen moetje hoor, uiteraard niet
Maar omdat ik er al mee bezig was geweest heb ik het er op gezet :d

En ook de beste wensen