Barcode

[Schmidti01]

Hallo wie kann ich meine Barcode mit einzelne Tabellenblätter verbinden
bez wie kann ich Tabelenblätter einen Barcod zuweisen

[steve1da]

Hola,
gehts etwas genauer?
Was verstehst du unter "verbinden" oder "zuweisen" genau?
Was soll mit einem bestimmten Barcode passieren?
Gruß,
steve1da

[Schmidti01]

Ich habe 20 Tabellenblätter und möchte jedes einzel mit einen Barcode ansprechen

[HKindler]

Was ich verstanden habe:

Wie kann ich mit einem Bleistift ein Fotoalbum anschauen?

Und auf die Nachfrage dann: Ich habe ein Fotoalbum mit 20 Bildern. Wie kann ich die einzeln mit einem Bleistift anschauen?

Oder anders gesagt: Häh?

[UweD]

Hallo


"... jedes einzel mit einen Barcode ansprechen "

was meinst du damit?

Du befindest dich auf einem Art Startblatt in einer bestimmten Zelle.

Willst du einen Barcode von einer Übersichtsliste (ausgedruckt) einscannen.
(Die Liste enthält die Namen der Tabellenblätter barcodiert dargestellt)

und soll dann dieses Tabellenblatt automatisch ausgewählt werden? 


LG UweD

[Schmidti01]

Ich habe eine Seite mit 20 Barcode ausgedrukt und Wartungsblätter und möchte ja nach Barcode den ich abscanne in das entschbrechente Wartungsblatt

[ralf_b]

dazu mußt du deinem Exel sagen das es das Blatt, dessen Namen in der Zelle, wohinein du gescannt hast, aktiviert. 
ich würde das mit einem Makro machen, das auf das Change Ereignis der Zelle reagiert. 
1. Idee
1. Frage: handelt es sich um eien Datei,die auf dem Rechner (lokal) liegt oder um eine Onlinedatei?
2. Frage: Wennn 1. = Ja    darfst du in der Excel-Umgebung VBA nutzen?

[Schmidti01]

Hallo ralf_b ja es liegt nur auf einen rechner und wird nur von der feuerwehr genutzt
ich könte vba nutzen nur kanne ich mich mit vba leider nicht so gut aus

---

  Vorlage Ultra Elite01.xlsm (Größe: 183,24 KB / Downloads: 10)
ich hoffe das geht

[ralf_b]

ins codemodul von tabelle 7

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet

If Target.Address = "$C$4" Then
    If Target.Value <> "" Then
       For Each sh In ThisWorkbook.Worksheets
          If sh.Range("M2").Value = Target.Value Then
             sh.Activate
             Exit For
          End If
       Next
    End If
End If

End Sub

[HKindler]

Hi,

Ich verstehe immer noch nicht den Sinn der ganzen Geschichte. Du hast also eine Datei mit 20 Blättern. Jetzt druckst du dir ein Blatt mit 20 Barcodes aus, die z.B. den Blattnamen codieren. Und nun willst du mit einem Scanner einen dieser Codes scannen und direkt in dem betreffenden Blatt landen?

Ist das nich so, als ob du beim 200m entfernten Bäcker Brötchen kaufen willst und dazu den Rolls Royce aus der Garage holst? Man könnte das auch mit dem Fahrrad (Hyperlinks auf der Startseite) oder zu Fuß (Klick auf die Registerkarte) erledigen.

Ein §canner macht doch nur Sinn, wenn ich ständig wechselnde oder viele unterschiedliche Eingaben habe. Und die nötigen Eingaben eben nicht aus einer Liste aussuchen muss, sondern diese direkt mit z.B. Gegenständen/Papieren verknüpft sind. Bei einer Ladenkasse macht das Sinn (die Barcodes sind auf dem jeweiligen Produkt) oder in einer Fertigung (die Begleitpapiere haben den Code für das Produkt und den Arbeitsgang). Aber es macht doch keinen Sinn einen kostspieligen Scanner anzuschaffen, um dann einen Code aus einer statischen Liste mit 20 Einträgen zu lesen. Da ist es doch einfacher in die Liste einzelne Zahlen oder Buchstaben zu schreiben und diese über die Tastatur einzugeben. Oder gleich die oben erwähnten Hyperlinks zu verwenden.