Tipps & Tricks
09.11.2001, 10:30 Uhr
Zelleninhalt als Dateiname für Excel-Arbeitsmappe verwenden
Ist es möglich in Excel den Zelleninhalt (Text) beim Speichern automatisch als Dateinamen zu verwenden?
Das Speichern einer Excel-Arbeitsmappe mit dem Inhalt der markierten Zelle als Dateinamen lässt sich mit Hilfe des folgenden Makros realisieren:
Update: Das ursprünglich hier publizierte Makro haben wir aufgrund eines Leser-Tipps angepasst.
Sub DateiSpeichern()
Dim TempName As String
On Error GoTo errhandler
If Not ActiveWorkbook.Saved Then
If CStr(ActiveCell.Value) <> "" Then
TempName = ActiveCell.Value
TempName = InputBox("Datei Speichern unter...", "Datei speichern", TempName)
If TempName <> "" Then
ActiveWorkbook.SaveAs Filename:=TempName
Exit Sub
End If
End If
End If
AppDialog:
Application.Dialogs(xlDialogSaveAs).Show
Exit Sub
errhandler:
Resume AppDialog:
End Sub
Kommentare
Es sind keine Kommentare vorhanden.
