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.
Private Sub TextBox1_Change()
Worksheets("Sheet1").Range("A1").Value = Me.TextBox1
If TextBox1.Value = "5036101" Then
Set wshshell = CreateObject("WScript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate2 "http://www.google.com"
While objIE.ReadyState
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