Gruppe
Allgemein
Problem
Die Artikelnummern aus dem Blatt "Kriterien" sollen im Blatt "Daten" in Spalte A gesucht werden. Beim Auffinden sollen die Daten der Fundzeile in das Blatt "Gefunden" kopiert werden.
StandardModule: basMain
Sub SuchenFinden()
Dim wksCriteria As Worksheet, WksData As Worksheet
Dim wksTrue As Worksheet, wksFalse As Worksheet
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
Set wksCriteria = Worksheets("Kriterien")
Set WksData = Worksheets("Daten")
Set wksTrue = Worksheets("Gefunden")
Set wksFalse = Worksheets("NichtGefunden")
iRow = 2
Do Until IsEmpty(wksCriteria.Cells(iRow, 1))
var = Application.Match( _
wksCriteria.Cells(iRow, 1), WksData.Columns(1), 0)
If IsError(var) Then
iRowL = wksFalse.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksFalse.Rows(iRowL).Value = wksCriteria.Rows(iRow).Value
Else
iRowL = wksTrue.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTrue.Rows(iRowL).Value = WksData.Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub