Hallo,

ich habe mir einen VBA-Code zusammengeschnipselt, welcher Bilder aus einem Ordner (benannt nach Artikelnummer +.jpg) automatisch in eine Excell-Datei einfügt. Allerdings macht das Makro dies nur als Verknüpfung. Gibt es eine Möglichkeit die Bilder direkt in der Excell-Datei zu speichern? Danke schonmal.

Hier der Code:

Sub GraphicfileInZelleEinfuegen()
    Dim aktZeile As Long
    Dim spalte As Long
    Dim anfangsZeile As Long
    Dim ws As Worksheet
    Dim pfad As String
    
    spalte = 5                  'spalte in der das bild eingefügt wird a=1 b=2 ...
    anfangsZeile = 1            'zeile in der das makro anfangen soll 1=1 2=2 ...
    pfad = "C:\Neuer Ordner\"   'pfad des ordners in dem sich die bilder befinden

    
    Set ws = ThisWorkbook.Worksheets("Tabelle1")
                                          
   
    With ws
        On Error Resume Next
        .Pictures.Delete
        On Error GoTo 0

        For aktZeile = .Cells(.Rows.Count, 1).End(xlUp).Row To anfangsZeile Step -1
                If (Cells(aktZeile, 1).Text) = "" Then
                Else
                    If Dir(pfad & "\" & .Cells(aktZeile, 1).Text & ".jpg") = "" Then
                        .Cells(aktZeile, spalte) = "Bild fehlt"
                    Else
                        With .Pictures.Insert(pfad & "\" & .Cells(aktZeile, 1).Text & ".jpg")
                            .Top = ws.Rows(aktZeile).Top
                            .Height = ws.Rows(aktZeile).Height
                            .Left = ws.Columns(spalte).Left
                        End With
                    End If
                End If
        Next aktZeile
    End With
End Sub