Hi,

ich habe ein Makro, dass Zeile X8 selektiert und kopiert (es ist ein Bild) und dann Paint öffnet.

Dann führt Paint bestimmte Keys aus um z.B. das Bild auf PNG zu ändern etc.

Das einzige Problem das jetzt noch besteht ist das obwohl in einer Variable "bezeichnung" der string Wert für den Pfad korrekt ist, Paint das Bild nicht abspeichern kann, da er aus C:\User\Destkop\Bilder  z.B ser\Destkop\Bilder  macht oder :\User\Destkop\Bilder.

Sprich es werden Buchstaben am Anfang weggelassen.

Und das verwundert mich sehr

Sub Plot()
'
' "^" steht für Strg
' "%" steht für Alt
' "~" steht für Enter

Dim appID As Integer

    bezeichnung = ActiveWorkbook.Path & "\Bilder\" & Worksheets("Tabelle1").Range("X5") & ".png"

' bereich auswählen und screen machen
   
    Sheets("Tabelle1").Range("X8").Select
    Selection.Copy

' Paint öffnen
    appID = Shell("mspaint.exe", vbNormalNoFocus)

'Sicherstellen dass Paint den Fokus hat
    Application.Wait Now + TimeValue("0:00:03")
    AppActivate appID

    SendKeys "^e", True
    SendKeys "10", True
    SendKeys "{TAB}", True
    SendKeys "10", True
    SendKeys "~", True

' einfügen des bildes
    SendKeys "^v", True
    Application.Wait (Now + TimeValue("0:00:02"))
      
' speichern der Datei
    SendKeys "^s", True
    SendKeys bezeichnung, True ' Name
    SendKeys "{TAB}", True
    SendKeys "{down 2}", True
    SendKeys "{TAB}", True
    SendKeys "~", True

'Schließen von Paint mit [Alt]+[F4]
   SendKeys "%{F4}", True


End Sub