Mehrere Zeilen in PDF speichern

Moderator: ModerationP

Mehrere Zeilen in PDF speichern

Beitragvon ELMOE » 26. Jan 2015, 15:53

Hallo zusammen,

ich habe folgendes Problem. Ich möchte mehrere Zeilen markieren, nur diese welche ein bestimmtes Datum in Spalte xy haben. Diese werden dann als PDF gespeichert.

Mein derzeitiger CODE erstellt jedoch von jeder markierten Zeile eine separate Seite PDF.
Folgender CODE:

Private Sub Speichern_Click()

Dim strPfad As String
Dim strname As String
Dim i As Integer
Dim zeilenauswahl As String

Application.ScreenUpdating = False

strPfad = Application.ThisWorkbook.Path
strname = Format(Date, "yyyymmdd") & "_" & "Protokoll" & "_" & "aktuell" & ".pdf"
Worksheets("Task").Activate
ChDir _
strPfad
zeilenauswahl = "6:6"
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 6).Value = Archiv_date.Archiv_datum.Value Then
zeilenauswahl = zeilenauswahl & "," & i & ":" & i
End If
Next i

Range(zeilenauswahl).Select

With ActiveSheet.PageSetup
.Zoom = False
.Orientation = xlLandscape
.FitToPagesWide = 1

End With

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strname _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.ScreenUpdating = True

Unload Archiv_date

End Sub

Auf Verdacht mal ins Excel Forum verschoben. steve1da
ELMOE
 

Re: Mehrere Zeilen in PDF speichern

Beitragvon Nepumuk » 26. Jan 2015, 16:21

Hallo,

und warum setzt du dann nicht einfach einen Autofilter auf die Spalte und filterst die unerwünschten einfach aus?
De fontibus non est disputandum

Gruß
Nepumuk 8-)
Benutzeravatar
Nepumuk
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14732
Registriert: 10. Aug 2004, 08:40
Wohnort: Regensburg

Re: Mehrere Zeilen in PDF speichern

Beitragvon ELMOE » 26. Jan 2015, 16:42

Hallo, danke schonmal für die schnelle Antwort.

ich glaub das ist wirklich die bessere Wahl. Mein Weg ist doch etwas zu umständlich.

Dank trotzdem.
ELMOE
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

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