Gruppe
Grafik
Bereich
Grafikimport
Thema
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt
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