Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt
Gruppe
Grafikimport
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