Aktuelles Blatt 2x speichern

Moderator: ModerationP

Aktuelles Blatt 2x speichern

Beitragvon wut » 12. Sep 2021, 19:54

Hallo zusammen,

habe da wieder ein kleines Problem:

und zwar habe ich in meiner Excel - Datei mehrere Blätter, jetzt wäre es schick wenn ich das aktive, mehrfach speichern könnte:

1. als PDF
2. als xlsm

aber in beiden Fällen nur das "aktive"

gespeichert sollte es dort werden wo die Arbeitsmappe liegt und der Name für die Dateien wäre in A1.

Habe mit folgenden Codes probiert

für das PDF
Sub PDF_Print_Sheet333()
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\" & Environ("Username") & "\Desktop\" & .Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub

für das Blatt:
Sub Test_save()
' 1. aktuelles Workbook - merken für spätere aktionen
'--------------------------------------------------------------
Dim currentWorkbook As String
Dim currentWorkbookDir As String
Dim Tabelle_save As String

currentWorkbook = ActiveWorkbook.Name
currentWorkbookDir = ActiveWorkbook.Path
ChDir currentWorkbookDir
' 2. Name festlegen und Speichern
'--------------------------------------------------------------
Windows(currentWorkbook).Activate
Tabelle_save = Left(currentWorkbook, Len(currentWorkbook) - 3)

Tabelle_save = Tabelle_save & "xlsx" 'Tabelle_save = "Name Deiner Wahl.xlsx"


ActiveWorkbook.SaveAs Filename:=Tabelle_save, _
FileFormat:=51, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

das Ergebnis :?: :?: :?:

nochmal zusammen gefasst:

a. speichern 1x als xlsm und 1x als pdf
b. der Speicherort - dort wo die Mappe liegt
c. der Speichername soll er sich für beide aus A1 aus dem jeweiligen aktiven Blatt holen

Kann mir da jemand weiterhelfen bitte?

Danke
Marcus
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 395
Registriert: 21. Sep 2005, 11:32

Re: Aktuelles Blatt 2x speichern

Beitragvon {Boris} » 13. Sep 2021, 17:36

Hi Marcus,

wenn Du das aktive Blatt kopierst, wird es automatisch zum aktiven Workbook.

ActiveSheet.Copy
ActiveWorkbook.SaveAs...
Grüße Boris
Benutzeravatar
{Boris}
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1662
Registriert: 14. Okt 2007, 10:16
Wohnort: Düsseldorf

Re: Aktuelles Blatt 2x speichern

Beitragvon wut » 14. Sep 2021, 18:08

@Boris

ja einzeln bekomme ich es hin, nur nicht zusammen
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 395
Registriert: 21. Sep 2005, 11:32

Re: Aktuelles Blatt 2x speichern

Beitragvon Kuwe » 14. Sep 2021, 18:37

Hallo Marcus,

vielleicht so:

Code: Alles auswählen
Sub PDF_Save()
  Dim wks As Worksheet
  For Each wks In ActiveWindow.SelectedSheets
    With wks
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("Username") & "\Desktop\" & .Name & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      .Copy
      ActiveWorkbook.SaveAs Filename:=.Parent.Path & "\" & Left(wks.Parent.Name, Len(wks.Parent.Name) - 4) & .Range("A1").Value, _
                            FileFormat:=51, Password:="", WriteResPassword:="", _
                            ReadOnlyRecommended:=False, CreateBackup:=False
    End With
    ActiveWorkbook.Close
  Next wks
End Sub
Gruß Uwe
Benutzeravatar
Kuwe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6638
Registriert: 30. Dez 2003, 18:37

Re: Aktuelles Blatt 2x speichern

Beitragvon wut » 16. Sep 2021, 19:50

@Uwe

danke

also die PDF speichert er aber unter dem Reiternamen und nicht unter dem Text in A1 als pdf ab

und die Excel Datei speichert er gar nicht ab

Habe ich da irgendwas falsch gemacht?

Danke im voruas
Marcus
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 395
Registriert: 21. Sep 2005, 11:32

Re: Aktuelles Blatt 2x speichern

Beitragvon Kuwe » 16. Sep 2021, 23:09

Hallo Marcus,

Code: Alles auswählen
Sub PDF_Save()
  Dim wks As Worksheet
  Application.ScreenUpdating = False
  For Each wks In ActiveWindow.SelectedSheets
    With wks
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\" & Environ("Username") & "\Desktop\" & .Range("A1").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
      .Copy
      ActiveWorkbook.SaveAs Filename:=.Parent.Path & "\" & Left(.Parent.Name, Len(.Parent.Name) - 4) & .Range("A1").Value & ".xlsx", _
                            FileFormat:=51, Password:="", WriteResPassword:="", _
                            ReadOnlyRecommended:=False, CreateBackup:=False
      ActiveWorkbook.Close
    End With
  Next wks
  Application.ScreenUpdating = True
End Sub
Gruß Uwe
Benutzeravatar
Kuwe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6638
Registriert: 30. Dez 2003, 18:37

Re: Aktuelles Blatt 2x speichern

Beitragvon wut » 17. Sep 2021, 18:34

@ UWE


super genial, danke danke - genau das was ich brauchte.
wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 395
Registriert: 21. Sep 2005, 11:32


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 34 Gäste