Hallo erst mal,
Habe folgendes Problem, möchte gerne wenn sich ein Wert in einer Zelle in der ersten Tabelle ändert, das sich auf der zweiten Tabelle in einer Zelle das jeweilige Bild für ein Wert angezeigt wird.
Leider bekomme ich das nicht hin mit :
Sub grafik_einfügen()
'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht
If ActiveSheet.Range("LED-Rechner!C5").Value = 1 Then ( zeigt mir hier den Fehler)
Range("Berechnung!B4").Select
ActiveSheet.Pictures.Insert("F:\Diodenrechner\LED01.gif").Select
'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
Else
Range("Berechnung!B4").Select
ActiveSheet.Pictures.Insert("C:\Diodenrechner\LED02.gif").Select
End If
End Sub
vielen dank schon mal
|