Suchen über VBA in DB
06.02.2022 02:45:50
Kai
ich stehe vor einem Problemm mit meiner Suche.
Und zwar habe ich ein TB in der eine EAN Nummer eingeben wird "Scaner" in eine Zeile "S15"; mit dem Scanner bekomme ich auch die Nummer dort eingetragen und da der Scaner gleich eine Enter ausfüht befüllt er mir auch meine Zeilen über Wenn/Index-Formel.
So nun möchte ich noch ein Bild einfügen aus C:\meinOrdner\EAN\ "S15".jpg in Zeile "J31" siehe Makro:
Public Sub DR_ET_Bild_einfügen()
' Bild löschen, falls vorhanden
On Error Resume Next
tb_ET_DR.Shapes("EAN").Delete
On Error GoTo 0
Dim pic As Shape
Dim BildOrdner As String
BildOrdner = "C:\meinOrdner\EAN\" & Range("S15").Text & ".jpg"
With tb_ET_DR
If Dir$(BildOrdner) vbNullString Then
Set pic = .Shapes.AddPicture(Filename:=BildOrdner, linktofile:=msoFalse, _
SaveWIthDocument:=msoTrue, Left:=.Range("J31").Left + 1, _
Top:=.Range("J31").Top + 1, Width:=77, Height:=32)
pic.Name = "EAN"
Set pic = Nothing
End If
End With
End Sub
Wie kann ich das änder ?
Oder muss ich die ganze Suche über ein Makro schreiben ?
Wenn über ein Makro dann bitte ich um Hilfe:
-Hier die Daten für das Makro:
Aus "tb_DB" sollen wenn gefunden die Werte eingetragen werden
Zeile (0, 2) in "tb_ET_EAN" O31 + AA31
Zeile (0, 4) in "tb_ET_EAN" O32 + AA32
Zeile (0, 5) in "tb_ET_EAN" J27 + V27
Zeile (0, 10) in "tb_ET_EAN" V31
Zeile (0, 9) in "tb_ET_EAN" J31 = ist ein Hyperlink zum Bild vom EAN-Code "siehe oben im Makro"
Kann mir da jemand helfen bitte
Danke
LG
Kai