HERBERS Excel-Forum - die Beispiele

Thema: Grafik in Abhängigkeit einer Zelleingabe einfügen

Home

Gruppe

Grafik

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

Jahresgrafik Grafik - Linie nach unten, Kriterien links
Grafik auf Position bringen Viele Grafiken mit gleicher Größe einfügen
Excel Grafiken nur schwarz/weiss Grafik drucken
Grafik nach Change in Exceltabelle laden Bereich als Grafik speichern
Grafiken kopieren Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Grafik anzeigen - evtl. Reihenfolge ändern?
Grafikobjekt nach Zelleingabe anpassen Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Grafik bei Nullen nicht weiterführen
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Beschriftung bei Bubble-Grafik gestapelte Säulengrafik
Dynamischer Datenbereich bei Grafiken Grafik
Schwellenwert in Excel-Grafik einfügen? wechselnde grafiken abhängig von wert einblenden
Grafik-Spezial Vorschaugrafik
Grafikformat Grafik in Tabelle, abhängig von Zellinhalt
Grafikprogramm über Excel legen Grafik in XLS-Kopfzeile im PPT darstellen
Grafiken aus derselben Pivot Grafik mit selektierten Daten
veränderbare Grafik je nach Datenmenge Formatier. einer Pivot Grafik wird immer Rückges.
Grafik immer aktualisieren mehrere Grafiken aus einer Pivot
verzogene Grafik mit VBA zurücksetzen bestimmte Grafik in Zelle nach löschen
3D-Grafik X-Achsenbeschriftung Grafik beim Öffnen einer Datei