Übernimmt zugewiesenen Range falsch
08.03.2019 11:30:14
Ronald
Ich möchte gerne einen gewissen Bereich meines Excels als PDF drucken. Dazu
weise ich einen gewissen Bereich zu, lasse ihn markieren und drucke ihn als PDF.
Das Drucken an sich funktioniert. Es wird auch der markierte Bereich gedruckt.
Jedoch ist der markierte Bereich nicht der per Code hätte sollen markiert werden.
Public Sub print_pdf()
Dim strPath As String
strPath = ThisWorkbook.Path
MsgBox strRangeLinksBuchstabe
'liefert AU
MsgBox strRangeRechtsBuchstabe
'liefert EV
Worksheets("Personenplanung").Range(strRangeLinksBuchstabe & "2" & ":" & _
strRangeRechtsBuchstabe & "42").Select
'markiert jedoch C2:FU42.
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & "\Service _
Jahresplaner 2019" & "_freigegeben_" & Date & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Ich hoffe, jemand hat eine Idee. Denn ich bin mit meinem Latein am Ende. Für michist es nur noch unlogisch.
Gruß Ronald