wenn ich das nachsehende Makro in ein Arbeitsblatt einfüge funktioniert "Einfügen und "Inhalte einfügen" nicht mehr.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pfad As String
On Error Resume Next
Image1.Picture = LoadPicture("c:\keinbild.jpg")
If Not Intersect(Target, Range("b13:c10000")) Is Nothing Then
Pfad = Cells(ActiveCell.Row, 5)
Image1.Visible = True
Image1.Picture = LoadPicture(Pfad)
End If
End Sub
Kann mir einer das erklären ?
Vielen dank !