|
soso "funktioniert auch nicht" - ich würde dir ja helfen, aber "funktioniert nicht" ist so gar keine Beschreibung mit der man was anfangen kann.
Deinem Code, wo auch immer du den her hast, mangelt es an Programmverständnis.
Set rngSource = Range(Cells(j, 2), Cells(j, 6)) erzeugt ein Objekt aus einer Zeile von Spalte 2 bis Spalte 6)
rngSource.Cells(j, 3).Value greift auf die Zeile j (beginnt bei 17) in Spalte 3 von rngSource zu.
rngSource hat aber nur eine Zeile und 5 Spalten . Somit mußt du anders zählen wenn du eine Zelle in rngSource ansprechen willst.
rngSource.Copy (wsTarget.Cells(i, 2)) die Klammern werden sicher al Fehlerr angezeigt. weil man die nicht braucht wenn es keine Zuweisung also z.b.ein "=" vor dem Ausdruck gibt. z.b. set x = function(parameter1, parameter2) aber function parameter1, parameter2
|