Excel Tabellen von unterschiedlichen Tabelleblättern ohne zwingenden Seitenwechsel als PDF...

Wie speichere ich mehrere Arbeitsblätter / Arbeitsmappen als PDF-Datei in Excel?
ohne VBA
Wie konvertiere ich mehrere Arbeitsmappen oder Arbeitsblätter gleichzeitig in Excel in PDF-Dateien?
mit VBA

Sub ExcelSaveAsPDF()
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Hallo,

für einzelne oder alle Zeilen einer Tabelle kann man über die Tabelleneigenschaften einen Seitenwechsel innerhalb dieser Zeilen verhindern. Damit lässt sich aber nicht verhindern, dass die Tabelle auseinandergerissen wird, denn vor bzw.
nach einer Tabellenzeile darf ein Seitenwechsel durchaus erfolgen.

Soll die gesamte Tabelle zusammengehalten werden, funktioniert dies nur über das Absatzformat "Nicht vom nächsten Absatz trennen". Oder man verschachtelt die gesamte Tabelle innerhalb einer anderen Tabelle bzw. Tabellenzelle, für die ein Seitenwechsel nicht
zugelassen ist.

Viele Grüße

Lisa

Hallo,

ich habe deine gepostete Tabelle nach Excel kopiert und bei mir funktioniert es. D.h. deine Daten und die gepostete Tabelle sind unterschiedlich.

Claus

Hallo,

ich habe eine sehr umfangreiche Excel-Tabelle mit verschiedenen Aufgaben zu mehreren Bauobjekten. Damit ich das jeden Monat übersichtlich ausdrucken kann, habe ich im Word einen Serienbrief als eine Tabelle erstellt.

also keinen "Brief", sondern ein "Verzeichnis"?

Zwischen den einzelnen Objekten habe ich einen Abschnittsumbruch eingefügt damit die Tabelle für jedes Objekt mit einer neuen Seite anfängt.

Um eine neue Seite zu beginnen, bedarf es keines Abschnittsumbruchs, ein Seitenwechsel reicht.

Der Abschnittsumbruch hält nur die Tabelle fest, aber nicht den Text in der Tabelle.

Ein Abschnittswechsel hält keineswegs eine Tabelle fest. Ein Seitenwechsel oder ein "Abschnittswechsel (Nächste Seite)", den du vermutlich gewählt hast, sorgt zunächst lediglich dafür, dass eine neue Seite beginnt.

Wie kriege ich es hin den Umbruch so einzurichten, dass sich der Text in der Tabelle nicht verschiebt, wenn ich mit dem Filter im Serienbrief arbeite?

Leider habe ich momentan keine Vorstellung von der Tabelle und auch nicht davon, was sich nicht verschieben darf? Eine größere Textmenge beansprucht auch mehr Platz, weniger Text benötigt weniger Platz. Entsprechend muss es zu Verschiebungen kommen. Was
würdest du dir denn wünschen - dass sich je nach Inhalten automatisch die Schriftgröße ändert?

Viele Grüße

Lisa [MS MVP Word]

Hallo Bernard,

ich bekomme leider gar keine Fehlermeldung, mache alles wie zuvor auch, nur leider ist kein Inhalt in der PDF bzw. sagen verschiedene PDF Programme das die Datei fehlerhaft sei.

Ich habe Excel bereits mehrmals Neu Installiert, leider ohne Erfolg.

Ich hab testweise mal eine neue Tabelle erstellt, mit dem Excel Programm selbst, habe in der Spalte A1 mal Test geschrieben, dann geh Ich auf Kopie senden, wähle das Format PDF, dann ohne was zu verändern gehe Ich auf weiter und sende die PDF als EMail an
mich selbst, auch unterschiedliche EMails Adressen von verschiedenen Anbietern hab Ich probiert.

sobald Ich versuche die PDF zu öffnen zeigt er z.B. auf meinem Androiden ungültiges Dateiformat an, auf meinem IPad sagt er die Datei sei beschädigt, auf dem PC eine weise Seite ohne Inhalt.

Mit freundlichen Grüßen

Christopher