Bild löschen und neu einfügen

Question

Hi ihr Excel-Spezialisten,

ich benötige ein Makro mit folgender Funktion:

Blattschutz ist aktiviert; PW = test.

Auswahlfeld in Zelle E17

Wenn die Zelle E17 geändert wird, soll in der Zelle A23 das enthaltene Bild gelöscht und durch ein neues Bild ersetzt werden.
Das Bild trägt den Namen, der in der Zelle E17 ausgewählt wird zuzügl. der Dateiendung .jpg.

Das Bild befindet sich im gleichen Ordner, in dem sich die geöffnete Arbeitsmappe befindet.

Die Zelle A23 ist zusammengeführt und besteht aus dem Bereich A23 : D43.
Das Bild hat eine Größe von 10 cm x 15 cm.


Gruß josef

Answer 1

Hi Josef,

versuche es mal mit diesem Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varBild
If Target.Address = "$E$17" Then
With ActiveSheet
.Unprotect "test"
.Pictures(1).Delete
Set varBild = ActiveSheet.Shapes.AddPicture(ThisWorkbook.Path & "\" & Target & ".jpg", True, True, .Range("A23").Left, .Range("A23").Top, .Range("A23:D43").Width, .Range("A23:D43").Height)
.Protect "test"
End With
End If
Set varBild = Nothing
End Sub

Bis später,
Karin

Answer 2

Hi Karin,

mein Kommentar: "Perfekt" Danke

Josef