gibt es eigentlich einen Script, in der über die Listbox eine bestimmte Grafik/Bild angezeigt wird? Die Grafiken werden aus einer anderen Datei geholt oder auch von der CD-Rom.
liebe Grüße Roland
Private Sub UserForm_Initialize()
Set Stammblatt = Worksheets(Stamm)
Set Eingabeblatt = Worksheets(Eingabe)
Dim aRow As Long, i As Long
Me.lbxArtikel.Clear
For i = 3 To Stammblatt.Range("A3").End(xlDown).Row
Me.lbxArtikel.AddItem Stammblatt.Cells(i, 1)
Next i
End Sub
Private Sub lbxArtikel_Click()
Dim j As Integer, k As Integer, iSize As Integer
Dim cell As Range, ctrl As Control
Set Stammblatt = Worksheets(Stamm)
Dim t
Set t = Stammblatt.Range("A:A").Find(What:=lbxArtikel.Text, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)
If t Is Nothing Then Exit Sub
j = t.Row
Set t = Nothing
With Me
.tbxArtName = .lbxArtikel.Value
End With
End Sub