Servus Freunde,
ich möchte in meine Excel-Tabelle gerne folgendes einfügen:
Eine Wennformel: =WENN(A1>=150 … und wenn dieser Wert überschritten wird möchte ich eine Grafik sichtbar machen. Ein Stoppschild so in etwa.
Ist sowas möglich? Und wenn ja wie?
danke im voraus
Servus
Herbert
Hallo Herbert,
für deinen Wunsch gibt es in EXCEL das Menü Daten–> Gültigkeit
Dort kannst du für Zellen zulässige Werte Eintragen und bei unzulässigen Werten eine Meldung anzeigen lasen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Servus Franz,
vielen Dank erstmal
aber das ist nicht ganz das was ich brauche.
Ich möchte eine vorgeferigte Grafik einblenden wenn ein gewisser Wert überschritten wurde. Aber wenn es nicht anders geht ist es auch eine ganz gute Lösung.
Servus
Herbert
Hallo Herbert,
für deinen Wunsch gibt es in EXCEL das Menü Daten–>
Gültigkeit
Dort kannst du für Zellen zulässige Werte Eintragen und bei
unzulässigen Werten eine Meldung anzeigen lasen.Gruß
Franz
ich möchte in meine Excel-Tabelle gerne folgendes einfügen:
Eine Wennformel: =WENN(A1>=150 … und wenn dieser Wert
überschritten wird möchte ich eine Grafik sichtbar machen. Ein
Stoppschild so in etwa.
Hi Herbert,
das geht über ein Ereignis-Makro. Allerdings kann man damit nur manuelle Eingaben übwerwachen.
D.h. wenn du in A1 direkt eingibst, kann man A1 überwachen. Wenn allerdings in A1 eine Formel steht, so geht das so nicht, man muss dann die Zelle(n) überwachen wo etwas eingegeben wird.
Also frage, in welche Zelle(n) werden daten eingeben die in A1 den Wert ändern?
Beispiel: In A1 steht die Formel =B1+C1
dann schreibe in das Modul des Tabellenblattes:
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "B1" And Target.Address(0, 0) "C1" Then Exit Sub
If Range("A1").Value \>= 150 Then
Shapes(1).Visible = True
Else
Shapes(1).Visible = False
End If
End Sub
Gruß
Reinhard
Servus Franz,
vielen Dank erstmal
aber das ist nicht ganz das was ich brauche.
Ich möchte eine vorgeferigte Grafik einblenden wenn ein
gewisser Wert überschritten wurde. Aber wenn es nicht anders
geht ist es auch eine ganz gute Lösung.
Servus
Herbert
Hallo Herbert,
habe noch ein wenig in EXCEL getüfftelt. Direkt mit einer EXCEL-Formel in der Tabelle geht es nicht. Es ist aber möglich, abhängig vom Wert in Zelle A1 oder in beliebigen anderen jeweils festzulegenden Zellen VBA-Makro-Aktionen auszulösen.
Wenn du folgenden Code im VBA-Editor für deine Tabelle einfügst, dann wird die Grafik in der Tabelle eingefügt bzw. wieder gelöscht. Den Pfd/Dateinamen für die Grafik muß du natürlich noch anpassen.
Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Range("A1").Value \> 150 Then ' Grafik wird geladen
Range("A2").Select
ActiveSheet.Pictures.Insert("C:\Eigene Dateien\Bilder\Stopzeichen.bmp").Select
Selection.Name = "Stopzeichen"
Range("A1").Select
End If
If Range("A1").Value Evtl. gefällt dir diese Lösung ja besser als mein 1. Vorschlag.
Gruß
Franz
falls dir das Weiterhilft:
formel in Spalte B: =WENN(A1>2;ZEICHEN(86);"")
Formatierung von Spalte B: Schriftart - Windings 2
mfg
Spaguzzi
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
VBA-Lösung
hier eine andere Variante
füg vorher deine Grafik ein und positioniere diese,anschliessend schreib das Modul in die betreffende Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address „$A$1“ Then Exit Sub
If Target.Value >= 150 Then
ActiveSheet.Pictures(1).Visible = True
Else
ActiveSheet.Pictures(1).Visible = False
End If
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Spaguzzi,
wenn in A1 ne Formel steht passiert nix.
Gruß
Reinhard
Servus Freunde,
bevor ich die einzelnen Vorschläge ausprobiere:
erstmal vielen herzlichen Dank an alle!!!
Servus
Herbert