Excel: Set filnavn til indholdet af en celle

Sub GemSheet2()
Application.ScreenUpdating = False
DisplayAlerts = False
  Sheets(2).Visible = True
    Sheets(2).Activate
    Navn = Sheets(1).[C5]
    ActiveWorkbook.SaveAs Filename:="C:\data\" & Navn & ".txt", FileFormat:=xlText, _
        CreateBackup:=False
        Sheets(2).Visible = False
        Application.ScreenUpdating = False
    DisplayAlerts = False
  Sheets(1).Activate
End Sub

vi skal nok lige have en fejl fangning med

Sub GemSheet2()
Application.ScreenUpdating = False
On Error Resume Next
DisplayAlerts = False
  Sheets(2).Visible = True
    Sheets(2).Activate
    Navn = Sheets(1).[C5]
    ActiveWorkbook.SaveAs Filename:="C:\data\" & Navn & ".txt", FileFormat:=xlText, _
        CreateBackup:=False
        Sheets(2).Visible = False
        Application.ScreenUpdating = False
    DisplayAlerts = False
  Sheets(1).Activate
End Sub

Hej Kabbak,

Tak for hjælpen - super!

du får et svar ;-))

tkongsted:

Når du har fået et svar du kan bruge, skal du acceptere og derved tildele points til ham/hende der har svaret, så spørgsmålet ikke længere er "åbent"

marker mit navn og tryk accepter, hvis det virkede