Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit einen Scanner daten anzeigen lassen und Kopier

Mit einen Scanner daten anzeigen lassen und Kopier
24.07.2018 16:54:55
Steve
Hallo zusammen.
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit einen Scanner daten anzeigen lassen und Kopier
25.07.2018 09:27:54
PeterK
Hallo

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)
'Gesuchte Sachnummer und Artikel Bezeichnung Kopieren und Einfügen
If Not rngFind Is Nothing Then
Sheets("Bestelliste2018").Range("C13").Value = Worksheets("Datenbank").Cells(rngFind. _
Row, 1)
Sheets("Bestelliste2018").Range("C16").Value = Worksheets("Datenbank").Cells(rngFind. _
Row, 2)
Else
MsgBox "Sachnummer wurde nicht gefunden"
End If
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige