Excel Zelleninhalt als Dateiname

Computer: Software & Programmierung Office Software
1

Hallo. Gibt es eine Möglichkeit einen Eintrag in einer Excelzelle als Dateiname zu haben. D.h Excel soll sich die Info automatisch aus der Zelle holen und beim speichern als Dateiname versehen?
MfG

2

Hallo. Gibt es eine Möglichkeit einen Eintrag in einer
Excelzelle als Dateiname zu haben. D.h Excel soll sich die
Info automatisch aus der Zelle holen und beim speichern als
Dateiname versehen?

Hi Stabi,
ja, das geht, geht aber nur über Makros, sind denn Makros in deiner Firma gestattet?
Gruß
Reinhard

3

Hallo,

erstelle ein Makro im Makroeditor (ALT + F11) wie folgt:

Option Explicit
Sub speichern()
 Dim strDateiname As String
 Const strLW = "c:\"
 Const strPfad = "test\"
 strDateiname = strLW & strPfad & Cells(1, 1).Formula
 If UCase(ActiveWorkbook.Name) = UCase(strDateiname) Then
 ActiveWorkbook.Save
 Else
 ActiveWorkbook.SaveAs (strDateiname)
 End If
End Sub

Gruß, Bernd

Hallo. Gibt es eine Möglichkeit einen Eintrag in einer
Excelzelle als Dateiname zu haben. D.h Excel soll sich die
Info automatisch aus der Zelle holen und beim speichern als
Dateiname versehen?
MfG

4

Hallo stabi08,
Meine Variante:

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 markierte Zelle darf nicht leer sein!")
Else
 vorgabe = "C:\Dokumente und Einstellungen\Erich\Eigene Dateien\"
 erklaer = "Der Datei-Name ist:" & Chr(13) & Chr(13) & ActiveCell() & ".xls" & Chr(13) & Chr(13) & Chr(13) & "Path bei Bedarf ändern."
 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

Gruss
Erich