2 Barcodes, 1x suchen, 1x einfügen

Forumthread: 2 Barcodes, 1x suchen, 1x einfügen

17.01.2025 10:36:16

GerdEnpunkt

Hallo zusammen,

kann mir jemand hier behilflich sein?
Wir erstellen DHL-Versandlabel, hier wird ein Bauteil mit einer Seriennummer die als Barcode auf dem Teil ist versendet.
Der Kunde wünscht die Versandliste mit dazugehöriger Seriennummer als Sendungsnachweis.
Wir erzeugen aus dem Versandprogramm eine CSV-Datei die Name, Straße, Ort, Sendungsnummer enthält.
Die Liste wird dann um die Spalte Teilenummer ergänzt.
Scan 1 = DHL-Label
dann sollte in die Zeile der Sendungsnummer ins Feld "Seriennummer" gesprungen werden,
Scan 2 = Seriennummer des Bauteils
hier sollte dann die Nummer des Barcodes Bauteil eingefügt werden
Dies wiederholt sich dann, bis alle Sendungen verpackt sind.

Hat mir dazu jemand ein passendes Script?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 Barcodes, 1x suchen, 1x einfügen

17.01.2025 11:56:22

daniel
AW: 2 Barcodes, 1x suchen, 1x einfügen

17.01.2025 12:37:15

UweD
Änderung

17.01.2025 13:23:43

UweD

AW: 2 Barcodes, 1x suchen, 1x einfügen

17.01.2025 11:56:22

daniel

kann man erstellen.
fertig haben wird es wahrscheinlich keiner?
wenn du das beruflich machst und dir ein fertiges Skript dafür erstellen lassen möchtest, solltest du dir jemanden suchen, der das erstellen von Skripten ebenfalls beruflich macht.
Gruß Daniel

AW: 2 Barcodes, 1x suchen, 1x einfügen

17.01.2025 12:37:15

UweD

Hallo

Hier ein Lösungsvorschlag
Da du die Datei jedes mal neu als CSV neu erstellst, muss der Code in die Personal.xlsb
Du kannst aber das Starten über eine Tastenkombination einstellen

Der Scanner ist so programmiert, dass ein Enter mitgesendet wird

- Die CSV ist geöffnet, aktiv und deine Daten sind eingetragen
- Spalte Sendungsnummer ist noch leer

- Makro ausführen
- - hinten wird die Überschrift Teilenummer ergänzt
- - Nur die Zellen, die gescannt werden sollen bleiben dann änderbar (Blatt ist gesperrt)
- - das erste Scannfeld (D2) ist ausgewählt

- nun kannst du scannen
- nach dem ersten Scan wird die Folgezelle in der gleichen Zeile ausgewählt
- nach dem 2. Scan ist wieder Spalte D der nächsten Zeile aktiv usw...

Sub Versenden()

    Dim Z1 As Integer, S1 As Integer, LR As Integer

    

    With ActiveWorkbook.ActiveSheet

        Z1 = 2 'Daten stehen ab Zeile 2 wegen Überschrift

        S1 = 1 'Daten stehen ab Spalte A

        

        LR = .Cells(.Rows.Count, S1).End(xlUp).Row 'letzte Zeile der Spalte

    

        'Spaltenname ergänzen

        .Range("E1") = "Teilenummer"

        

        'umstellen Nach Enter erst nach Rechts

        Application.MoveAfterReturnDirection = xlToRight

        

        'Nur die Scannfelder freigeben

        .Cells(Z1, "D").Resize(LR - Z1 + 1, 2).Locked = False

        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

        ActiveSheet.EnableSelection = xlUnlockedCells

        

        'erstes Scanfeld auswählen

        .Cells(Z1, "E").Select

    End With

End Sub

LG UweD

Änderung

17.01.2025 13:23:43

UweD

Hallo

Ich hatte nicht berücksichtigt, dass du ja erst suchen möchtest

Code in eine Modul in Personal.xlsb (Tastenkombi zuordnen)

Sub Versenden()

    Dim Z1 As Integer, LR As Integer

    Dim RNG As Range, Finde As Variant, Zeile As Integer

    

    With ActiveWorkbook.ActiveSheet

        Z1 = 2 'Daten stehen ab Zeile 2 wegen Überschrift

        

        LR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte

    

        'Spaltenname ergänzen

        .Range("E1") = "Teilenummer"

        

        Set RNG = .Cells(Z1, "E").Resize(LR - Z1 + 1, 1)

        

        If WorksheetFunction.CountBlank(RNG) = 0 Then GoTo Ende

            Do Until WorksheetFunction.CountBlank(RNG) = 0

                Finde = InputBox("Scan DHL")

                If Finde > "" Then

                    If WorksheetFunction.CountIf(RNG.Offset(0, -1), Finde) > 0 Then

                        Zeile = WorksheetFunction.Match(Finde, RNG.Offset(0, -1), 0)

                        RNG.Cells(Zeile, 1) = InputBox("Scan Teilenummer")

                    Else

                        MsgBox Finde & ": Nicht gefunden"

                    End If

                End If

        Loop

    End With

Ende:

    MsgBox "Alle Felder sind gefüllt"

End Sub

Der Scan erfolgt nun in Inputboxen so lange, bis alle Teilenummern gefüllt sing

LG UweD

2 Barcodes, 1x suchen, 1x einfügen

Forumthread: 2 Barcodes, 1x suchen, 1x einfügen

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread