AW: Aktuellstes Bild vom Temp ORdner kopiere
16.01.2023 12:39:40
Rudi
Hallo,
ungetestet:
Sub BildRein()
Sheets("pdf1").Pictures.Insert (LastPIC("c:\test\"))
End Sub
Function LastPIC(strPath As String) As String
Dim lngMaxDate As Long
Dim strFile As String, strTmp As String
Const strMuster = "Summeberechnung_"
If Right(strPath, 1) "\" Then strPath = strPath & "\"
strFile = Dir(strPath & strMuster & "*.gif", vbNormal)
Do While Len(strFile)
strTmp = Mid(strFile, 17, 14)
lngMaxDate = Application.Max(lngMaxDate, --strTmp)
strFile = Dir
Loop
LastPIC = strPath & strMuster & lngMaxDate & ".gif"
End Function
Gruß