VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

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

    


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