Dieser Code behandelt sogar Zellen, die keine Bildpfade sind, als Bildpfade und gibt den Fehler aus, dass der Dateiname „Text in dieser Zelle“ nicht importiert werden konnte.
Das hat vor ein paar Tagen auch gut funktioniert, hast du eine Ahnung?

Sub InsertPicFromFile()
Dim xRg als Bereich
xCell als Bereich dimmen
Dim xVal als Zeichenfolge
On Error Resume Next
Set xRg = Application.InputBox("Bitte Dateipfadzellen auswählen:", "KuTools for Excel", Selection.Address, , , , , 8)
Wenn xRg nichts ist, dann beenden Sie Sub
Application.ScreenUpdating = False
Für jede xCell in xRg
xVal = xCell.Wert
Wenn xVal <> "" Dann
ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
xZellenhöhe
End If
Weiter
Application.ScreenUpdating = True
End Sub