Hallo XlKing
Ich bräuchte nochmals dein Hilfe ;-/
Mein Code steht jetzt soweit:
Der Code funktioniert, entweder für ein bestimmtes Tabellenblatt oder mit Array für mehrere.
Wie bekomme ich nun hin, dass die Tabellenblätter als PDF gespeichert werden?
Ich habe versucht Export AsFixedFormat einzuflechten aber bekomme ständig nur Fehler...
Könntest du mir nochmals Hilfestellung anbieten?
Viele herzlich Dank!
Janine
Sub TabellenAlsDateienSpeichern()
Dim strPfad As String
'Pfad ist jedes Jahr neu anzupassen
Const JAHR = "Mein Pfad\Testordner Makros\2022\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = JAHR
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
' ThisWorkbook.Worksheets(Array("Test1", "Test2")).copy ' Test 1 und Test 2 werden kopiert
ThisWorkbook.Worksheets("Test1").copy
ActiveWorkbook.SaveAs (strPfad & Environ("Username") & "_" & Format(Now, "DD_MM_YYYY_hh_mm_ss"))
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
|