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?
1 Antwort
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