2016-08-05 10 views
0

Ich möchte einen Code in VBA machen meine Arbeit effizienter zu machen und brauche Hilfe von guten Gehirnen, das zu tun. Ich habe es viele Male selbst versucht, aber ich finde keinen Weg es zum Laufen zu bringen. Hier ist mein Problem:Vlooup in Arbeitsmappe zu und Einfügen in eine andere Arbeitsmappe in einer bestimmten Spalte, die eine Zeile jeden Tag wechseln

Ich habe einen Wert in Spalte AI muss in Arbeitsmappe1 und Arbeitsblatt2 finden, die den Suchwert für den Wert in Spalte Q ist. Die gleiche Arbeitsmappe wird aus einer Internetquelle abgerufen und die Anzahl der Zeilen ist dynamisch, da sich die xls-Datei jeden Tag ändert. Außerdem möchte ich den Vlookup-Wert in Workvbook2 und Worksheet2 in Spalte B einfügen. Die Anzahl der Zeilen wird jedes Mal um eine Zeile erhöht, wenn eine Zelle gefüllt ist. Daher brauche ich einen ersten blanken Zeilencode. Arbeitsmappe 2 ist bereits geöffnet.

Gibt es jemanden da draußen, der mir bei diesem Problem helfen kann?

Vielen Dank im Voraus !!!

+0

Was haben Sie bisher versucht? StackOverflow ist keine "Code this for me" -Seite. –

Antwort

0

das ist, was ich versucht habe, und ich kann nicht meinen Kopf um, wie man den vlookup Teil des Codes zu integrieren.

Sub vlookup()

Dim SourceLastRow As Long Dim OutputLastRow As Long Dim Sourcebook als Arbeitsmappe Dim sourceSheet Wie Arbeitsblatt Dim outputSheet Wie Arbeitsblatt Application.ScreenUpdating = True

‚Quelle Arbeitsmappe Set sourebook = Workbooks.Open ("https://sharepoint.com/sites/investorservice/Delte%20dokumenter/Arbeidsrutiner/Behandling%20av%20tegninger.xlsx")

'Arbeitsblätter Set sauer ceSheet = sourceBook.Worksheets ("Sheet2") Set outputSheet = ThisWorkbook.Worksheets ("Sheet2")

'hier muss ich eine vklookfunction in Sourcesheet definieren. outputSheet.Cells (Rows.Count, 1) .End (xlUp) .Offset (2, 0) .PasteSpecial xlPasteValues ​​ Application.CutCopyMode = False Application.ScreenUpdating = True

End Sub

Verwandte Themen