Schleife einbauen
27.12.2020 20:54:52
Roger
Hier ist das Problem: Es wird ein PDF generiert, danach ein Wert von einer Zelle in eine andere Zelle übertragen, einen Link generiert und danach die Zelle (Anfangszelle-Wert) den Wert wieder löschen. Nun ist es leider so das der Link zwar generiert wird aber mit keinem Wert. Nehme an das der Wert gelöscht wird bevor er kopiert werden kann.
Wie kann ich das Lösen bzw. kann ich das mit einer Schleife lösen? und wenn ja wie mache ich das?
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 With
Set raFund = Nothing
Sheets(3).Select
Range("G1").Select
Selection.ClearContents
Range("G1,Z10,AA10").Select
Range("Z10,AA10").Activate
Selection.ClearContents
End Sub