Indsætte smileys (gif-format) i celler afhængig andre celler

<a href="http://plugin.smileycentral.com/http%253A%252F%252Fwww.smileycentral.com%252F%253Fpartner%253DZSzeb008%255FZRfox000%2526i%253D23%252F23%255F29%255F136%2526feat%253Dprof/page.html" target="_blank"><img src="http://smileys.smileycentral.com/cat/23/23_29_136.gif" alt="SmileyCentral.com" border="0"><img border="0" src="http://plugin.smileycentral.com/http%253A%252F%252Fimgfarm%252Ecom%252Fimages%252Fnocache%252Ftr%252Ffw%252Fsmiley%252Fsocial%252Egif%253Fi%253D23%252F23_29_136/image.gif"></a>

håber det giver svar på dit spørgsmål!

så er point hævet til 200 :-)

måske noget i denne stil :

Sub Smil()
ActiveSheet.Pictures.Delete
sti = "C:\Users\pm\Desktop\Tapet\" ' ret til aktuel sti
For t = 2 To 17 ' Billede indsættes i kolonne B hvis kolonne A opfylder værdi kriterier B2:B17
Cells(t, 2).Select
If Cells(t, 1) >= 100 And Cells(t, 1) <= 110 Then ActiveSheet.Pictures.Insert("" & sti & "2.jpg").Select ' smiley 1
If Cells(t, 1) >= 111 And Cells(t, 1) <= 120 Then ActiveSheet.Pictures.Insert("" & sti & "3.jpg").Select ' smiley 2
If Cells(t, 1) >= 121 And Cells(t, 1) <= 130 Then ActiveSheet.Pictures.Insert("" & sti & "4.jpg").Select ' smiley 3
If Cells(t, 1) >= 131 And Cells(t, 1) <= 140 Then ActiveSheet.Pictures.Insert("" & sti & "5.jpg").Select ' smiley 4
Next
End Sub

excelent: det ligner noget af det rigtige - jeg får testet det i løbet af denne uge. Der er lige en lille ting som du måske kan hjælpe med. Jeghar i forvejen et par billeder (logoer) i excel-filen, som jeg gerne vil beholde - de bliver vel slettet af linjen "ActiveSheet.Pictures.Delete" ? Kan man gøre et eller andet for at undgå det - nogle if-betingelser eller lign. ?

ja de slettes også, kikker på det

ja det kan være noget problematisk med de billednavne
men prøv om du kan bruge denne løsning
Navne på billede skrives i kolonne B,- skal anvendes ved sletn.

Sub Smil()
On Error Resume Next

For t = 2 To 17
ActiveSheet.Shapes("" & Cells(t, 2) & "").Delete
Next

sti = "C:\Users\pm\Desktop\Tapet\" ' ret til aktuel sti
For t = 2 To 17 ' Billede indsættes i kolonne B hvis kolonne A opfylder værdi kriterier B2:B17
Cells(t, 2).Select
If Cells(t, 1) >= 100 And Cells(t, 1) <= 110 Then
ActiveSheet.Pictures.Insert("" & sti & "2.jpg").Select
Cells(t, 2) = Selection.Name
End If
If Cells(t, 1) >= 111 And Cells(t, 1) <= 120 Then
ActiveSheet.Pictures.Insert("" & sti & "3.jpg").Select
Cells(t, 2) = Selection.Name
End If
If Cells(t, 1) >= 121 And Cells(t, 1) <= 130 Then
ActiveSheet.Pictures.Insert("" & sti & "4.jpg").Select
Cells(t, 2) = Selection.Name
End If
If Cells(t, 1) >= 131 And Cells(t, 1) <= 140 Then
ActiveSheet.Pictures.Insert("" & sti & "5.jpg").Select
Cells(t, 2) = Selection.Name
End If
Next
End Sub

hvordan går det ?

Hej excelent
Det går fint - jeg holder ferie :-)
men jeg har dog alligevel kigget på dit forslag og har fået følgende til at virke, så du får hermed dine velfortjente point.
Det virker perfekt og er en funktion som jeg (og måske andre) vil kunne bruge i andre projekter.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim t, sti
For t = 5 To 10
  ActiveSheet.Shapes("" & Cells(123, t) & "").Delete
Next

' ret til aktuel sti
sti = "C:\Image\"
For t = 5 To 10 ' Billede indsættes i række 123 hvis række 121 opfylder værdi kriterier E121:J121
    Cells(123, t).Select
    If Cells(121, t) = 0 Then
        ActiveSheet.Pictures.Insert("" & sti & "Smiley0.gif").Select
        'Cells(123, t) = Selection.Name
    End If
    If Cells(121, t) = 1 Then
        ActiveSheet.Pictures.Insert("" & sti & "Smiley1.gif").Select
        'Cells(123, t) = Selection.Name
    End If
    If Cells(121, t) = 2 Then
        ActiveSheet.Pictures.Insert("" & sti & "Smiley2.gif").Select
        'Cells(123, t) = Selection.Name
    End If
    If Cells(121, t) = 3 Then
        ActiveSheet.Pictures.Insert("" & sti & "Smiley3.gif").Select
        'Cells(123, t) = Selection.Name
    End If
    Selection.ShapeRange.IncrementLeft 17
    Selection.ShapeRange.IncrementTop 1
Next

End Sub

Netop her til morgen faldt jeg pudsigt nok over en anden løsning, som er baseret på en speciel smiley-font, som passer nøjagtig til mit projekt.
http://www.foedevarestyrelsen.dk/Kontrol/Smiley/Generelt_om_smiley/Hent+smiley-font.htm

Ja, nogen gange er man nødt til at gå over åen efter vand .....