Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisierung
 20.07.2020 21:30:29 Lia
NotSolved
20.07.2020 23:48:18 Mase
NotSolved

Ansicht des Beitrags:
Von:
Lia		 Datum:
20.07.2020 21:30:29		 Views:
810		 Rating:
     
Antwort:
  Ja
Thema:
Automatisierung

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisierung
 20.07.2020 21:30:29 Lia
NotSolved
20.07.2020 23:48:18 Mase
NotSolved