VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Grafik in Abhängigkeit einer Zelleingabe einfügen

Gruppe

Grafik

Bereich

Grafikimport

Thema

Grafik in Abhängigkeit einer Zelleingabe einfügen

Problem

Wie kann ich in Abhängigkeit einer Zelleingabe in Spalte A eine Grafik in Spalte B einfügen lassen?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport