Typen komen niet overeen

[wheel]

Beste helpers,

In werkblad A werkt de knop wel, maar in Blad 1 (waar alle knoppen staan) krijg ik de melding dat de typen niet overeenkomen.

Wie kan me uitleggen wat ik fout doe?

Bedankt, Wheel

 

[Cobbe]

De verwijzingen kloppen niet als je de knop op een ander blad bezigt:

Sub A()
Application.ScreenUpdating = False
[COLOR="#FF0000"]With Sheets("A")[/COLOR]
fname = [COLOR="#FF0000"].[/COLOR]Range("A1") & " " & [COLOR="#FF0000"].[/COLOR]Range("A3") & " " & Format(DateValue([COLOR="#FF0000"].[/COLOR]Range("B3")), "mmmm yyyy")
Sheets(Array("A", "E")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fname
Application.DisplayAlerts = True
ActiveWorkbook.Close False
[COLOR="#FF0000"]End With[/COLOR]
Application.ScreenUpdating = True
End Sub

 

[ExcelAmateur]

wheel,

Ik heb mijn antwoord verwijderd omdat het antwoord van Cobbe de oplossing is.

 

[wheel]

De oplossing van Cobbe werkt perfect! :thumb:

Thnx... Weer wat geleerd! :thumb:

Edit: toch niet! Ik krijg bij de andere knoppen een foutmelding 400.

 

[wheel]

Bestandje nog even erbij.

 

[Roncancio]

De dubbele punt bij Urenverantwoording hoort er niet te staan.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Of je kan het dubbele punt laten staan en onderstaande gebruiken

fname = .Range("A1") & " " & Left(.Range("A3"), Len(.Range("A3")) - 1) & " " & Format(DateValue(.Range("B3")), "mmmm yyyy")

 

[wheel]

Met dank aan Cobbe voor de voorzet en Roncancio en Warme Bakkertje voor het doelpunt. :thumb: