Hallo Karin,
vielen Dank für deine Unterstützung.
Musste nur noch etwas ändern nun funktioniert es.
Private Sub Worksheet_Calculate()
ActiveSheet.Pictures("Picture 415").Visible = Range("LG7") > "" '< ("Picture 415")
ActiveSheet.Pictures("Picture 414").Visible = Range("LG8") > "" '< ("Picture 414")
End Sub
Bei > 0 < blieb das Bild stehen.
Gruß Adde