Opslaan als macro in excel

[Flawless]

Hallo,

Ik heb het volgende probleem, ik wil in excel een macro maken die het bestand als de tekst uit cel C1 opslaat. nu heb ik het volgende al:

Sub OpslaanAlsC1()

Bestandsnaam$ = "W:\LBT\" + Str(Range("c1").Value) + ".xls"
ActiveWorkbook.SaveAs Bestandsnaam$

End Sub

Deze werkt echter alleen al de content van cel C1 uit getallen bestaat..

wie weet hier een oplossing voor?

Met vriendelijke groet,
Daniël AkA Flawless

 

[Wigi]

Dit zou moeten werken:

Sub OpslaanAlsC1()

dim Bestandsnaam As String

Bestandsnaam = "W:\LBT\" & CStr(Range("C1").Value) & ".xls"
ThisWorkbook.SaveAs Bestandsnaam

End Sub

Wigi

 

[Flawless]

Dit zou moeten werken:

Sub OpslaanAlsC1()

dim Bestandsnaam As String

Bestandsnaam = "W:\LBT\" & CStr(Range("C1").Value) & ".xls"
ThisWorkbook.SaveAs Bestandsnaam

End Sub

Wigi

Bedankt werkt perfect:thumb:, ik was er inmiddels al achter gekomen dat dmv "Str" je alleen maar cijfer kan gebruiken maar toen ik die weghaalde kon ik geen cijfer meer gebruiken

nogmaals bedankt:thumb:

Grtz
-Flawless

 

[Wigi]

Zet de vraag nog op opgelost aub.

 

[Flawless]

Zet de vraag nog op opgelost aub.

ohja srry, ben nieuw op dit forum

-Flawless

 

[Wigi]

Geen probleem, het dringt niet

 

[Bart Hol]

Macro opslaan als in excel

Hallo,

Ik zit met een soortgelijk probleem.
Ik probeer een macro te creëeren om een excel bestand op te slaan op een specifieke locatie en met een bestandsnaam die is samengesteld uit meerdere velden.

Aangezien ik niet echt (of echt niet) bekend ben met macro's, heb ik getracht de bovenstaande code over te nemen.
De macro loopt nu steeds vast en er wordt aangegeven dat "ThisWorkbook.SaveAs Bestandsnaam" fout is.

Wat te doen?

 

[Wigi]

ThisWorkbook.SaveAs Bestandsnaam

Bestandsnaam is in deze code een variabele, dus komt niet tussen ""

Heb je in de vorige code Bestandsnaam juist gevuld?

 

[Bart Hol]

Wat het ook was, het is nu opgelost en het systeem werkt.
Hartelijk bedankt
Ik ga verder naar de volgende actie.

 

[koogert]

al opgelost