Hallo,
gibt es eine Möglichkeit,
den Dateinamen einer Exceldatei mit einer Zelle der selben Exceldatei zu verknüpfen?
Ich möchte, daß man in eine Zelle einen Namen einträgt,
und dieser Name dann automatisch beim abspeichern oder versenden der Datei als Dateiname benutzt wird!
Geht das?
Wenn ja, wie?
Gruß,
Rudolf
Hallo Rudolf
gibt es eine Möglichkeit,
den Dateinamen einer Exceldatei mit einer Zelle der selben
Exceldatei zu verknüpfen?
Ich möchte, daß man in eine Zelle einen Namen einträgt,
und dieser Name dann automatisch beim abspeichern oder
versenden der Datei als Dateiname benutzt wird!
Genau das macht folgendes Makro:
Option Explicit
' WorkBook wird mit dem Namen des aktiven Zellinhalts gespeichert
Sub SpeichernMitZellname()
Dim path, vorgabe, erklaer
On Error GoTo fertig
If Len(ActiveCell) = 0 Then
MsgBox ("Die Zelle oben/links im markierten Bereich darf nicht leer sein!")
Else
' zutreffenden Pfad im Code eintragen
vorgabe = "C:\Dokumente und Einstellungen\Name\EigeneDateien"
erklaer = "Hier das Speicher-Verzeichnis angeben." & Chr(10) & Chr(13) & "(mit ' \ ' abschliessen)." & Chr(10) & Chr(13) & "Der Datei-Name ist: '" & ActiveCell() & ".xls'"
path = InputBox(erklaer, "Speichern unter ...", vorgabe)
If path = "" Then GoTo fertig 'InputBox mit Abbrechen beendet
ActiveWorkbook.SaveAs FileName:=path & ActiveCell() & ".xls"
End If
fertig:
End Sub
Funktioniert bei mir seit Jahren prächtig!
Viel Erfolg
Erich
Hallo Rudolf,
hier ein Makro, das die Excel-Datei unter dem Namen speichert, den Du in Zelle [A1] angegeben hast. Probier mal ein wenig herum, ich krieg es nämlich nicht gebacken, das die „Speichern unter“-Dialogbox nicht aufpoppt …
Sub SichernAls()
ziel = Application.GetSaveAsFilename("C:\Auswertung\" & [A1] & ".XLS")
ActiveWorkbook.SaveAs ziel
End Sub
Laufwerk und Pfad kannst du ja auch noch verändern
gruß
moritzbock
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke mit Lösung
Vielen Dank an euch Beide!
Ich hab jetzt die für mich passende Lösung aus euren Vorschlägen gebastelt.
Für die Nachwelt:
*******************************************************
’ WorkBook wird mit dem Namen der angegebenen Zelle gespeichert
Sub SpeichernMitZellname()
On Error GoTo fertig
ActiveWorkbook.SaveAs Filename:=[B1] & [A1] & „.xls“
fertig:
End Sub
*******************************************************
Wobei in Zelle A1 der Dateiname steht und
in Zelle B1 der Pfad mit „“ am Schluß.
Gruß,
Rudolf