Microsoft Excel

Herbers Excel/VBA-Archiv

Datei Speichern, Dateiname aus letzter Zelle

Betrifft: Datei Speichern, Dateiname aus letzter Zelle von: Marco Wiegand
Geschrieben am: 31.07.2014 08:24:36

Hallo,

ich habe noch einmal eine Frage:

In der Spalte B habe ich ein Datum stehen. ich möchte nun aus der letzten Zelle der Spalte B das Datum als Dateinamen ohne Punkte als txt-Datei verwenden, z. B. 30072014.txt

Könntet mir noch einmal Jemand behilflich sein?

DANKE
LG Marco

  

Betrifft: AW: Datei Speichern, Dateiname aus letzter Zelle von: MCO
Geschrieben am: 31.07.2014 09:26:44


Moin!
Probier das mal:

Sub save_as()

Dim dat_name As String
Dim ordner As String

ordner = "C:\temp\"     'anpassen
dat_name = Replace(Range("B" & Rows.Count).End(xlUp).Value, ".", "")
ActiveWorkbook.SaveAs ordner & dat_name
End Sub

'Gruß, MCO


 

Beiträge aus den Excel-Beispielen zum Thema "Datei Speichern, Dateiname aus letzter Zelle"