Hallo helpers en oplossers

In mijn vorige topic was ik goed op weg geholpen door Pitufo en SoftAid, waarvoor mijn dank, en excuus Pitufo, dat ik je niet bij naam bedankte in mijn vorige post voor jouw bijdrage Kreeg de kans niet meer dit recht te zetten want er zat een slotje op.

Inmiddels ben ik iets verder gegaan want ik wilde de vorige jaargangen van mijn administratie ook voorzien van de juiste pdf link. ik kwam op de volgende code:

Sub hyperlink()
Dim iRow As Long
Dim x As Long
Dim ws As Worksheet
Set ws = Worksheets("2018")

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For x = 2 To iRow
    If x = iRow + 1 Then Exit For

'=======================================================
'Hier voegen we een hyperlink toe aan het factuurnummer.
'=======================================================
If Month(Cells(x, 4)) = 1 Then
    Maand = "januari"
ElseIf Month(Cells(x, 4)) = 2 Then
    Maand = "februari"
ElseIf Month(ws.Cells(x, 4)) = 3 Then
    Maand = "maart"
ElseIf Month(Cells(x, 4)) = 4 Then
    Maand = "april"
ElseIf Month(Cells(x, 4)) = 5 Then
    Maand = "mei"
ElseIf Month(Cells(x, 4)) = 6 Then
    Maand = "juni"
ElseIf Month(Cells(x, 4)) = 7 Then
    Maand = "juli"
ElseIf Month(Cells(x, 4)) = 8 Then
    Maand = "augustus"
ElseIf Month(Cells(x, 4)) = 9 Then
    Maand = "september"
ElseIf Month(Cells(x, 4)) = 10 Then
    Maand = "oktober"
ElseIf Month(Cells(x, 4)) = 11 Then
    Maand = "november"
ElseIf Month(Cells(x, 4)) = 12 Then
    Maand = "december"
End If

Facnr = Cells(x, 1).Text
Jaar = Year(Cells(x, 4))

ws.Hyperlinks.Add Anchor:=Cells(x, 1), Address:="D:\OneDrive\Documenten\bedrijfs naam\Factuur\Uitgaande\" & Jaar & "\" & Maand & " " & Jaar & " UIT\invoice-" & Facnr & ".PDF"

Next x

End Sub

Hierin ken ik de maand toe en hernoem die dan vanzelf naar de maandnaam in het Nederlands. dit werkt maar ik vroeg mij af of dit wellicht korter kon?

Johan.

Hoi,
Klopt helemaal, RedHead, maar je creëert hier uit een maandnummer een fictieve datum om daar dan "mmmm" uit te halen.
Kan in andere situaties uiteraard nuttig zijn, maar hier is al een echte datum beschikbaar, maand valt dus net als jaar rechtstreeks uit die datum te halen.

@ Johan,
Je zal dus maar één regeltje nodig hebben :
maand = format(Cells(x, 4),"mmmm")

maar hier is al een echte datum beschikbaar

Owwww... dát had ik niet door bij het lezen van de vraag.
Ja, dan kan die inderdaad nóg korter. Tnx voor het rechtzetten.