Match NOT
20.02.2018 07:13:39
Burak
ich sitze gerade daran einen Bereich aus einer Tabelle zu ermitteln.
die erste Zeile des Bereichs ermittle ich über
Dim barcode, linie, szeile, ezeile
barcode = InputBox("Bitte geben Sie einen Barcode ein!")
linie = InputBox("Bitte geben Sie eine Linie ein!")
szeile = Application.Match(barcode, Worksheets(linie).Range("A:A"),0)
Nun sitze ich davor das Ende des Bereiches zu ermitteln. Der Bereich ist von der szeile bis dahin, wo das erste Mal der Barcode NICHT mehr in Spalte A steht.Mein Versuch war:
ezeile = Application.Match(""barcode, Worksheets(linie).Range("A" & szeile & ":A"),0) + szeile
bzw.ezeile = Application.Match("barcode", Worksheets(linie).Range("A" & szeile & ":A"),0) + szeile
undezeile = Application.Match(barcode, Worksheets(linie).Range("A" & szeile & ":A"),1) + szeile
Beim Ersten kriege ich eine Fehlermeldung, beim Zweiten gar kein Ergebnis.Das dritte liefert zwar ein Ergebnis, gibt aber immer die erste leere Zelle an.
Jemand eine Idee?
Danke