Gruppe
Ereignis
Problem
Wie kann ich nach Eingabe eines Grafikdateinamens in Spalte A diese Grafik im Tabellenblatt einfügen lassen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pct As Picture
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
On Error GoTo ErrorHandler
Set pct = ActiveSheet.Pictures.Insert _
(Range("C1").Value & "\" & _
Target.Value & ".gif")
With pct
.Left = Range("B4").Left
.Top = Range("B4").Top
End With
Exit Sub
ErrorHandler:
MsgBox "Grafik ist nicht vorhanden!"
End Sub