Letzte Zeile finden und Bereich davor prüen
09.06.2016 15:03:30
VbKey
Ich benötige eure Hilfe.
Ich habe eine Tabelle in der in Zeile B Serie Nummern eingetragen werden. Nach dem Eintrag soll der eingetragene Wert in einem Bereich von 160 Zellen (entspricht einer Sendung) davor auf Duplikate geprüft werden. Falls die Serie Nummer bereits vorhanden ist sollte der Eintrag wieder gelöscht werden und eine Userform geöffnet werden.
Hier meinen aktuelle Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 2).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(2), Cells(iRow, 2)) > 1 Then
Rows(iRow).Delete
Unload ScanUserform
DoppelUserForm.Show
End If
Next iRow
End Sub
Danke für eure Tipps bereits jetzt.
Gruss