Hey,

ich möchte gerne die DIfferenz von Haben und Soll ausrechnen. Erstmal habe ich jeweils die Summe ausgerechnet anhand dieses Codes: 'Summe von 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 von 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

zur Zeit sieht mein Ergebnis so aus ich möchte auch das da abstände sind und nicht das alles in einem Haufen ist.ich hoffe jmd kann mir vielleicht helfen. Nach der Differenz soll eine Zeile leer sein. Es soll am Ende so aussehen: