ich komme einfach nicht auf meinen Fehler. Ich möchte die aktualisierungen aus datei change in datei current eintragen lassen. aber der wert chlook wir nicht so übernommen wie ich mir das denke.
eigentlich sollte dort die jeweilige nr aus dem ersten feld der current datei stehen um diese mit der nr der change datei zu vergleichen.
Habe code gepostet und hoffe auf eure Hilfe. Vieleicht ein paar tips wie ich besser programmieren lerne
Vielen Dank im Voraus
Oliver
Sub change()
iRow = 2
iRowTg = 4
change_Path = "D:\Data\Common\P008478 Inesco CHP Plant Antwerp\LoP 'n' NCRs\051 LoP's\051.2 _
Essent LoP\"
change_File = "essent LoP change.xls"
If WkbExists("essent LoP change.xls") = False Then
Workbooks.Open change_Path & change_File
End If
Do Until IsEmpty(Workbooks("essent LoP change.xls").Worksheets("changeLoP").Cells(iRow, 1))
LoPNr = Workbooks("essent LoP change.xls").Worksheets("changeLoP").Cells(iRow, 1)
iCol = Workbooks("essent LoP change.xls").Worksheets("changeLoP").Cells(iRow, 2)
content = Workbooks("essent LoP change.xls").Worksheets("changeLoP").Cells(iRow, 3)
chlook = Workbooks("essent LoP current.xls").Worksheets("essentLoP").Cells(iRowTg, 1)
Do While chlook ""
If chlook = LoPNr Then
Workbooks("essent LoP current.xls").Worksheets("essentLoP").Cells(iRowTg, iCol). _
Value = content
End If
iRowTg = iRowTg + 1
Loop
Workbooks("essent LoP change.xls").Worksheets("changeLoP").Activate
iRow = iRow + 1
Loop
Workbooks("essent LoP change.xls").Close
End Sub