Makro für Datei Speichern

wie kann ich folgendes Lösen:

Ich möchte eine Mappe folgendermaßen speichern:

Bei Klick auf ein Button soll eine Box aufgehen mit der Frage "Dateiname". Wenn der Name eingegeben ist soll unter einem vorgegebenen Pfad Z. B. C:\Eigene Dateien wird später auf ein anderes Verzeichniss umgeleitet)ohne weitere Rückfrage mit diesem Namen gespeichert werden.
Wenn kein Name eingegeben ist soll die Meldung kommen:

Kein Speichername eingegeben

Mit dem Aufzeichen per Recorder bin ich gestern nicht weiter gekommen.

Danke im vorraus.

Gruß Heinz

Versuchs doch mal so:

Sub Save()
  Dim sInput As String
  
  sInput = InputBox("Dateiname eingeben:", "Pfad")
  If sInput = "" Then
     MsgBox "Kein Speichername eingegeben!", vbExclamation, "Info"
     sInput = InputBox("Dateiname eingeben:", "Pfad")
  Else
    'Hier deine Prozedur bzw. dein Speichern eintragen z.B
     ActiveWorkbook.SaveAs ("C:\Eigene Dateien\" & sInput)
  End If
End Sub

Ich hoffe ich konnte Dir etwas weiterhelfen
Gruss Markus

Re: Makro für Datei Speichern
von: Heinz
Geschrieben am: 01.07.2002 - 10:22:13

Hallo Markus,

danke.

Ich bin gerade im Unterricht und kann dein Makro nicht ausprobieren. Wie es scheint ist es das was ich gesucht habe. Wenn es nicht so klappt melde ich mich heute abend wieder.

Nochmals Danke

Heinz