ich versuche derzeit über den Barcode per Match die erste und letzte Zeile zu ermitteln, wo der Barcode steht.
Also wenn in A2, A3 und A4 1111 steht und in A5 dann 2222, dann soll er mir wenn ich Barcode 1111 eingebe, mir startzeile 2 und endzeile 4 ausgeben.
Die Startzeile funktioniert bei allen, aber die Endzeile macht das Problem.
Interessanterweise funktioniert das nur bei einem einzigen Barcode, der wie einige andere mittendrin ist: 4072
Bei einigen vorhandenen Barcodes gibt er als Endzeile die letzte Zeile der gesamten Liste aus und bei den beiden Barcodes 1190 und 2030 gibt es eine Fehlermeldung, weil er keine Endzeile findet ("Typen unverträglich").
Code
Sub Zeitdiagramm()
Dim linie As String, barcode As Integer, szeile, ezeile
linie = "R1"
barcode = Range("H8").Value
szeile = Application.Match(barcode, Worksheets(linie).Range("A:A"), 0)
ezeile = Application.Match(barcode, Worksheets(linie).Range("A:A"), 1)
MsgBox (szeile & " " & ezeile)
End Sub
Beispiel:https://www.herber.de/bbs/user/119985.xlsm
Danke im Voraus und liebe Grüße