Re: Automatisch ClipArt einfügen

From: Bernd Held (held-office_at_t-online.de)
Date: 02/20/04 

Date: Fri, 20 Feb 2004 14:02:40 +0100

Hallo Heike,

sowas ähnliches:
lege folgendes Ereignismakro direkt hinter die Tabelle. (Rechter Mausklick
auf Tabellenreiter, dann code anzeigen)

Private Sub Worksheet_Change _
(ByVal Target As Range)
Dim Pic As Picture

If Target.Address <> "$A$2" Then Exit Sub
    If Target.Value < Target.Offset(-1, 0).Value Then
        Set Pic = Active***.Pictures.Insert("c:\valley.jpg")
    End If
End Sub

Das Bild wird eingefügt, wenn in Zelle A2 ein Eintrag vorgenommen wird, der
kleiner als der in Zelle A1 ist.

Viele Grüße
Bernd
MVP für Microsoft Excel
VBA-Schulungen und VBA-Bücher unter http://held-office.de

"Heike Müller" <anonymous@discussions.microsoft.com> schrieb im Newsbeitrag
news:12efd01c3f7a8$09cea590$a101280a@phx.gbl...
Hallo,
Ich möchte, das zum Beispiel in der Zelle A3 automatisch
ein ClipArt erscheint, wenn in Zelle A2 ein Wert befindet,
der kleiner ist als der Wet in Zelle A1.

Wie kann ich das Problem lösen ???

Danke vorab

Heike