Geschichte kurz vorm.
Ich habe eine Aufgabe bekommen und wühle mich durch Foren und Codes
Bislang für mein Level komm ich langsam voran, aber leider komme ich nicht voran in Bezug auf eine Nuss die ich nicht Knacken kann.
Vielleicht hab ihr ja einige Ideen um mir das Verständlich zu erläutern.
Anbei sende ich auch ein Stück meiner Datei mit.
Mein Problem ist das ich mit einem Scanner über ein such Makro die Zahl und den Artikel finde in meiner Datenbank aber ich bekomme es nicht hin das die Werte in einer anderen Tabelle in bestimmten Punkten geschrieben werden von der Datenbank.
In den Grau markierten Feldern sollen die Sachnummer & Bauteilbezeichnung: / kopiert werden sollen von der Datenbank über einer Button Steuerung.
Hier mal ein Auszug von meiner Codierung.
Sub suchen()
Dim rngFind As Range
Dim strTitel As String
'suchdialog kreieren
strTitel = InputBox("Suche nach:", "Suchbegriff eingeben", , 5, 5)
'zu durchsuchenden spaltenumfang angeben
Set rngFind = Columns("A:B").Find(strTitel, LookIn:=xlFormulas)
Application.CutCopyMode = True
Selection.Copy
Sheets("Bestelliste2018").Select
Range("D15").Select
ActiveSheet.PasteSpecial
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Sachnummer wurde nicht gefunden"
End If
End Sub
Ich hoffe jemand kann mir helfen.Danke im Voraus
https://www.herber.de/bbs/user/122860.xlsm