Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.07.2017 08:44:02 |
Tobi |
|
|
|
24.07.2017 09:33:48 |
Gast17303 |
|
|
Excel per VBA speichern: Name, Pfad und Dateiendung bestimmen |
24.07.2017 09:43:32 |
Tobi |
|
|
Von:
Tobi |
Datum:
24.07.2017 09:43:32 |
Views:
593 |
Rating:
|
Antwort:
|
Thema:
Excel per VBA speichern: Name, Pfad und Dateiendung bestimmen |
Guten Morgen,
Danke für deine Rückmeldung!
Ich habe diese Variante aus einem anderen Forum, wenn ich die Filter umstelle, komme ich allerdings auch nicht weiter. Wie stelle ich diese Passage richtig?
Und wie ändere ich die Endung bei der zu speichernden Datei?
Passt man aktualisierter Code?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim varRetVal As Variant
Dim strLink As String
Dim strDateiname As String
Dim strVerzeichnis As String
Dim strLaufwerk As String
strVerzeichnis = Range("G90") 'in G90 steht der gesamte Pfad inkl. Dateinamensvorschlag
strLink = Range("G90")
strVerzeichnis = Left(strVerzeichnis, InStrRev(strVerzeichnis, "\"))
strDateiname = ThisWorkbook.Name
strLaufwerk = Left(strVerzeichnis, 1)
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=strLink, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
Cancel = True
Application.EnableEvents = False
ActiveWorkbook.SaveAs varRetVal
Application.EnableEvents = True
End Sub
LG
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.07.2017 08:44:02 |
Tobi |
|
|
|
24.07.2017 09:33:48 |
Gast17303 |
|
|
Excel per VBA speichern: Name, Pfad und Dateiendung bestimmen |
24.07.2017 09:43:32 |
Tobi |
|
|