Hallo. in einem Makro will ich aus einer Qelldatei Daten in der Zieldatei aktualisieren. Das läuft über eine Schleife
Sub (test)
Workbooks("Depot.xlsx").Sheets("Arbeitsblatt1").Select
Dim rng As Range
Dim iRow As Integer
Dim wkn As String
iRow = 1
For iRow = 1 To 130
wkn = Right(Cells(iRow, 1), 6)
Set rng = ThisWorkbook.Worksheets("Depotveränderung").Columns(1).Find(what:=wkn, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
Range(rng.Offset(0, 25), rng.Offset(0, 25)).Value = _
Range(Cells(iRow, 5), Cells(iRow, 5)).Value
Range(rng.Offset(0, 24), rng.Offset(0, 24)).Value = _
Range(Cells(iRow, 4), Cells(iRow, 4)).Value
Range(rng.Offset(0, 23), rng.Offset(0, 23)).Value = _
Range(Cells(iRow, 3), Cells(iRow, 3)).Value
Range(rng.Offset(0, 22), rng.Offset(0, 22)).Value = _
Range(Cells(iRow, 2), Cells(iRow, 2)).Value
Range(rng.Offset(0, 21), rng.Offset(0, 21)).Value = _
Range(Cells(iRow, 1), Cells(iRow, 1)).Value
enf if
next row
end sub
Eigentlich läuft das Programm..- nur wird beim ersten Schleifendurchlauf nur die Spalte "25" aktualisiert, die anderen Spalten21-24 bleiben leer. Ab dem zweiten Schleifendurchlauf werden dann in Folge wie vorgesehen alle Spalten 21-25 mit den Daten aus der Quelldatei überschrieben. Hab keine Ahnung mehr wo der Fehler liegt, kann jemand helfen? Danke.