14.11.2014, 20:31
Hallo an alle.
Habe ein Probleme mit einem Code, den ich gefunden habe.
Ich möchte diesen später verwenden, wenn er funktioniert um ein passendes Bild zu einer Artikelnummer anzeigen zu lassen.
Also wenn ich in einer Zeile eine Artikelnummer eingebe, soll er mir das passende Artikelbild, das ich in einem passenden Ordner gespeichert habe (als*.jpg) anzeigen.
Artikelnummern passen immer zu dem Artikelbild.
Ich habe einen Code, er funktioniert auch.
Doch wenn ich in der selben Zelle eine andere Artikelnummer eingebe, erscheint auch das passende Bild, legt sich aber über das vorige.
Kann mir jemand sagen wie ich diesen Code ändern muss, damit er immer das passende Bild anzeigt du beim Artikelwechsel auch nur das..also das andere verschwindet danach sofort.
Hier mein Code:
Option Explicit
Private Const PICTURE_PATH = "C:\Neuer Ordner\"
Private Const PICTURE_EXTENSION = ".jpg"
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objShape As Object
If Target.Address = "$A$1" Then
For Each objShape In Shapes
If objShape.TopLeftCell.Address = "$C$1" Then
objShape.Delete
Exit For
End If
Next
If Not IsEmpty(Target.Value) Then
If Dir$(PICTURE_PATH & Target.Value & PICTURE_EXTENSION) = vbNullString Then
MsgBox "Kein Bild zu Materialnummer ''" & Target.Value & _
"'' gefunden.", vbExclamation, "Hinweis"
Else
Set objShape = Me.Pictures.Insert(PICTURE_PATH & _
Target.Value & PICTURE_EXTENSION)
objShape.Top = Cells(1, 3).Top
objShape.Left = Cells(1, 3).Left
End If
End If
Set objShape = Nothing
End If
End Sub
Wäre toll, wenn mir jemand helfen kann, vielleicht hat auch einer von euch einen anderen besseren code? :)
Ich bin kein vba experte. ;)
Ganz kleiner Anfänger. ;)
Gruß Mike
Habe ein Probleme mit einem Code, den ich gefunden habe.
Ich möchte diesen später verwenden, wenn er funktioniert um ein passendes Bild zu einer Artikelnummer anzeigen zu lassen.
Also wenn ich in einer Zeile eine Artikelnummer eingebe, soll er mir das passende Artikelbild, das ich in einem passenden Ordner gespeichert habe (als*.jpg) anzeigen.
Artikelnummern passen immer zu dem Artikelbild.
Ich habe einen Code, er funktioniert auch.
Doch wenn ich in der selben Zelle eine andere Artikelnummer eingebe, erscheint auch das passende Bild, legt sich aber über das vorige.
Kann mir jemand sagen wie ich diesen Code ändern muss, damit er immer das passende Bild anzeigt du beim Artikelwechsel auch nur das..also das andere verschwindet danach sofort.
Hier mein Code:
Option Explicit
Private Const PICTURE_PATH = "C:\Neuer Ordner\"
Private Const PICTURE_EXTENSION = ".jpg"
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objShape As Object
If Target.Address = "$A$1" Then
For Each objShape In Shapes
If objShape.TopLeftCell.Address = "$C$1" Then
objShape.Delete
Exit For
End If
Next
If Not IsEmpty(Target.Value) Then
If Dir$(PICTURE_PATH & Target.Value & PICTURE_EXTENSION) = vbNullString Then
MsgBox "Kein Bild zu Materialnummer ''" & Target.Value & _
"'' gefunden.", vbExclamation, "Hinweis"
Else
Set objShape = Me.Pictures.Insert(PICTURE_PATH & _
Target.Value & PICTURE_EXTENSION)
objShape.Top = Cells(1, 3).Top
objShape.Left = Cells(1, 3).Left
End If
End If
Set objShape = Nothing
End If
End Sub
Wäre toll, wenn mir jemand helfen kann, vielleicht hat auch einer von euch einen anderen besseren code? :)
Ich bin kein vba experte. ;)
Ganz kleiner Anfänger. ;)
Gruß Mike
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
