VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Max	Datum: 28.11.2016 09:43:30	Views: 942	Rating:	Antwort:
Thema: Vlookup aus zwei Workbooks
Hallo zusammen, ich versuche gerade über einen Vergleich via Vlookup eine Auswertung zu machen. Leider erhalte ich laufend Fehlermeldungen und finde den Fehler nicht. Ich denke der Fehler liegt irgendwo in den Argumenten der Vlookup-Funktion. Vielen Dank für eure Hilfe. [code=html] 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 Blacklist As Range Set WBSFMB = ThisWorkbook 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 WBSQ01.Worksheets("Sheet1").Cells(1, "AA").Value = "Abgleich GDNI" For i = 2 To lastZ2 WBSQ01.Worksheets("Sheet1").Range("A" & i).Value = WorksheetFunction.VLookup(WBSQ01.Worksheets("Sheet1").Cells(i, "A").Value, WBBlacklist.Worksheets("Leichen").Rows("A"), 1, False) Next End Sub [/code]

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen