Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Abspeichern Excel Datei mit Makro





Frage

Hallo Zusammen. Folgendes Problem stellt sich mir: Ich möchte gerne mit Hilfe eines Makros eine Excel Datei unter einem bestimmte Namen speichern, wobei sich der Dateinamme zum einen aus einem "Buchstabennamen" und einer 12 stelligen Zahl zusammensetzt. Diese Daten des Dateinamens sind im Excelblatt enthalten und "steht" immer auf den selben Feldern. Ich will nun, dass das Makro eien Automatische Speicherung durchführt, wobei "es" sich den Namen & die Zahl aus den Feldern "zieht" und als Dateinamen verwendet. Ist sowas möglich? Vielen Dank an Alle! Gruß

Antwort 1 von DukeNT

Hi excel,
angenommen der Dateiname unter dem gespeichert werden soll steht in Zelle A1 auf Blatt1
Kopiere folgenden Code in ein Modul:

Sub speichern()
Pfad = "c:\Test\"
Name = Sheets(1).Cells(1, 1)
Endung = ".xls"
ActiveWorkbook.SaveAs Pfad & Name & Endung
End Sub

Den Speicherpfad mußt du noch anpassen.
Gruß Niels