Supportnet / Forum / Tabellenkalkulation
Speichern unter... mit variablem Dateinamen
Frage
Moin,
mit HIlfe des folgenden Makros öffne ich den Speichern unter - Dialog mit einem voreingetragenen Namen:
[code]Private Sub CommandButton3_Click()
Dateiname = Application.GetSaveAsFilename _
("Kosten .xls", "Microsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Dateiname
End Sub[/code]
Nun will ich aber den Dateinamen variabel haben, also zum Beispiel statt "Kosten" den Inhalt einer Zelle bzw. TextBox. Noch idealer wäre das Verketten, z.B. Kosten + Inhalt A1.
Ist das irgendwie möglich?
Danke im Voraus
Jonk
Antwort 1 von JoeKe
Moin Jonk,
so:
Private Sub CommandButton3_Click()
Dim Dateiname As String
Dateiname = Application.GetSaveAsFilename _
("Kosten " & Range("a1") & ".xls", "Microsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Dateiname
End Sub
Gruß
JöKe
so:
Private Sub CommandButton3_Click()
Dim Dateiname As String
Dateiname = Application.GetSaveAsFilename _
("Kosten " & Range("a1") & ".xls", "Microsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Dateiname
End Sub
Gruß
JöKe
Antwort 2 von Jonk
Vielen Dank für die schnelle Hilfe,
hatte das so auch schon probiert allerdings einmal das &-Zeichen vergessen... Nun klappt es.
Grüße Jonk
hatte das so auch schon probiert allerdings einmal das &-Zeichen vergessen... Nun klappt es.
Grüße Jonk