Hallo!
Und zwar möchte ich in die Zelle A27 den Namen eines Bildes eintragen, dass dann in E12 erscheinen soll.
----------------------------

Option Explicit

Sub Bild_einfuegen()
If Range("A27") <> "" Then
Range("E12").Select
ActiveSheet.Pictures.Insert ("H:\Makrovoragen\" & Range("A27"))
End If
End Sub

-----------------------------
Könnt ihr mir auch noch sagen, wie ich es anstelle,
dass bei einer neuen Eingabe das alte Bild gelöscht wird und das neue anstelle Dessen angezeigt wird?

Also quasi wie das script automatisch bei einer neuen Eingabe wieder anläuft und das alte Bild ersetzt.
Gruß Maik

^{*Threadedit* 15:54:48
Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe FAQ 2.}