Forum des VBA-Tutorials

Vlookup mit zwei dateien (VBA)

Max, Freitag, 25. November 2016, 14:37 (vor 387 Tagen)

Hallo zusammen ich würde gerne zwei Spalten in unterschiedlichen Dateien per Vlookup miteinander vergleichen. Dabei soll die Spalte A der einen Datei mit der Spalte A der anderen Datei verglichen werden. Leider erhalte ich immer einen Fehler kann mir einer helfen???


Public WBSFMB As Workbook, WBSQ01 As Workbook, WBCycledatei As Workbook, WBZIW67 As Workbook
Public ExportDatei1 As Variant, ExportDatei2 As Variant, ExportDatei3 As Variant
Sub Test()
Dim IngLast As Double, letztezeile1 As Double
Dim lastZ As Integer
Dim Bereich As Range


Set WBSFMB = ThisWorkbook
ChDir "H:\RepairServices\001_Office_Organisation\040_Students\PVRC\012_Maximilian Maevert\SFM Board\Daten\SQ01\"
ExportDatei1 = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die gewünschte SQ01-Auswertung auswählen")
If ExportDatei1 = "Falsch" Then Exit Sub
        
Set WBBlacklist = Workbooks.Open("H:\RepairServices\001_Office_Organisation\040_Students\PVRC\012_Maximilian Maevert\SFM Board\Daten\Blacklist.xlsx")
Set WBSQ01 = Workbooks.Open(ExportDatei1)

lastZ1 = WBBlacklist.Worksheets("Leichen").Range("A65536").End(xlUp).Row
lastZ2 = WBSQ01.Worksheets("Sheet1").Range("A65536").End(xlUp).Row
MsgBox lastZ1

Blacklist = WBBlacklist.Worksheets("Leichen").Range("A1:A" & lastZ1)

For i = 2 To lastZ2
WBSQ01.Worksheets("Sheet1").Range("AA" & i) = WBSQ01.Worksheets("Sheet1").Worksheetsfunction.VLookup(WBSQ01.Worksheets("Sheet1").Range("A" & i), Blacklist, 1, False)
Next
End Sub

Vlookup mit zwei dateien

Martin Asal, Samstag, 26. November 2016, 19:50 (vor 386 Tagen) @ Max

Hallo Max,

ich würde gerne zwei Spalten in unterschiedlichen Dateien per Vlookup miteinander vergleichen

Was genau meinst du mit "vergleichen"? Prüfen, ob z.B. in Zelle "A5" der gleiche Wert enthalten ist? Und was soll passieren, wenn die Werte übereinstimmen? Ist die Reihenfolge der Zeilen relevant, oder darf der Wert aus z.B. "A5" in der einen Tabelle zwar nicht in "A5" der zweiten Tabelle vorkommen, aber durchaus z.B. in "A6"?

Leider erhalte ich immer einen Fehler kann mir einer helfen???

Welchen? In welcher Codezeile?

Martin

RSS-Feed dieser Diskussion
powered by my little forum