Supportnet / Forum / Tabellenkalkulation

Hallo....... wie schon gesagt bin ich Excel-Neuling. Ich brauch schon wieder Hilfe. Ich möchte eine Exceldatei speichern mit Hilfe eines Makros, so das ein wenig PC-Erfahrender einfach nur auf einem Button drücken muss. Das Laufwerk ist immer das Gleiche nur die Datei muss bei jedem neuen Speichern in ein neuen Ordner gespeichert werden. Der Makro soll also dann nach dem Namen der Datei fragen und wie der Ordner heissen soll, und dann die Datei in den soeben angelegten Ordner speichern. Vielen Dank für Eure Hilfe Gruß Elhamplo

Hi Elhamplo ,

kopiere nachfolgendes Makro in ein StandardModul und starte es über eine Schaltfläche.

Sub Datei_in_neuen_Ordner_speichern()
Dim Verzeichnisname As String, Dateiname As String
Verzeichnisname = InputBox("Bitte geben Sie den Verzeichnisnamen, in dem die Datei gespeichert werden soll, an.", "Verzeichnisnameneingabe")
If Verzeichnisname = Empty Then Exit Sub
On Error Resume Next
MkDir "C:\" & Verzeichnisname
Dateiname = InputBox("Bitte geben Sie den Dateinamen, unter dem die Datei gespeichert werden soll, an.", "Dateinameneingabe")
On Error Resume Next
If Dateiname = Empty Then Exit Sub
ActiveWorkbook.SaveAs Filename:="C:\" & Verzeichnisname & "\" & Dateiname & ".xls"
End Sub

Bei dem Makro wird nach Eingabe eines textes in der 1. InputBox ein verzeichnis auf Platt C angelegt. Nachdem in der 2. InputBox ein Dateiname eingegeben wurde, wird die Datei in dem neuen Verzeichnis unter dem neuen Namen abgespeichert.

Du musst in dem Makro in der Zeile

ActiveWorkbook.SaveAs Filename:="C:\" & Verzeichnisname & "\" & Dateiname & ".xls"

eventuell noch die Plattenbezeichnung anpassen, wenn das neue Verzeichnis woanders als auf Platte C erstellt werden soll.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hey Coros,

Super, danke , genau das brauchte ich.

Vielen vielen Dank!!!!!!!!!!!!

Gruß Elhamplo

• Automatisches Datum in gespeicherten Briefen (Word)