Hi, ich schreib grad mein erstes VBA Projekt und bräuchte ein wenig Hilfe.

Ich habe eine UserForm bei der u.A. der Name des Films in eine Textbox eingegeben wird. In der UserForm gibt es auch eine ImageAnzeige. Dafür habe ich Code geschrieben, damit "AfterUpdate" automatisch das zugehörige Filmposter geladen wird. Dieser Teil funktioniert auch einwandfrei.

Ich möchte nun wenn ich auf Save klicke (ich befinde mich im Save Private Sub), dass der Filmname gespeichert wird und das zugehörige Filmposter als Kommentar angehängt wird.

'Add Movie Poster to Movie Name
    cboLists.Activate
    Dim MovieTitle As Range
    Dim MoviePoster As String
    Dim ImageFolderPath As String
    Dim ImagePath As String
    Dim MovieName As String
    
    MovieName = txtMovieName.Value
    ImageFolderPath = Environ("UserProfile") & "\Desktop\Movie Database\Movie Posters"
    ImagePath = ImageFolderPath & "\" & MovieName & ".jpg"
    
    imgMoviePoster.Picture = LoadPicture(ImagePath)
    MoviePoster = imgMoviePoster.Picture
    
    Set MovieTitle = Range("P:P").Find(txtMovieName.Value, MatchCase:=True, LookAt:=xlWhole)
    
    If MovieTitle Is Nothing Then
        Range("P2").End(xlDown).End(xlDown).End(xlUp).Offset(1, 0).Select
        ActiveCell.Value = txtMovieName.Value
        ActiveCell.AddComment
        ActiveCell.Comment.Visible = True
        ActiveCell.Comment.Shape.Fill.UserPicture MoviePoster
        ActiveCell.Comment.Shape.Select
        Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
        ActiveCell.Comment.Visible = False
    End If

Der Code läuft bis zur Fett gedruckten Zeile. Da kommt dann eine Fehlermeldung die sagt, dass die angegebene Datei nicht gefunden wurde.

Würd mich freuen wenn mir jemand weiterhelfen könnte :)