Office: Wert von Textfeld in Zelle schreiben / suchen nach diesem Wert in Worksheet

Hallo zusammen

Ich bin was VBA angeht noch ein absoluter Neuling und benötige Hilfe bei einem Problem.

Zur Ausgangslage:
Ich möchte in unserer Firma ein System einführen mit dem man mit Hilfe eines Barcodescanners und einer Excel-Datenbank Hyperlinks öffnen kann. Das Lesen des Barecodes mit Hilfe eines UserForm / Textfelds und das öffnen der Hyperlinks im IE funktioniert bereits.

Code:

Zu meiner Frage: Ich möchte den Wert welcher vom Barcodeleser gelesen wird in eine Zelle schreiben (bereits implementiert). Im Anschluss soll das Excel-Sheet nach besagter Nummer durchsucht werden. Wird die eingelesene Nummer gefunden sollen Hyperlinks welche in bestimmten Zellen abgelegt wurden geöffnet werden.

In meinem Code werden die Links nur geöffnet wenn der eingelesene Barcode einem definierten Wert (5036101) entspricht. Ich möchte aber wie oben beschrieben, dass das Worksheet nach dem eingelesenen Wert durchsucht wird.

Danke für eure Hilfe.

Gruss

Auch hier gepostet: http://www.office-loesung.de/p/posti...=166&p=3085215

:)

 

Habe den Code noch einmal grundlegend überarbeitet.

Code:

Arbeite jetzt mit SVERWEIS um bei einer Eingabe/Scan des Barcodes die Hyperlinks in eine Zelle zu schreiben, welche dann über FollowHyperlink aufgerufen werden. Soweit so gut.

Jetzt habe ich folgendes Problem:

1. Je nach gescanntem Barcode sollen unterschiedlich viele Hyperlinks geöffnet werden. Aktuell verweise ich mit FollowHyperlink auf spezifische Zellen. Befindet sich in einer Zelle auf welche ich verwiese kein Hyperlink bekomme ich eine Fehlermeldung. Gibt es eine Möglichkeit einen Bereich zu definieren in dem nach Hyperlinks gesucht wird? Oder eine Funktion welche einen Hyperlink öffnet, zur nächsten Zeile springt, wieder den Hyperlink öffnet etc bis eine Zelle keinen Hyperlink mehr enthält?

2. Aktuell muss ich die Eingabe des Barcodes mit einem Button bestätigen, da er sonst schon nach der Eingabe des ersten Buchstabens/Zahl das Programm ausführt. Gibt es eine Möglichkeit, dass das Programm wartet bis in der TextBox eine vollständige Eingabe durchgeführt wurde. Also beispielsweise auf die Eingabe eines 6-Stelligen Textes wartet und nach der Eingabe des letzten Buchstabens den nächsten Programmschritt ausführt.

Danke