Gruppe
Grafik
Problem
Wie kann ich in Abhängigkeit einer Zelleingabe in Spalte A eine Grafik in Spalte B einfügen lassen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pct As Object
If Target.Column <> 1 Then Exit Sub
On Error GoTo ErrorHandler
Select Case Application.Caller
Case 1
Set pct = ActiveSheet.Pictures.Insert("Auto.gif")
Case 2
Set pct = ActiveSheet.Pictures.Insert("Krad.gif")
Case 3
Set pct = ActiveSheet.Pictures.Insert("Bus.gif")
End Select
End
ErrorHandler:
MsgBox "Grafik ist nicht vorhanden!"
End Sub