Supportnet / Forum / Tabellenkalkulation

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 [*][sup][i] *Threadedit* 15:54:48 Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/groupfaqs/3]FAQ 2.[/url][/u][/i][/sup]

Hi Maik

Du musst dem neuen Bild den Namen Altbild geben.

On Error GoTo WT
    ActiveSheet.Shapes("Altbild").Delete
WT:
    [E12].Select
    ActiveSheet.Pictures.Insert("H:\Makrovoragen\" & [A27]).Name = "Altbild"

Gruss Werner

• Bilder einer Webseite automatisch in einen Zielordner abspeichern?!
• Outlook 2003 vs Outlook Express - keine automatische Bilder