Hey,
da ich an einem Automatisierung Projekt arbeite, brauche ich grad Hilfe. Zwar geht es darum, dass ich die DIfferenz von Haben und Soll bilden möchte. Zur Zeit kriege ich dieses Ergebnis wenn die Datei ausgelesen wird. Das ist der COde dazu :'Abstand
LastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = LastRow To 9 Step -1
If Cells(i, 14).Value = "" Or Cells(i - 1, 14).Value = "" Then
ElseIf Cells(i, 14).Value <> Cells(i - 1, 14).Value Then
Rows(i).Insert
End If
Next i
'Summe Soll
Dim currentSum As Double
For Each myCell In Worksheets(1).Range("K10:K1700")
If myCell = vbNullString Then
myCell = currentSum
myCell.Font.Bold = True
currentSum = 0
Else
currentSum = currentSum + myCell
End If
Next myCell
'Summe Haben
For Each myCell In Worksheets(1).Range("L10:L1700")
If myCell = vbNullString Then
myCell = currentSum
myCell.Font.Bold = True
currentSum = 0
Else
currentSum = currentSum + myCell
End If
Next myCell
End Sub
Ich möchte aber, das da Zeilen hinzugefügt werden und das ganze dann so aussieht:. DIe Excel Tabelle ist unterschliedlich lang und in jeder Kostenstelle wird die Differenz zwischen haben und soll berechnet. Ich hoffe jemand kann mir da weiterhelfen. Danke
|