Beste oplossers,
Ik heb een sjabloon voor een risicoanalyse van chemische producten en zou graag hebben dat de gebruiker zelf niet moet ingeven wat de naam van het bestand is maar dat het afhankelijk is van wat er in een bepaalde cel staat (A3).
In bijlage vind je wat ik van plan was maar opslaan lukt niet.
alvast bedankt om er eens naar te kijken,
dizzl
Macro wordt niet uitgevoerd in deze versie.
Dit is de code die ik in gedachte had:
Sub WijzigBestandsnaam()
'Haal huidige bestandsnaam op
Dim huidigeNaam As String
huidigeNaam = ThisWorkbook.Name
'Haal de waarde uit A3
Dim A3 As String
A3 = ThisWorkbook.Sheets("Blad1").Range("A3").Value
Dim opgekuisteA3 As String
Dim teVerwijderenTekens As String
' Te verwijderen tekens
teVerwijderenTekens = "%/\"
' Verwijder de ongewenste tekens
opgekuisteA3 = A3
Dim i As Integer
For i = 1 To Len(teVerwijderenTekens)
opgekuisteA3 = Replace(opgekuisteA3, Mid(teVerwijderenTekens, i, 1), "_")
Next i
'Stel de nieuwe naam in
Dim nieuweNaam As String
nieuweNaam = opgekuisteA3 & ".xlsx"
MsgBox nieuweNaam
'Wijzig de naam van het bestand
ThisWorkbook.SaveAs nieuweNaam
End Sub