Ich arbeite gerade an einer Tabelle, in der der Benutzer mit einem lachenden Smilie belohnt werden soll, wenn er gewisse Anforderungen erfüllt hat - das funktioniert auch über ein:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 35 And Target.Column < 25 Then
Select Case Target.Value
Case "x"
ActiveSheet.Pictures.Insert("C:\Freude.bmp").Select
End Select
End If
End Sub
Aber ich will noch mehr:
Wenn die Anforderungen nicht erfüllt wurden, soll ein anderes Smilie ("Träne.bmp) in der entsprechenden Zelle erscheinen - und in bestimmten Zellen soll ein neutrales Smilie ("Neutral.bmp") erscheinen, wenn in der Zelle ein x (oder auch von mir aus ein anderer Wert, z.B. ein xx ) eingegeben wird.
Ich verzweifle bald, denn mein "Private Sub Worksheet_Change(ByVal Target As Excel.Range)" lässt nur eine Grafikauswahl zu und ich bekomme es nicht hin, abhängig von den Spalten, verschiedene Grafiken einfügen.
Hier meine "Smilie-Vision":
in Spalte G bis L, N und V Smilie "Feide.bmp"
in Spalte M, O und R Smilie "Träne.bmp"
in Spalte P und Q Smilie "Neutral.bmp"
Wem fällt zu meinem Problem eine Lösung ein?
Geht das über eine If-Then-Beziehung - die kriege ich auch nicht hin !!!
Schon jetzt ein Super-"Danke schön"
Angelicque