automatisches Ausführen einer Prozedur
17.02.2004 19:46:35
Erwin
ich möchte bei einem Text-Eintrag in B12, dass in B1 ein Bild erscheint. Dank diesem Forum habe ich folgenden Code selbst zusammengebastelt, der auch funktioniert!
Sub bild()
If Range("B12")<> "" Then
Range("B1").Select
LW = "D:\Erwin\"
BildName = "Auto"
BildDatei = LW & BildName & ".jpg"
If Dir(BildDatei)<> "" Then
ActiveSheet.Pictures.Insert(BildDatei).Select
End If
End If
End Sub
Was mir aber einfach nicht gelingen will, ist, dass sich diese Prozedur automatisch ausführt. Also, wenn ich in B12 einen Text eingebe und mit Return abschließe, in B13 bin, soll die Prozedur automatisch ausgeführt und das Bild angzeigt werden!
Vielleicht weiß jemand einen guten Tipp. Wäre sehr dankbar dafür.
Erwin