Bei Eingabe von. zB. "Sommer" in Zelle B24 soll das hinterlegte Bild Sommer.jpg in Zelle D33 angezeigt werden.
Mein Ansatz funzt leider nicht:
ActiveSheet.Pictures.Insert ("C:\Test\Bider\" & B24.Text & ".jpg")
Vielen Dank für eure Hilfe
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Range("B24")) Then
Range("D34").Activate
ActiveSheet.Pictures.Insert("C:\Documents and Settings\yxdjuk2\Desktop\" & Range"B24") _
".jpg").Select
End If
End Sub
GrußPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) "B24" Then Exit Sub
If Not IsEmpty(Range("B24")) Then
Range("D33").Activate
ActiveSheet.Pictures.Insert("C:\Documents and Settings\yxdjuk2\Desktop\" & Range("B24") _
& ".jpg").Select
End If
End Sub