Hallo Forum

Mein Name ist Gebhard und ich bin gerade dabei ein Projekt in Excel "Benzin Manager" zu erstellen.

Unter andrem sollte die UserForm ein Bild einfügen und auch speichern.

Ersteres funktioniert einwandfrei. Das Speichern des Images unter einem vom mir vorgegebenen Verzeichnissen schlägt jedoch fehl.

Grund:

Laufzeitfehler '75':

Fehler beim Zugriff auf Pfad/Datei

Hier der Code zu einfügen und speichern des Images:

_______________________________________

Private Sub CommandButton_Fotoeinfügen_Click()
Dim strpath As String
Dim cou As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
cou = Application.FileDialog(msoFileDialogOpen).Show
If cou <> 0 Then
    strpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Image1.Picture = LoadPicture(strpath)
    Image1.PictureSizeMode = 1
End If
End Sub

___________________________________________________________

Private Sub CommandButton_OK_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
Dim nam As String
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
nam = TextBox_Kennzeichen
FileCopy strpath, "C:\Users\gebha\Documents\Data\" & nam & ".jpg"
Set Image1.Picture = Nothing

'Name
Cells(last, 1).Value = TextBox_Name

'Marke
Cells(last, 2).Value = TextBox_Marke

'Kennzeichen
Cells(last, 3).Value = TextBox_Kennzeichen

'Aktueller Kilometerstand
Cells(last, 4).Value = TextBox_AktuellerKilometerstand

'Energie
Cells(last, 5).Value = ComboBox_Energie

End Sub

_______________________________________

Pfad ist freigegeben und hier kann ich auch speichern.

Ich wurschtle schon einige Tage herum finde den fehler aber nicht.

Hat von euch Profis einer eine Idee?

Beste Dank Gebhard