Thema: Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt

Home

Gruppe

Grafik

Problem

Wie kann ich über VBA automatisch eine Grafik einfügen lassen, wenn der durch eine Formel ermittelte Wert in Zelle A1 unter 10 sinkt?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   Dim pct As Picture
   If Range("A1").Value < 10 Then
      On Error GoTo ERRORHANDLER
      Set pct = ActiveSheet.Pictures.Insert("Warnung.gif")
    End If
    Exit Sub
ERRORHANDLER:
    MsgBox "Grafik wurde nicht gefunden!"
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