Excel Grafiken

  • geschlossen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Excel Grafiken

    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.
  • 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).
  • 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.