Danke für deinen Hinweis,
Aber meine Frage ist wie soll das funktionieren denn die Zelle existiert ja noch gar nicht, soll heissen in dem Code werden ja erst die Daten aufbereitet und nach copy stehen sie erst im neuen Sheet.
Also ich kann doch nicht vorher schon auf eine Zelle Verweisen die erst entsteht.
Da ist meiner Meinung nach der Ansatz nicht richtig, ich habe es auch getestet hier der Coder der zwar durchläuft aber nichts bewirkt.
If Not blngefunden Then
.Cells(lrow, 8) = Application.Index(Worksheets("Daten").Range("A1:J20"), WorksheetFunction.Match(vInput(i, 1), Worksheets("Daten").Range("A1:A32"), 0), WorksheetFunction.Match("PAL", Worksheets("Daten").Rows(1), 0) + 1)
If .Cells(lrow, 8) = 1 Then
.Cells(lrow, 10) = Application.Index(Worksheets("Daten").Range("A1:J20"), WorksheetFunction.Match(vInput(i, 1), Worksheets("Daten").Range("A1:A32"), 0), WorksheetFunction.Match("PAL", Worksheets("Daten").Rows(1), 0) + 2)
Else
.Cells(lrow, 11) = Application.Index(Worksheets("Daten").Range("A1:J20"), WorksheetFunction.Match(vInput(i, 1), Worksheets("Daten").Range("A1:A32"), 0), WorksheetFunction.Match("PAL", Worksheets("Daten").Rows(1), 0) + 2)
End If
Vielen Dank
|