Thema Datum  Von Nutzer Rating
Antwort
01.11.2018 15:29:31 TPM
NotSolved
Blau Werte kummulieren
 01.11.2018 18:45:31 Gast13222
NotSolved
01.11.2018 20:03:41 TPM
NotSolved
02.11.2018 10:56:18 TPM
NotSolved
02.11.2018 11:26:18 TPM
NotSolved
02.11.2018 14:21:58 Gast 13222
NotSolved
02.11.2018 15:13:41 Gast 13222
NotSolved

Ansicht des Beitrags:
Von:
Gast13222		 Datum:
01.11.2018 18:45:31		 Views:
511		 Rating:
     
Antwort:
  Ja
Thema:
Werte kummulieren

Quick & Dirty

Option Explicit
Dim Spalte As Long, Grenzwert As Double, dKum As Double

Sub Test()
   Spalte = 1: Grenzwert = 20
   'ab Zeile 1
   Kumu 1
End Sub

Sub Kumu(Start As Long)
Dim x As Long, y As Long

   With Columns(Spalte)
      For x = Start To .Cells(.Cells.Count).End(xlUp).Row
         If .Cells(x).Value >= Grenzwert Then
            .Cells(x).Offset(, 1).Value = Grenzwert
            .Cells(x).Offset(, 2).Value = .Cells(x).Offset(, 1).Value - Grenzwert
         Else
            y = KumIt(x, .Cells(x).Value)
            .Cells(y).Offset(, 1).Value = Grenzwert
            .Cells(y).Offset(, 2).Value = dKum - Grenzwert
            dKum = 0
            x = y
         End If
      Next x
   End With

End Sub

Function KumIt(Rw As Long, Wert As Double) As Long
Dim x As Long, Kum As Double

   With Columns(Spalte)
      Kum = Kum + Wert
      For x = Rw + 1 To .Cells(.Cells.Count).End(xlUp).Row
         Kum = Kum + .Cells(x).Value
         If Kum >= Grenzwert Then Exit For
      Next x
      dKum = Kum
      KumIt = x
   End With

End Function

 

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
01.11.2018 15:29:31 TPM
NotSolved
Blau Werte kummulieren
 01.11.2018 18:45:31 Gast13222
NotSolved
01.11.2018 20:03:41 TPM
NotSolved
02.11.2018 10:56:18 TPM
NotSolved
02.11.2018 11:26:18 TPM
NotSolved
02.11.2018 14:21:58 Gast 13222
NotSolved
02.11.2018 15:13:41 Gast 13222
NotSolved