Thema Datum  Von Nutzer Rating
Antwort
24.07.2017 08:44:02 Tobi
NotSolved
24.07.2017 09:33:48 Gast17303
NotSolved
Rot Excel per VBA speichern: Name, Pfad und Dateiendung bestimmen
24.07.2017 09:43:32 Tobi
NotSolved

Ansicht des Beitrags:
Von:
Tobi
Datum:
24.07.2017 09:43:32
Views:
535
Rating: Antwort:
  Ja
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


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
NotSolved
24.07.2017 09:33:48 Gast17303
NotSolved
Rot Excel per VBA speichern: Name, Pfad und Dateiendung bestimmen
24.07.2017 09:43:32 Tobi
NotSolved