Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbank/Handscanner

Datenbank/Handscanner
Heiner
Hallo zusammen,
ich habe 6000 einzelne Excel Dateien erstellt und jede Datei ist mit einer vierstelligen Nummer abgespeichert. Meine frage ist ob man mit einem Handscanner einen Barcode ( 0001) einlesen kann. Und dann sollte z.b die Datei 0001 geöffnet werden. Oder man erstellt den Barcode mit Excel (0001) liest dann den Code ein und erstellt dadurch einen neuen Datensatz oder Excel Blatt.
Mit freundlichen Grüßen
Heiner

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

Betreff
Benutzer
Anzeige
AW: Datenbank/Handscanner
17.08.2009 08:37:20
Tino
Hallo,
Du kannst es so machen und mit dem Scanner die Zahl in eine bestimmte Zelle einscannen.
Hier ein Beispiel, hier habe ich die Zelle A1 in Tabelle1 gewählt.
kommt als Code in Tabelle1 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim strDatei As String 
 
'Ordnerpfad, auf \ am Ende achten 
Const strPfad As String = "E:\1 Forum\" 
 
'Zelle für Scanner 
 If Target.Address = "$A$1" And Target.Count = 1 Then 
    'ist die Eingabe eine Zahl und besteht aus 4 Zeichen 
    If IsNumeric(Target) And Len(Target) = 4 Then 
      Application.EnableEvents = False 
          'Dateiname erstellen 
          strDatei = Target.Value & ".xls" 
        If Dir(strPfad & strDatei) <> "" Then 
          'Datei öffnen 
          Workbooks.Open strPfad & strDatei 
        Else 
          MsgBox _
          "Die Datei" & vbCr & _
          strPfad & strDatei & vbCr & _
          "wurde nicht gefunden", vbCritical 
        End If 
      Application.EnableEvents = True 
    End If 
 End If 
 
End Sub
Du kannst es auch über eine Userform machen und in eine Textbox einscannen und diese auf das Change Ereignis reagieren lassen.
Gruß Tino
Anzeige
AW: Datenbank/Handscanner
17.08.2009 08:45:30
Mario
Hallo Heiner,
ich bin zwar kein Experte in dem Punkt aber prinzipiell kann man deine Frage mit ja beantworten - das geht.
Ein Barcodescanner über eine PS/2- Schnittstelle anschließen (gleiche wie Tastatur) und einen Barcode lesen ist nichts anderes als das Eingeben eines Zahlencodes über die Tastaur.
Das kann dann wiederrum ein Ereignis auslösen - bspw. das öffnen einer Datei in einem bestimmten Ordner. Dazu müsste man das Ändern des Blattes bspw. über Worksheet_Change abfangen. Das sollte gehen.
Einen Barcode erstellen geht auch ganze einfach. Dazu gibt's Plug-Ins im Internet.
Ich geh mal davon aus, dass du gute Gründe hast 6000 Einzeldateien anzulegen und nicht auf bspw. Access zurückzugreifen um die Daten zu pflegen.
Gruß
Mario
Anzeige
AW: Datenbank/Handscanner
17.08.2009 08:50:58
Fettertiger
Hallo Heiner,
als Altrnative zum Barcode Plugin kannst Du auch die kostenlose "Free-3-of-9" Barcode - Schriftart verwenden. Das einzige was Du dabei beachten musst, ist, jeweils vor und nach deinem Barcode "*" als Start-oder-stopbit zu setzen. Sonst sieht Dein barcode zwar richtig toll aus, lässt sich aber leider nicht mit einem Scanner lesen.
Gruss
Fettertiger

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige