Läuft auch wunderbar.
Habe allerdings ein Bild in meinem Blatt, was NICHT gelöscht werden soll.
(Firmenlogo)
Leider werden ALLE Bilder beim Einfügen eines neuen Bildes gelöscht
WAS KANN ICH TUN?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StBild As String
Dim InI As Integer
If Target.Address <> "$A$9" Then Exit Sub
' Bild löschen von Jinx
' löscht alle Bilder auf dem aktuellen Blatt,
' wenn deren erste drei Buchstaben "Pic" sind
For InI = ActiveSheet.Shapes.Count To 1 Step -1
If Left(ActiveSheet.Shapes(InI).Name, 3) = "Pic" Then
ActiveSheet.Shapes(InI).Delete
End If
Next
If Target.Value = "" Then Exit Sub
StBild = "C:\" & Format(Target.Value, "0") & ".jpg"
If Dir(StBild) <> "" Then
' einfügen ohne select von Bert Körn
' Ausdruck.AddPicture(FileName, Verknüpfung, in Mappe speichern,
' Pos. Links, Pos. Oben, Breite, Höhe)
ActiveSheet.Shapes.AddPicture StBild, True, True, 570, 110, 100, 40
Else
' Standardbild einfüge falls Bild nicht vorhanden
StBild = "C:\6.Jpg"
' einfügen ohne select von Bert Körn
ActiveSheet.Shapes.AddPicture StBild, True, True, 565, 110, 120, 80
End If
End Sub