Excel Grafiken geschlossen

[Lacky]

Hallo!!!

Ich erkläre mal was mein Frage ist.
Wenn ich in Excel eine 1 eingebe, soll es zb. eine Sonne in dieser Zelle anzeigen und in die 1 soll weg sein. Wenn ich ne 2 eingebe, soll ne Wolke zb. angezeigt werden.
Geht das wenn ja wäre wirklich nett wenn ihr mir das zeigen könntet wie das geht.

 

[Zahni03]

Wie man eine Wolke reinkriegt weiß ich nicht, aber wenn du eine Zelle makiertst und dann unter Fromat bedingte Formatierung nachschaust kannst du das feld Farbig machen und irgeinen Text reinschreiben der dann reinsoll (vielliecht gibts bei Windings Schriftart eine Sonne).

 

[Lacky]

Danke erst mal.
Aber ich wollt das mit einer Grafik und nicht mit einer Schriftart.

 

[MM2KC]

Eine solche Formel ist bisher nicht in Excel vorhanden.
Das geht leider nur mit VBA.

Hab mal ein bisschen rumgesucht:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("A1").Value = 1 Then ' Grafik 1 laden
Range("A2").Select
ActiveSheet.Pictures.Insert("C:\pic1.jpg").Select
Selection.Name = "Wechselbild"
Range("A1").Select
ElseIf Range("A1").Value = 2 Then ' Grafik 2 laden
Range("A2").Select
ActiveSheet.Pictures.Insert("C:\pic2.jpg").Select
Selection.Name = "Wechselbild"
Range("A1").Select
End If
If Range("A1").Value >= 3 Then ' Grafik wird gelöscht
For Each X In ActiveSheet.Shapes
If X.Name = "Wechselbild" Then X.Delete
Next X
ElseIf Range("A1").Value < 1 Then ' Grafik wird gelöscht
For Each X In ActiveSheet.Shapes
If X.Name = "Wechselbild" Then X.Delete
Next X
End If
End Sub

So sollte es funktionieren.

 

[Lacky]

Jo funzt!!!

Vielen Dank für den Code.

 

[Imperator]

- closed -

mfg
Imperator