Als SaveAs al bestaat dan, With Application.Dialogs(xlDialogSaveAs)

[HWV]

Niet de mooiste oplossing

Sub tst1()

Dim Naam
Set Naam = Worksheets("Blad1").Range("E7")

Dim Plaats
Set Plaats = Worksheets("Blad1").Range("F9")

Dim Debnummer
Set Debnummer = Worksheets("Blad1").Range("E6")

Dim Mydate
    Mydate = Date
Dim Datumtekst
    Datumtekst = CStr(Mydate)

  With Application.FileSearch
    .LookIn = "H:\Test"
    .Filename = "" & Naam & " " & Plaats & " " & Debnummer & " " & Datumtekst & "(*.xls"
    ActiveWorkbook.SaveAs .LookIn & "\" & Replace(.Filename, "*", .Execute & ")")
  End With
End Sub

Beste SNB,

Ik heb de volgende oplossing gevonden voor het geen dat voor mij de beste oplossing is
Het zal denk ik anders kunnen maar dat kreeg ik niet voor elkaar om dat hier in te verwerken.

Groet HWV

 

[snb]

Dit is toch wel het nivo les 1: precies typen:

ipv
.filename="& Range("E7") & " " & Range("F9") & " " & Range("E6") & Format(Date, " dd-mm-yyyy") &(*.xls"

.filename=Range("E7") & " " & Range("F9") & " " & Range("E6") & Format(Date, " dd-mm-yyyy") & "(*.xls"

omdat ik niet weet wat er in cel E7, F9 en E6 staat kan ik niet zeggen of deze tekstreeks juist is.