Office: (Office 2016) VBA, Speichern unter xlsx und pdf

Helfe beim Thema VBA, Speichern unter xlsx und pdf in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Gemeinde, sitze etwas länger daran und irgendwie komme ich nicht weiter. Ich hab eine Datei die aus 3 Tabellen besteht. In Tab 1&2 werden... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mjaneiro, 29. April 2018.

  1. mjaneiro Neuer User

    VBA, Speichern unter xlsx und pdf


    Hallo Gemeinde,

    sitze etwas länger daran und irgendwie komme ich nicht weiter.

    Ich hab eine Datei die aus 3 Tabellen besteht. In Tab 1&2 werden Daten eingegeben, Tabelle 3 ist die Ausgabe. Aktuell wird der Dateiname aus 3 Zellen in Tabelle 2 erzeugt, das klappt auch alles. Jetzt soll zusätzlich Tabelle 3 als PDF abgespeichert werden. Bisher wurde das "von Hand" gemacht, jetzt möchte ich, dass das vom Script automatisch erledigt wird. Dass der Ausgabepfad abgefragt wird ist korrekt, da sich dieser jedesmal ändert. Danach soll aber das PDF in den selben Verzeichniss wie zuvor die Datei, ohne Rückfrage, abgespeichert werden. Gespeichert werden soll Tabelle 1-3 als xlsm und Tabelle 3 als pdf.
    Bisher sieht der Code so aus:

    Code:
    Sub Speichern()
    '
    ' Dateiname aus Eingabedaten generieren und speichern
    ' MJ
    '
    
    On Error GoTo Save_Error
    
      Set objSheet = ActiveWorkbook.Sheets("Eingabe")
      Set objNameCell1 = objSheet.Range("B5")  'Service_Order
      Set objNameCell2 = objSheet.Range("D18") 'Seriennummer
      Set objNameCell3 = objSheet.Range("B6")  'Laufende-Nummer
      strSeparator = "_"  'Unterstrich
    
      If IsEmpty(objNameCell1) Or IsEmpty(objNameCell2) Or IsEmpty(objNameCell3) Then
        MsgBox "Eine der Zellen für die Namensvergabe ist leer..."
      Else
         
         strFilename = CStr(objNameCell1.Value) & _
            strSeparator & _
            CStr(objNameCell2.Value) & _
            strSeparator & _
            CStr(objNameCell3.Value)
        File = Application.GetSaveAsFilename(InitialFileName:=strFilename, FileFilter:="Microsoft Excel-Arbeitsmappe mit Makros " & _
            "(*.xlsm),*.xlsm")
        If File <> False Then
          ThisWorkbook.SaveAs Filename:=File
        End If
       End If
      
    Save_End:
      Set objNameCell2 = Nothing
      Set objNameCell1 = Nothing
      Set objNameCell3 = Nothing
      Set objSheet = Nothing
      Exit Sub
    Save_Error:
      MsgBox "Die Datei konnte nicht gespeichert werden!" & _
          String(2, vbCr) & _
          "Fehlernummer " & Err.Number & vbCr & _
          "Grund: " & Err.Description, _
          Buttons:=vbCritical
      Resume Save_End
    
    Ich bekomme es irgendiwe nicht hin, dass der den vorherigen Ordner und Dateinamen beim exportieren übernimmt...
    Danke schon mal im voraus!
    lg
     
    mjaneiro, 29. April 2018
    #1
  2. steve1da Super-Moderator
    steve1da, 29. April 2018
    #2
Thema:

VBA, Speichern unter xlsx und pdf

Die Seite wird geladen...
  1. VBA, Speichern unter xlsx und pdf - Similar Threads - VBA Speichern xlsx

  2. Bereich speichern als PDF speichern

    in Microsoft Excel Hilfe
    Bereich speichern als PDF speichern: Hallo Leute, leider habe ich ein Problem mit meinem VBA-Code. Bin leider noch nicht so fit darin. Ich habe einen VBA-Code erstellt, womit ein festgelegter Bereich eingeblendet, als PDF gespeichert...
  3. VBA Problem - Tabellenblatt als PDF speichern funktioniert nicht

    in Microsoft Excel Hilfe
    VBA Problem - Tabellenblatt als PDF speichern funktioniert nicht: Hallo zusammen, mein Name ist Marc, und ich bin neu hier... Ich habe ein Problem mit einem Makro und komme leider nicht weiter ☹ vielleicht könnt ihr mir helfen? In der angefügten Datei verwende...
  4. Ausgewählte Zellen per VBA in verschiedene Tabellen speichern

    in Microsoft Excel Hilfe
    Ausgewählte Zellen per VBA in verschiedene Tabellen speichern: Hallo liebe Forumfreunde, ich bin totaler Anfänger in Sachen VBA. versuche gerade etwas vba zu lernen *Smilie ich habe mir eine Mapper erstellt, wo ich aus Tabelle1 bestimmte Zellen in eine...
  5. VBA Filecopy, gleiches PDF mehrmals unter anderem Namen speichern

    in Microsoft Excel Hilfe
    VBA Filecopy, gleiches PDF mehrmals unter anderem Namen speichern: Hallo zusammen Ich habe ein Problem. Ich möchte eine abgespeicherte PDF-Datei (C:Beleg.pdf) mehrmals unter verschiedenem Dateiname speichern. Die Dateinamen habe ich im Feld A5, A6 etc. erfasst....
  6. VBA: xlsm als xlsx speichern

    in Microsoft Excel Hilfe
    VBA: xlsm als xlsx speichern: Hallo Forum, ich möchte von einer XLSM zur Laufzeit eine Sicherungskopie als XLSX speichern. Wenn ich sie im gleichen Format abspeichere, geht das ohne Probleme. ThisWorkbook.SaveCopyAs Pfad &...
  7. VBA Speichern: Warum funktioniert mein Makro nicht richtig

    in Microsoft Excel Hilfe
    VBA Speichern: Warum funktioniert mein Makro nicht richtig: Hallo an alle, ich habe bisher häufiger sehr gute Tipps im Forum gefunden. Leider habe ich aber ein Problem an dem ich z.Z. scheitere. Seit längeren versuche ich immer wieder den Fehler in dem...
  8. Datei Schließen (Bei Schreibschutz ohne speichern, ohne Schreibschutz speichern) VBA

    in Microsoft Excel Hilfe
    Datei Schließen (Bei Schreibschutz ohne speichern, ohne Schreibschutz speichern) VBA: Hallo zusammen, ich möchte per VBA beim beenden bzw. schließen der Datei abfragen ob diese Schreibgeschützt geöffnet ist. 1. Ist Datei Schreibgeschützt dann schließen, nicht speichern, nicht...
Schlagworte:

Users found this page by searching for:

  1. excel vba pdf speichern name Nummer

  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden