Vb Spørgsmål ?

Måske du skal flytte D=1 op over din for = ... ellers vil den jo altid være 1

Den skriver
Compile error:
Sub or Funktion not defined

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Variant
d = 1
For R = 24 To 43
If Target.Address = Cells(R, 4) Or Target.Address = Cells(R, 5) Then
C = Cells(R, 4)
U = Cells(R, 5)

Select Case C
    Case C > U: Image(d).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\3.jpg")
    Case C = U: Image(d).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\2.gif")
    Case C < U: Image(d).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\1.jpg")
    Case Else
End Select
d = d + 1
End If

Next R
End Sub

her stopper den...

Image(d).Picture

ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture("C:\Documents and Settings\Bruger\Dokumenter\Billeder\3.jpg")

Her må jeg vel ikke spørge om hvorledes man får det til at køre

Det gør den ved at skrive noget i en af cellerne i D24:E43

Ja ok ... det var mere omkring kald af sub'en ...

kabbak
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Variant
Hvor = "C:\Documents and Settings\Bruger\Dokumenter\Billeder\"
For R = 24 To 43
d = 1
Cc = Cells(R, 4).Value
Uc = Cells(R, 5).Value
If Cc > Uc Then
Cells(R, 8) = "H"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "1.jpg")
End If
If Cc < Uc Then
Cells(R, 8) = "L"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "2.gif")
End If
If Cc = Uc Then
Cells(R, 8) = "E"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "3.jpg")
End If
d = d + 1
Next R
End Sub

Damn, hader explorer....
kabbak skal der nogle references på!?
for den skriver run-time error '438'
"Object doesn't support this property or method"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Variant
Hvor = "C:\Documents and Settings\Bruger\Dokumenter\Billeder\"
For R = 24 To 43
If Target.Address = Cells(R, 4) Or Target.Address = Cells(R, 5) Then
d = 1
Cc = Cells(R, 4).Value
Uc = Cells(R, 5).Value
If Cc > Uc Then
Cells(R, 8) = "H"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "1.jpg")
End If
If Cc < Uc Then
Cells(R, 8) = "L"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "2.gif")
End If
If Cc = Uc Then
Cells(R, 8) = "E"
ActiveSheet.OLEObjects("Image" & d).Picture = LoadPicture(Hvor & "3.jpg")
End If
d = d + 1
Next R
End Sub

der var en fejl

If Cc > Uc Then
                Cells(r, 8) = "H"
              ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "1.jpg")
            End If
            If Cc < Uc Then
                Cells(r, 8) = "L"
                ActiveSheet.OLEObjects.Shapes("Image" & d).Object.Picture = LoadPicture(Hvor & "2.gif")
            End If
            If Cc = Uc Then
                Cells(r, 8) = "E"
                ActiveSheet.OLEObjects.Shapes("Image" & d).Object.Picture = LoadPicture(Hvor & "3.jpg")
            End If

If Cc > Uc Then
                Cells(r, 8) = "H"
              ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "1.jpg")
            End If
            If Cc < Uc Then
                Cells(r, 8) = "L"
                ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "2.gif")
            End If
            If Cc = Uc Then
                Cells(r, 8) = "E"
                ActiveSheet.OLEObjects("Image" & d).Object.Picture = LoadPicture(Hvor & "3.jpg")
            End If

Yes så virker det..

Mange tak, kabbak smid et svar..

et svar ;-))