habe folgendes Problem
habe mir eine UF erstellt mit mehreren Textboxen, über die ich Werte aus einer Tabelle einlese und mir anzeigen lassen. Es handelt sich hierbei um eine Artikelverwaltung.
Nun möchte ich gerne bei dieser Abfrage in ein Label mir das entsprechende Bild des Artikles anzeigen lassen. Das Bild hat die gleiche Bezeichnung wie der Artikel selbst. Habe einen Ordner "Eigene Datei\Artikel\Bilder angelegt". Kann mir hierzu eventuell jemand helfen.
Mit dem folgenden Code lese ich die Daten ein:
Private Sub TextBox1_Change()
Dim varRow
Dim rZellen As Range
Dim i As Integer
If TextBox1 "" Then
With Sheets("Einsatzgewichte")
varRow = Application.Match(TextBox1, .Columns(1), 0)
If IsNumeric(varRow) Then
i = 1
For Each rZellen In .Cells(varRow, 2).Resize(, 26)
i = i + 1 'Zähler für TextBo2 bis TextBox26
Me("TextBox" & i) = rZellen
Next rZellen
End If
End With
End If
If i