Barcode

[schauan]

Hallöchen,

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

Also, wenn Du das Blatt zum Scannen des Barcodes verwendest, kann ich die Antworter schon verstehen.
Außer - Du hast an Deinem Bildschirm nur den Scanner und weder Tastatur noch Maus Könnte ja sein ...

Könnte aber auch sein, auf dem Feuerlöscher ist ein barcode, den Scannst Du ein und willst damit auf das zugehörige Excel-Blatt

Manche Märkte haben da ein Blatt mit diversen Artikeln - Bilder und Barcodes - und holen sich darüber den Preis in die Kasse. Gehwegplatten und Rasenborden haben ja meist keinen Barcodeaufkleber Ich weiß, ist vielleicht nicht der beste Vergleich

[Schmidti01]

Hallo die ganze Sache ist die der Barcode befindet sich auf der Innenseite von Atemschutz Masken und werden nach jeden gebrauch gereinigt und Desinfisziert und das wird mittels Datenblatt protokoliert und mit Barcode möchte ich das Datenblatt einlesen

[derHoepp]

Moin,

Das ist eine ziemlich grundsätzliche Sache. Aus Sicht von Datenverarbeitung macht es überhaupt gar keinen Sinn, für gleichartige Informationen unterschiedliche Blätter zu benutzen. Wesentlich sinnvoller wäre es, die Nummern der gereinigten Geräte einfach untereinander in eine einzige Liste einzutragen. 

Bei Bedarf schreibst du noch einen Zeitstempel dazu und hast damit alle Informationen über einen Autofilter parat.

Viele Grüße
derHöpp

[Schmidti01]

Hallo ralf_b leider geht der code bei mir nicht geht immer auf U E 02 egal welchen code ich eingebe 
übrigens habe office 365 2021
mfg Schmidti

[ralf_b]

ich kann dir leider nicht über die Schulter schauen. Hier eine kleine Ergänzung.

PHP-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.Name <> "Tabelle7" And Left(sh.Name, Len("Vorlage")) <> "Vorlage" Then
              If sh.Range("M2").Value = Target.Value Then
                sh.Activate
                Exit For
              End If
          End If
       Next
    End If
End If

End Sub