Hallo und Guten Morgen,
nach gestrigen intensiven Versuchen von Hajo kam folgender Code heraus.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C9") = Wert Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes(pct.Name).Delete
On Error GoTo 0
Dim sPath As String
sPath = "C:\Chris\"
' Bild aus Spalte D
On Error GoTo Fehler
Set pct = ActiveSheet.Pictures.Insert(sPath & Cells(Target.Row, 3) & ".Jpg")
ActiveSheet.Shapes(pct.Name).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 100
Selection.ShapeRange.Left = 200
Selection.ShapeRange.Top = 100
Range(Target.Address).Select
Wert = Range("C9")
Exit Sub
Fehler:
Set pct = ActiveSheet.Pictures.Insert(sPath & "2.Jpg")
On Error Resume Next
ActiveSheet.Shapes(pct.Name).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 100
Selection.ShapeRange.Left = 100
Selection.ShapeRange.Top = 100
Range(Target.Address).Select
Wert = Range("C9")
End Sub
Jetzt habe ich das Problem, das ich meine Tabelle umstellen musste. nun passt das leider nicht mehr. Die Formel darf nicht immer den Wert aus Spalte 3 (C) auslesen sondern soll, wenn in C9 ein wert steht den wert aus C10 nehmen und daraus das bild laden. nochmal anderst gesagt. die formel darf nicht mehr wenn in C9 ein wert steht den jeweiligen wert aus zeile "Reihe C" nehmen sondern muss immer den Wert aus Zeile C10 übernehmen.
Gruss & Danke
Chris