PDF per Link/Makro

Public Sub RECHNUNG_PDF_erstellen_und_Übertragen_auf_Rechnung() Dim vntFile As Variant vntFile = Application.GetSaveAsFilename(Range("AA1").Value & "\" & ActiveSheet.Name & _ Range("C1").Value & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern") If vntFile False Then ActiveSheet.Range("B2:G66").ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=vntFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Dim raFund As Range With Sheets(4) .Unprotect Password:="" .Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove .Range("D1").Value = Date & ", " & Format(Time, "hh:mm:ss") Set raFund = .Columns(2).Find(what:=Sheets(3).Range("D5"), LookIn:=xlValues, _ lookat:=xlWhole) If Not raFund Is Nothing Then raFund.Offset(, 2) = Sheets(3).Range("L15") End If .Protect Password:="" End With Set raFund = Nothing Sheets(3).Range("G1").ClearContents End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk, eine Frage, Dein Makro versuchte ich bei einer weiteren Aufgabe einzufügen. Das funktionierte auch auf Anhieb. Nur ein kleines Problem ist bei dieser Ausgangslage. Der Wert, welcher von einer übertragen wird wird danach wieder gelöscht. Nun wird es zwar verlinkt aber der Wert wird nicht übertragen, da ich annehme das der Wert durch das Makro gelöscht wird bevor das Makro den Wert in die Zelle einfügen kann. Fehler unten Makro ist Fett gezeichnet kann ich eine Schleife einbauen damit er zuerst den Wert übernimmt und danach den Wert löscht? und wenn ja wie habe ich dies zu lösen?
Gruess Roger

Public Sub EINZAHLUNG_PDF_erstellen_und_Übertragen_auf_Einzahlung()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(Range("AA1").Value & "\" & ActiveSheet.Name & _
Range("S1").Value & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.Range("S1:T30").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=Fals, _
OpenAfterPublish:=False
End If
Dim raFund As Range
With Sheets(5)
.Unprotect Password:=""
.Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("D1").Value = Date & ", " & Format(Time, "hh:mm:ss")
Set raFund = .Columns(2).Find(what:=Sheets(3).Range("D5"), LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(, 2) = Sheets(3).Range("AA12")
If vntFile  False Then .Hyperlinks.Add Anchor:=raFund.Offset(, 2), _
Address:=vntFile, TextToDisplay:=Sheets(3).Range("AA12").Text
End If
.Protect Password:=""
End With
Set raFund = Nothing
Sheets(3).Select
Range("G1").Select
 Range("G1,Z10,AA10").Select
Range("Z10,AA10").Activate
Selection.ClearContents
End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread