zunächst vielen Dank an Franz der mir mit seinem letzten Code sehr geholfen hat.
ich habe folgenden Code,der problemlos funktioniert , was muß ich tun damit ich ihn in einer Userform benutzen könnte ,will heißen ich möchte in ein textboxs scannen ,und die Abfrage ergebnisse sollten dann auch in der Userform (Label1,2 ,3) ? dargestellt werden ,weiterhin wie wäre es möglich eventuel noch ein jpg. oder png in der Userform bezogen auf das Suchergebnis anzuzeigen ?
Sub AChange(ByVal Target As String)
Dim zCountneu As Long, zCount As Long, Artikel As String
Dim Rx As Range
Worksheets("A").Activate
Artikel = CStr(Target)
zCountneu = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Rx = Worksheets("A").Range("A1")
zCount = PruefeArtikelnr(Artikel)
If zCount > 0 Then
Rx.Offset(zCount - 1, 1).Value = Rx.Offset(zCount - 1, 1).Value + 1
Rx.Offset(zCount - 1, 2).Value = Format(Now(), "dd/mm/yy hh:mm")
ElseIf Artikel "" Then
Rx.Offset(zCountneu - 1, 1).Value = 1
Rx.Offset(zCountneu - 1, 0).Value = Artikel
Rx.Offset(zCountneu - 1, 2).Value = Format(Now(), "dd/mm/yy hh:mm")
End If
Worksheets("E").Range("D2").Value = ""
Worksheets("E").Activate
Worksheets("E").Range("D2").Select
Application.EnableEvents = True
Call Suchen(Artikel) 'Artikel in Blatt "Master" suchen
End Sub
Function PruefeArtikelnr(Artikel$)
Dim Rx As Range
With Worksheets("A")
'in Spalte A Artkel-Nrn vergleichen
For Each Rx In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
If CStr(Rx.Value) = Artikel Then
PruefeArtikelnr = Rx.Row
Exit For
End If
Next
End With
End Function
Private Sub Suchen(sArtikelNr As String)
Dim Zelle As Range, wksMaster As Worksheet, Zeile As Long
Set wksMaster = Worksheets("Master")
With wksMaster
'suche Zelle mit ArtikelNr in Spalte A (1)
Set Zelle = .Columns(1).Find(what:=sArtikelNr, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Artikel-Nr.: " & sArtikelNr & vbLf & "keine Daten vorhanden", _
vbOKOnly + vbInformation, _
"Artikel einscannen - Daten in Blatt " & .Name
Else
Zeile = Zelle.Row
MsgBox "Artikel-Nr.: " & sArtikelNr & vbLf _
& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
& "Projekt: " & .Cells(Zeile, 3).Text, _
vbOKOnly + vbInformation, _
"Artikel einscannen - Daten in Blatt " & .Name
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
'& "Artikelbezeichnung: " & .Cells(Zeile, 2) & vbLf _
& "Projekt: " & .Cells(Zeile, 3).Text, _
vbOKOnly + vbInformation, _
"Artikel einscannen - Daten in Blatt " & .Name
End If
End With
End Sub
Vielen Dank René