Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen nach Wert aus Textfeld / öffnen von Links

Suchen nach Wert aus Textfeld / öffnen von Links
05.09.2017 10:59:45
Links
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. 
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

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen nach Wert aus Textfeld / öffnen von Links
05.09.2017 11:48:33
Links
Hi Manuel
Wenn du eine Liste mit Nummern (Spalte A) und Hyperlinks (Spalte B) hast, dann kannst du den Link z.B. nach B1 mittels SVERWEIS holen.
=SVERWEIS(A1;Tabelle2!A:B;2)
Dann den Link aus B1 holen z.B.
ThisWorkbook.FollowHyperlink Address:=Worksheets("Sheet1").Range("B1")
cu
Chris
AW:
06.09.2017 09:19:52
Manuel
Habe den Code noch einmal grundlegend überarbeitet.
[CODE] 

Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 7 Then
TextBox1.Text = Left(TextBox1.Text, 7)
End If
Worksheets("Sheet1").Range("G4").Value = Me.TextBox1
End Sub


Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink Address:=Worksheets("Sheet1").Range("I7")
ThisWorkbook.FollowHyperlink Address:=Worksheets("Sheet1").Range("I8")
TextBox1.Text = ""
End Sub
[/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
Anzeige
AW: AW:
06.09.2017 09:49:35
ChrisL
Hi
Probiere mal so...
Private Sub TextBox1_Change()
With TextBox1
If .Tag = "gesperrt" Then Exit Sub
If Len(.Text) > 7 Then
.Tag = "gesperrt"
.Text = Left(.Text, 7)
.Tag = ""
End If
End With
With Worksheets("Sheet1")
If WorksheetFunction.CountIf(.Columns(1), TextBox1) > 0 Then
Dim lZ As Long
lZ = Application.Match(TextBox1, .Columns(1), 0)
If .Cells(lZ, 2)  "" Then _
ThisWorkbook.FollowHyperlink Address:=.Cells(lZ, 2).Hyperlinks(1).Address
If .Cells(lZ, 3)  "" Then _
ThisWorkbook.FollowHyperlink Address:=.Cells(lZ, 3).Hyperlinks(1).Address
If .Cells(lZ, 4)  "" Then _
ThisWorkbook.FollowHyperlink Address:=.Cells(lZ, 4).Hyperlinks(1).Address
.Range("G4").Value = Me.TextBox1
TextBox1.Tag = "gesperrt"
TextBox1.Text = ""
TextBox1.Tag = ""
End If
End With
End Sub

cu
Chris
Anzeige
AW: AW: AW
07.09.2017 10:32:23
Manuel
Danke für die Antwort. Der Code funktioniert prinzipiell recht gut. Aktuell habe ich jedoch das Problem, dass die die ersten zwei aufgerufenen Links nicht mit denen in der Tabelle übereinstimmen. Komischerweise nur bei der Zeile 3 und 4. Bin ehrlich gesagt ein wenig überfragt warum dies so ist.
Aktuelle Version
https://www.herber.de/bbs/user/116068.xlsm
AW: AW: AW:AW
07.09.2017 11:26:51
ChrisL
Hi Manuela
In den betroffenen Zellen ist irgendwie noch ein alter Hyperlink drin.
Folgendes ergibt Wiki, obwohl der Link zu Google führt: 
Sub t()
MsgBox Range("B3").Hyperlinks(1).Address
End Sub
Erst der zweite Link ist korrekt Google. 
Sub t()
MsgBox Range("B3").Hyperlinks(2).Address
End Sub

Entweder löschst du die Links und erstellst neu. Oder du änderst und nimmst anstelle des Links den Zellen-Text (der aber nicht zwingend mit dem Link übereinstimmen muss).
If .Cells(lZ, 2) "" Then ThisWorkbook.FollowHyperlink Address:=.Cells(lZ, 2)
Die Hilfszellen in Spalten I:L brauchst du übrigens nicht mehr.
cu
Chris
Anzeige
AW: AW: AW: AW: AW
08.09.2017 10:24:09
Manuel
Vielen Dank für deine Hilfe. Das Programm läuft nun wie gewünscht. Jedoch habe ich eine neues Problem. Wenn ich die Hyperlinks aufrufe erscheint eine Warnmeldung bezgl. Viren und nicht vertrauenswürdigen Quellen etc. Hier muss mit "OK" bestätigt werden, dass der Link geöffnet wird.
Gibt es eine Möglichkeit diese Meldungen zu unterdrücken? Ich habe bereits den Befehl
Application.DisplayAlerts = False verwendet, jedoch ohne Erfolg.
Liegt dies daran dass die Meldung nicht vom Excel generiert wird, sondern von einem anderen Prozess?
Danke
AW: AW: AW: AW: AW
08.09.2017 10:59:40
ChrisL
Hi Manuela
Da müsstest du mal im Netz recherchieren. Es wird sich um eine Sicherheitseinstellung handeln, welche nur geändert werden kann, wenn du die Sicherheitseinstellung reduzierst. Mit DisplayAlerts o.ä. wird es nicht gehen, weil so die Sicherheit einfach ausgehebelt werden könnte. Evtl. könnte noch ein Sicherheits-Zertifikat helfen, aber auch da müsstest du dich einlesen.
cu
Chris
Anzeige

323 Forumthreads zu ähnlichen Themen

Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Anzeige
Zeichen links neben Zahl Löschen
Fenja

Hallo liebe Leute,
ich habe in einer Spalte, in der steht z. Besispiel in H3: blabla 7 blublu
Ich möchte in einer neuen Spalte rechts von H, alle Zeichen links neben der 7 gelöscht haben, so dass ab der 7 angezeigt wird.
Kann mir jemand helfen?
Lieben Dank
F.
20.11.2009 11:24:11
Thread-ID: 1118839
5 Beiträge
Zeichen in Sheet suchen und links löschen
Tom

Hallo!
ich habe folgendes Problem. In einer Tabelle habe ich eine Spalte (E), in der ich folgende Werte habe:
abcdefgh O\ 12345
oder auch
abcdefgh P\ 12345
ich müsste in jeder Zeile dieser Spalte alles links von O\ oder P\ löschen :
abcdefgh O\ 12345 --> O\ 12345
09.02.2010 15:13:34
Thread-ID: 1137079
6 Beiträge
von links 4 Leerzeichen entfernen
links

Hallo Forum,
ich benötige Hilfe.
In den ersten 4 Stellen eines Strings kann
entweder 1 einzelnes Leerzeichen oder mehrere
aufeinander folgende Leerzeichen auftreten.
Ich möchte diese, jedoch nur im Bereich der 1.Stelle bis
zur 4.Stelle von links entfernen.
Als Ergeb...
06.03.2011 10:57:24
Thread-ID: 1204429
3 Beiträge
Abschneiden von Text
Text

Hallo ihr Experten,
ich habe noch eine ganz simple Frage:
Gibt es eine Formel, mit der ich z.B. die ersten/letzten 3 Buchstaben in einer Zelle mit unterschiedlich langem Inhalt entfernen kann?
Bisher habe ich nix gefunden und alles in Word kopiert, da gelöscht und dann zurück.
A...
04.01.2014 00:40:25
Thread-ID: 1344055
5 Beiträge
Nach 3. Leerzeichen rest löschen
Bernd

Hallo liebe Excelgemeinde,
In Spalte A2:A... stehen Werte mit folgendem Aufbau:
123456789 SF301 5234-4587 M. dadada
oder
123456789 E0123 1234-5678 Tada DE
oder oder oder.
Nach dem 3. Leerzeichen kommt noch was.
Stehen bleiben soll nach Makrolauf:
123456789 SF301...
10.02.2015 11:19:22
Thread-ID: 1408351
11 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
6
2
9
4
5
2
4
10
1
4
6
4
7
4
4
14
3
2
5
9
45
3
1