habe vor einigen Tagen von MCO folgenden Code erhalten bei dem der Reihe nach die Zellen K4 bis K11 nach K2 kopiert werden.
Funktioniert einwandfrei:
For Each zeil In Range("K4:K11").SpecialCells(xlCellTypeConstants)
zeil.Copy Range("K2")
ThisWorkbook.Sheets("Einsatzlisten").ExportAsFixedFormat Type:=xlTypePDF _
, Filename:="F:\Dropbox\Desktop\HMPDF\" & zeil.Text _
& ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True _
, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next zeil
Jetzt sind die Werte in K4:K11 das Ergebnis einer Formel, sodass ich einen Laufzeitfehler in der Codezeile:
For Each zeil In Range("K4:K11").SpecialCells(xlCellTypeConstants)
auftaucht.
Wie muss der Code lauten, damit nicht die Formel aus K4:K11 sondern nur der Wert (Formelergebnis) kopiert wird.
Gruß Roland