Bild autom. einfügen
19.02.2004 18:11:20
Erwin
habe für mein Problem, bei einem Texteintrag in B12 autom. ein Bild in B1 erscheinen zu lassen, in diesem Forum super Tipps bekommen und folgenden Code eingegeben, der auch wunderbar funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "B12" Then Exit Sub
If Target <> "" Then
Range("B1").Select
LW = "D:\Erwin\"
BildName = "Auto1"
BildDatei = LW & BildName & ".jpg"
If Dir(BildDatei) <> "" Then
ActiveSheet.Pictures.Insert(BildDatei).Select
End If
End If
End Sub
Mein nächstes Problem ist, ich möchte in D12, F12 und H12 ebenfalls das gleiche erreichen. Kopiere ich den Code und wechsle lediglich B12 mit D12 und B1 mit D1 aus, dann funktioniert zwar der erste mit B12 weiterhin, aber ein Eintrag in D12 führt zu keinem Ergebnis. Warum, was mach ich da falsch?
Vielleicht weiß jemand eine Lösung - wäre super!!
Erwin
Anzeige