Hallöchen,
ich hab da mal eine Frage:
Ich versuche Einträge in einer Spalte zu finden die nicht im Array vorkommen und dann in der nächsten Spalte bei "nicht" gefundenen Treffer ein "L" einzutragen.
Wenn ich
Wenn ich aber das
Muss ich irgendwie anders vorgehen um das
Freue mich über Feedback.
EDIT: Ich vermute ja mal, weil in der zweiten Schleife natürlich im jeweiligen Versuch ein nicht Vorhandensein passiert, dass ich die Schleife abändern muss, oder?
ich hab da mal eine Frage:
Ich versuche Einträge in einer Spalte zu finden die nicht im Array vorkommen und dann in der nächsten Spalte bei "nicht" gefundenen Treffer ein "L" einzutragen.
Wenn ich
If Mid(ws.Cells(i, 1), 2, 7) = arrHMV(j) Then ws.Cells(i, 2) = "L"
verwende, werden die gefunden die im Array vorkommen.Wenn ich aber das
Not
eintrage (weil mir geht es ja um die nicht im Array vorkommen) werden alle Einträge in der Liste mit einem "L" versehen.Muss ich irgendwie anders vorgehen um das
Not
zu verwenden?Visual Basic-Quellcode
- Public Sub LetterLInserter()
- Dim arrHMV() As Variant
- Dim i, j As Integer
- Dim iRows As Long
- Set wb = ActiveWorkbook
- Set ws = wb.ActiveSheet
- iRows = ws.Cells(Rows.Count, 1).End(xlUp).Row
- arrHMV = Array(1050010, _
- 1050011, _
- 1050012, _
- 1050013, _
- 1050014, _
- 1050020, _
- 1050021, _
- 1050022)
- Application.ScreenUpdating = False
- For i = 2 To iRows
- For j = LBound(arrHMV) To UBound(arrHMV)
- If Not Mid(ws.Cells(i, 1), 2, 7) = arrHMV(j) Then ws.Cells(i, 2) = "L"
- Next j
- Next i
- Application.ScreenUpdating = True
- End Sub
Freue mich über Feedback.
EDIT: Ich vermute ja mal, weil in der zweiten Schleife natürlich im jeweiligen Versuch ein nicht Vorhandensein passiert, dass ich die Schleife abändern muss, oder?