|
Hallo Nochmal, erster Punk that sich erledigt, das ganze war so banal wie erwarted, aber mir ist es nicht aufgefallen, hab einmal auf die falsche reihe verwiesen.
summen werden jetzt korrekt berechnet.
ABER, in jeder zeile isnd die werte von F bis K gelöscht und in der letzten Zeile nach beenden des Makros ist Zeile F bis K selektiert..
restlichen Zeilen sind richtig befüllt.
was könnte da der grund sein?
Private Sub Datenübertragen()
Dim lrow1 As Integer
Dim lrow2 As Integer
Dim lcol As Integer
Dim i As Integer, x As Integer
Dim search As Variant
Dim y As Integer
Dim i2 As Integer
ws.Activate
lrow1 = Cells(Rows.count, 1).End(xlUp).Row
lrow2 = Srow
For i = Srow To lrow1
For x = 2 To lrow2
lcol = Cells(x, Columns.count).End(xlToLeft).Column
If Cells(i, 1).Value = Cells(x, 1).Value Then
Range(Cells(x, 6), Cells(x, lcol)).Copy
Range("F" & i).Select
ActiveSheet.Paste
i2 = i
i = i + 1
For y = 6 To lcol
ws.Cells(i, y) = Application.WorksheetFunction.SumIfs(Worksheets("Data_Input").Range("D:D"), Worksheets("Data_Input").Range("A:A"), ws.Cells(i2, y), Worksheets("Data_Input").Range("B:B"), ws.Cells(i2, 4))
Next y
End If
Next x
Next i
'Call CreateCharts
End Sub
|