Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Dynamische Pfad Suche beim Speichern

Betrifft: Dynamische Pfad Suche beim Speichern von: Vulferin
Geschrieben am: 18.09.2014 09:28:31

Hallo zusammen
Ich würde gerne eine Dynamische Pfad suche beim abspeichen machen.

ich speicher hiermit meine Tabelle

  • wsZiel.Parent.SaveAs Filename:="Z:\2_Service\3_Organisation\NL 11\Tüv Übersicht Monteure\" & nmQuelle, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False


  • Jetzt würde ich gerne das er mir beim abspeichern die Frage stellt wo er abspeichern soll
    und ich dann den Pfad auswähle
    den Tabellen Namen setzte ich mitnmQuelle

    geht sowas ?

      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Rudi Maintaire
    Geschrieben am: 18.09.2014 10:03:07

    Hallo,

      With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Ordner wählen"
        If .Show = -1 Then
          strPfad = .SelectedItems(1)
        End If
      End With
      If strPfad <> "" Then
        strPfad = strPfad & "\"
        wksZiel.Parent.SaveAs strPfad & nmQuelle, xlOpenXMLWorkbook
      End If
    Gruß
    Rudi


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 10:59:59

    Hallo Rudi,
    danke dir erstmal
    wie führe ich das mit meinem Code zusammen ?


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Rudi Maintaire
    Geschrieben am: 18.09.2014 11:02:11

    Hallo,
    anstatt deiner Zeile.

    Gruß
    Rudi


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 11:51:29

    Hallo Ralf, das Funktioniert ja supi danke dir
    nur ein Problem
    meinen Speicher Code habe ich als Privat Sub ( ich kenne da die unterschiede nicht )
    also code in der Userform stehen
    damit ich nmQuelle hin bekomme
    wenn ich das als Macro mache macht er das nicht mehr :(
    jetzt bleibt er bei dir bei strPfad = .SelectedItems(1) hängen
    packe ich das in ein Macro gehts.


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 14:56:08

    er bleibt hier stehen


    wksZiel.Parent.SaveAs strPfad & nmQuelle, xlOpenXMLWorkbook

    Laufzeit 424
    Object erforderlich

    sonst geht schon alles


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 15:00:59

    Wenn ich beim Debuger auf
    strPfad gehe Zeigt er mir auf den Pfad an ( Aktueller Wert Variable oder )
    nmQuelle zeigt er mir auch den richtigen namen an

    dennoch will er nicht abspeichern :(


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 15:02:57

    fehler gefunden
    wksZiel.Parent.SaveAs strPfad & nmQuelle, xlOpenXMLWorkbook
    da ist bei wksZiel ein k zuviel :)
    es klappt danke dir
    hab soweit alles hin bekommen
    mit Public Sub


      

    Betrifft: AW: Dynamische Pfad Suche beim Speichern von: Vulferin
    Geschrieben am: 18.09.2014 15:04:53

    Hallo Rudi

    du einefrage hab ich noch

    wie kann ich das machen das er mir in der neuen Datei die Optimalen Spalten Breite machen


     

    Beiträge aus den Excel-Beispielen zum Thema "Dynamische Pfad Suche beim Speichern"