macro plaatst aanhalingstekens bij dialogs(xldialogsaveas).show

[knalkanarie]

Hoi,

Ik heb een klein probleem in mijn macro met de volgende code:

Application.Dialogs(xlDialogSaveAs).Show _
    Range("c7") + " " + Range("a1"), xlOpenXMLWorkbook

Deze code kan worden aangeroepen via een knop op het werkblad. De bedoeling is dat dat het dialoogvenster "opslaan als" wordt geopend (zodat evt van map kan worden gewisseld) en excel zelf al de standaard naam invult. In C7 staat het factuurnummer en in A1 de naam van de klant.

In de praktijk echter, plaatst excel aanhalingstekens rondom het geheel. de bestandsnaam wordt dan iets als "2008 1234 Naam_van_bedrijf". Niet een heel groot probleem om die aanhalingstekens weg te halen, maar wel lastig. Normaal gesproken kan dan een 'enter' volstaan, maar nu is het dus nog extra werk.

Weet iemand hiervoor een oplossing? Ik heb al gezocht op google en verschillende forums, maar kon geen oplossing vinden. Misschien heb ik een belangrijk forum gemist of maak ik een beginnersfout. Ben heel benieuwd.

groeten en vast bedankt voor de reactie.

 

[eenreus]

Probeer eens & ipv +

Range("c7") & " " & Range("a1")

 

[markboots]

dit zou moeten werken

Sub NaamBestand()
NaamBestand = Range("C7").Text & " " & Range("a1").Text
Application.Dialogs(xlDialogSaveAs).Show _
NaamBestand
End Sub

 

[Warme bakkertje]

Variabele steeds benoemen en oppassen met naamgeving( sub en variabele zelfde naam zorgt dikwijls voor problemen), zo doet hij het helemaal

Sub Naambestand()
Dim NewName As String
NewName = [C7] & " " & [A1] & ".xls"
Application.Dialogs(xlDialogSaveAs).Show NewName
End Sub

En een prettig jaareinde toegewenst

Mvg

Rudi