habe noch dieses probiert...
die Bilder kommen, aber nicht in die Spalte C :-(
Option Explicit
Sub Bilder_einfügen()
Dim strPfad As String, lngWiederholungen As Long
Dim picBild As Picture
On Error Resume Next
strPfad = "C:\Users\MEISI\Sharepoint\Bilder HW16\"
For lngWiederholungen = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Set picBild = ActiveSheet.Pictures.Insert(strPfad & Cells(lngWiederholungen, 1) & ".jpg")
If Not picBild Is Nothing Then
With picBild
.Top = Cells(lngWiederholungen, 2).Top
.Left = Cells(lngWiederholungen, 2).Left
End With
End If
Set picBild = Nothing
Next lngWiederholungen
End Sub