Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
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
ppt.-Datei (per Barcodescan) in Tb öffnen
22.03.2017 16:53:52
Marvin
Grüßt euch,
ich verzweifle bei folgender Idee:
Ich habe:
Eine TextBox1 im Formular, keine Userform.
Einen Barcode 1AB4444
Eine PowerPoint Datei 1AB4444.ppt in einem Ordner gespeichert.
Einen Barcodescanner
Nun möchte ich folgendes Szenario realisieren:
Ich scanne mit dem Barcodescanner den Barcode 1AB4444 in die Formular-Textbox1 ein und möchte, dass sich die Datei 1AB4444.ppt aus dem dann bestimmten Ordner öffnet.
Es sind viele verschiedene Dateien im Ordner, daher möchte ich nicht nur eine bestimmte Datei öffnen sondern die, die in die TextBox eingescannt wurde.
Hoffe ihr habt einen Lösungsvorschlag und wisst weiter.
Mit besten Grüßen und Danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ppt.-Datei (per Barcodescan) in Tb öffnen
22.03.2017 18:53:39
ChrisL
Hi Marvin
Die Textbox mit einer Zelle verknüpfen und dann z.B. so...
Dim strPfad As String
strPfad = "C:\EinPfad\" & Worksheets("Tabelle1").Range("A1") & ".ppt"
ActiveWorkbook.FollowHyperlink Address:=strPfad, NewWindow:=True, AddHistory:=False
cu
Chris
AW: ppt.-Datei (per Barcodescan) in Tb öffnen
22.03.2017 21:16:28
Marvin
Hey Chris,
soweit funktioniert es gut, besten Dank.
allerdings gibt es eine Problematik. Da ich das Change-Ereignis verwende für die TextBox gibt es eine Fehlermeldung, sobald ich die TextBox leere oder ändere.
Ich würde dies gerne unterbinden, sodass ich in die TextBox scanne, die Datei sich demnach öffnet und sich die TextBox wieder leert, ohne das das Makro querschlägt.
Hoffe du hast auch hierfür eine Idee.
Beste Grüße und Danke
Anzeige
AW: ppt.-Datei (per Barcodescan) in Tb öffnen
23.03.2017 08:35:44
ChrisL
Hi Marvin
Entweder mit "On Error Resume Next" überspringen oder eine If-Abfrage:
If Worksheets("Tabelle1").Range("A1") <> "" Then
cu
Chris

46 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige