Hallo Leute!
Ich hab in Datei 1("Protokoll") ein Formular, das über VBA mit Fenstern nach und nach durch Eingaben in den Fenstern gefüllt wird.
Es handelt sich um ein VDE-Prüfprotokoll.
Jetzt habe ich in einer 2. Datei ("Pruefnummern") Zeilen mit Daten zu den Geräten.
Aufgebaut nach folgendem Schema:
A1 Prüfnummer B1 Typ C1 Hersteller ...
Ich will jetzt in ("Protokoll") über eine Userform mit einem Barcodescanner den Prüfcode scannen und es soll danach in der ("Pruefnummern") nach dieser suchen und dann die einzelnen Daten der Zeile in ("Protokoll") in die entsprechenden einfügen.
Das einfügen an sich ist kein Problem, kann die Daten ja in ein anderes Tabellenblatt laden und von da aus die Einzelzellen dann in die entsprechenden laden.
Mein Problem ist, nach zb. nach der Prüfnummer die eingescannt wurde: ("A1003") in der anderen Datei (Zelle A1)zu suchen und dann genau die komplette Zeile wo die Nummer drin steht zu kopieren und in die andere Datei einzufügen.
Hier die Details:
- im Dokument "Pruefnummern" stehen die Gerätedaten
- in diesem Dokument dann jeweils eine eigene Zeile wo die Gerätedaten drin stehen:
zb: A1 Prüfnummer (zb "A1001"); B1 Gerät (zb "Monitor1"); C1 Hersteller (zb "Samsung"); D1...
zb: A2 Prüfnummer (zb "A1005"); B2 Gerät (zb "Drucker"); C2 Hersteller (zb "Epson"); D2...
...
- diese werden dann im Dokument "Protokoll" über eine Userform abgefragt:
Textfeld "txtBarcode" zum die Prüfnummer (zb "A1001" oder "A1005") eintragen oder scannen
- Abfrage starten dann über einen CommandButton "cmdSuchen"
Wird über Schaltfläche "Geräte Daten laden" geöffnet
- Wenn er einen dieser Prüfnummern im Dokument "Pruefnummern" in Spalte "A" (A1, A2, A3, ...) gefunden hat, soll die komplette Zeile (zb.: A1 B1 C1...) wo diese gesuchte Prüfnummer drin steht, ins Dokument "Protokoll" in Tabellenblatt "Gerätedaten" so wie sie im anderen Dokument steht, in Zeile "2" (A2, B2, C2, ...) reinkopiert werden.
- die Verteilung der kopierten Zellen im Tabellenblatt "Gerätedaten" in die "Endzellen" bekomm ich hin
- Wenn die Nummer nicht gefunden wird, soll eine msgBox "Bitte Gerätedaten in Prüfnummerntabelle eintragen!" aufgehen und darüber informieren.
Sicher kann mir da jemand dabei helfen...
Vielen Dank schonmal!
Gruß Lars
|