vielleicht könnt ihr mir wieder helfen. Ich hab aktuell folgendes Projekt vor mir.
Und zwar möchte ich auf einem Excel-Blatt mehrere Bereiche in eine PDF umwandeln und scheitere gerade daran es zu programmieren.
Ich hab folgenden Ansatz:
Sub pdf()
Dim j As Integer
Dim k As Integer
Dim lastrow As Integer
Dim a As Integer
k = 1
g = 1
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For j = 1 To lastrow
If ActiveSheet.Cells(j, 2).Value "" Then
Cells(j, 2).Select
a = Sheets("Tabelle1").Columns(7).Find(What:=k & "b", SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
If ActiveSheet.Cells(j, 2).Value "" Then
'von bis
ThisWorkbook.Sheets("Tabelle1").Range(Cells(j + 1, 2), Cells(a - 1, 7)).Select
End If
k = k + 1
End If
Next
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.FullName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Ich hab bestimmt wieder einen Denkfehler.hier ist mal meine Excel:
https://www.herber.de/bbs/user/154649.xlsm
Ich hab versucht die Bereiche zu definieren durch Marker um zu erkennen wo eine Bereich anfängt und wo eins endet.
Die Spalten Breite bleibt immer gleich, nur die Länge variiert.
Hätte jemand einen Ansatz?
Vielen Dank im Voraus!