Grafik bzw. Bild automatisch in einer Excel Tabelle einfügen?

Question

Ich habe ein mittelschweres Problem, ich möchte in einer Excel Tabelle Grafiken einfügen, und zwar über eine Formel.
Problem beschreibung:
Ich habe vier verschiedene Grafiken, und die sollen in eine Zelle eingefügt werden, das heißt, am Anfang ist die Zelle leer, wenn ein bestimmter Wertspanne erreicht wurde, wird die erste Grafik eingefügt, ändert sich der Wertspanne der Zelle, ändert sich auch die Grafik, usw. bis die vierte Grafik erreicht wurde.
D.h.
Wenn der Wert sich zwischen 0 un 10 bewegt ist die Zelle leer, zwischen 11 und 30 Grafik 1, zwischen 31 und 50 Grafik 2, zwischen 51 und 80 Grafik 3, und ab 81 Grafik 4.
Wenn so etwas über eine Formel z.B. WENN-Funktion möglich wäre, wäre es optimal, wenn es eine andere möglichkeit gibt, wäre ich auch darüber erfreut, wenn ihr mir dann genau beschreiben könnt wie es gemacht wird, oder wo ich nachlesen kann.
Für eure zuschriften bedanke ich mich schon mal im Vorraus.

Hanz · Accepted Answer

Hier mal was mit VBA, das Zellen färbt.
Für die Grafiken kannst du den Makrorekrder verwenden und das Makro unten anpassen. Der Code muss in die Tabelle, die überwacht werden soll, nicht in ein Modul, oder andere Tabelle einfügen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Diser Code muss in das VBA der zu überwachenden Tabelle
Dim i As Integer

With Target
For i = 1 To 20 ' Schleife für Zahl der Zeilen (i = Zeilennummer

If Cells(i, 1).Value > Cells(i, 2).Value Then ', 1) = Spalte "A"
Cells(i, 1).Interior.ColorIndex = 4 ' Grün
End If

If Cells(i, 1).Value = Cells(i, 2).Value Then ', 2) = Spalte "B"
Cells(i, 1).Interior.ColorIndex = xlNone ' keine Farbe
End If

If Cells(i, 1).Value < Cells(i, 2).Value Then '
Cells(i, 1).Interior.ColorIndex = 3 ' Rot
End If

Next i
End With

End Sub

Grafik bzw. Bild automatisch in einer Excel Tabelle einfügen?

1 Antwort