HERBERS Excel-Forum - die Beispiele

Thema: Artikelnummern nach Kriterien suchen und Datensätze kopieren

Home

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.

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen

Suchen und Löschen Suchen und Löschen
mehrere Wörter suchen VBA Zeile nach Wert durchsuchen
aus excel Worddatei nach Wert durchsuchen Objekt mit XML Inhalt durchsuchen
Spalte durchsuchen + IF Höchsten Wert suchen
Begriffe in Zeile suchen Inhalte von einer PDF suchen und den Text kopieren
Zwei Bedingungen suchen VBA Suchen, kopieren, einfügen
Wert suchen und ab Wert Zahlen addieren Find statt Formel nach Wert suchen lassen
String mit Buchstaben & Zahlen suchen und kopieren makro daten suchen
Fehlende Nummern via VBA suchen Range nach Werten durchsuchen und dann ausgeben
Zahlen raussuchen ohne Punkt. Problem mit =WENN(ISTBEZUG(SUCHEN(
Wort in Zelle suchen @ Tino (in Zeitraum Suchen)
Suchen und Kopieren mit Schleife In einem Zeitraum per VBA suchen
nächsthöheren Wert aus Tabelle suchen Wort in Matrix suchen und Zellenwert daneben ausge
Suchen - Ersetzen mit VBA in Formeln mit textbox wert suchen zeile in farbe
Teile aus Text suchen Buchstabenkombination suchen wenn gefunden Ausgabe
nach 2 Werten suchen und berechnen Text in einer anderen Zelle suchen
Tabelle durchsuchen, Zeile kopieren, einfügen In Array suchen
Wert suchen Wert suchen und ganze Zeile löschen
Inhalte von Textfeldern durchsuchen Add-In suchen lassen
Bearbeiten Suchen Spalten nach Wert durchsuchen
Daten in Matrix suchen und in Matrix schreiben Betrag zusammensuchen
Allgemeine Frage zur Fehlerbehandlung Werte in Tab1 suchen und in Tab2 einfügen
allgemeine Fragen zu einer Datenbank Word-Dateien durchsuchen
Wert in externer Datei suchen Suchen und Ersetzen
Nach bestimmter bedingter Formatierung suchen Makro Suchen