Microsoft Excel

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

    

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