Bedingung für Code in Nachbarzelle
Tim
ich habe einen Code, mit dem ich Bilder anzeigen lasse, wenn man in Spalte C klickt und ein entsprechendes Bild vorhanden ist.
Weiss jemand von Euch, was ich ergänzen muss, wenn ich folgende Voraussetzung an den Beginn stellen möchte ?
1) Bei Klick in Spalte C, prüfe als erstes, ob ein Eintrag in der jeweiligen Nachbarzelle (in Spalte D) vorhanden ist.
2) Wenn die Nachbarzelle (in Spalte D) leer ist, Exit Sub.
3) Wenn die Nachbarzelle (in Spalte D) nicht leer ist, führe den Code weiter aus:
Hier der betreffende Code-Teil:
If Target.Column = 3 And Target.Count = 1 Then
If Target "" Then
strFile = imagePath & IIf(Right(imagePath, 1) "\", "\", "") & Target.Value & ".jpg"
strFile = Replace(Replace(strFile, vbLf, ""), vbCrLf, "")
If Dir(strFile) "" Then
On Error Resume Next
VG und vielen Dank Euch im Voraus für alle Tipps, Tim