Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikelnummern nach Kriterien suchen und Datensätze kopieren

Gruppe

Suchen

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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