ich kopiere mir in eine Userform einen Bereich einer Tabelle als Bild.
Bisher funktionierte es auch ganz gut.
Nun lässt er den Code mit der Bemerkung "Projekt oder Bibliothek nicht gefunden nicht mal mehr starten und markiert das Wort Environ
Public Function ShowRange2(ByRef Target As Range) As String
On Error Resume Next
Dim strTempFile As String
Static slngptrCopy As LongPtr
Call OpenClipboard(0&)
Call EmptyClipboard
Call CloseClipboard
strTempFile = Environ("TEMP") & "\img_" & Format(Now, "yyyymmdd_HHMMSS") & ".jpg"
Kann mir jemand sagen was das Problem sein könnte?
In meiner Arbeit Office 2013 läuft der Code?
Danke
Gruß
Stefan