Hilfestellung zum Code
19.04.2006 20:35:05
Mark
die folgende Prozedur soll durchlaufen werden, wenn sich der Wert der Zelle "A25" ändert. Wie mache ich das.
Danke für jede Antwort.
Gruß
-Mark-
Hier mein Code bislang...
Dim Pfad As String, Adresse As String
Pfad = Workbooks("Startseite.xls").Worksheets("Startseite").Range("a44")
Adresse = Pfad & "\Sonstiges\Bilder\"
If Range("A25") = 1 Then
Image1.Picture = LoadPicture(Adresse & "Bild2.jpg")
Else
Image2.Picture = LoadPicture(Adresse & "Bild4.jpg")