Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Jonk vom 12.07.2019, 09:54 Options
Speichern unter... mit variablem Dateinamen
Moin,
mit HIlfe des folgenden Makros öffne ich den Speichern unter - Dialog mit einem voreingetragenen Namen:
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
mit HIlfe des folgenden Makros öffne ich den Speichern unter - Dialog mit einem voreingetragenen Namen:
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 SubNun 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 vom 12.07.2019, 10:13 Options
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 vom 12.07.2019, 10:28 Options
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
Ähnliche Themen
ddwebrenderer::render: Kein Eintrag!
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
