Wie suche ich mittels VBA nach einem Wert in einer anderen Datei?

Hallo, folgendes Problem: ich habe zwei Excel-Dateien, in beiden sind Datensätze mit eindeutigen Nummern. Jetzt soll es in Datei-A nacheinander jede Zeile der Spalte A nehmen, in Datei-B danach suchen und wenn es nicht gefunden wurde, soll es die nicht gefundene Zeile aus Datei-A in Datei-B an die letzte Stelle anfügen. Und das soll es mit jeder einzelnen Zeile aus Datei-A machen (also mit einer While-Schleife).

Kann mir wer helfen?

Answer 1

[PWolff]

Hier ein paar Zeilen aus einem Projekt von hier:

    MappeSchonGeöffnet = False
    Set Mappe = Nothing
    For j = 0 To Workbooks.Count - 1
      If Workbooks(j + 1).Name = AndereDateinamen(i) Then 'sch... Offset
        MappeSchonGeöffnet = True
        Set Mappe = Workbooks(j + 1)
        Exit For
      End If
    Next j

    If Not MappeSchonGeöffnet Then
      Set Mappe = Workbooks.Open(EigenerPfad + AndereDateinamen(i))
    End If

    WorksheetLog "Open/Activate", EigenerPfad, Mappe.Name

    'jetzt die einzelnen Arbeitsblätter durchgehen
    For k = 0 To Mappe.Sheets.Count - 1

        Set Mappe_Blatt = Mappe.Sheets.Item(k + 1) 'Sch...-Offset
        Mappe_Blattname = Mappe_Blatt.Name
        WorksheetLog "Activate", EigenerPfad, Mappe.Name, Mappe_Blattname
        'Mappe_Blatt.Activate

...

    WorksheetLog "Close/Deactivate", EigenerPfad, Mappe.Name
    If Not MappeSchonGeöffnet Then
        Mappe.Close
    End If

Die Zeilen durchgehen geht vermutlich besser mit einer For-Schleife:

zeilennrMax = Arbeitsmappe.Tabellenblatt.Cells.SpecialCells(xlLastCell).Row
for zeilennr = 1 to zeilennrMax
  ...

Woher ich das weiß: Berufserfahrung – Software-Entwickler