title image


Smiley Hier mal ein Code
Hallo Hans,

hier mal ein Code, der dir die Zwischensumme und die Gesamtsumme einfügen sollte. Das Rahmenziehen hab ich nicht eingebaut, zeichne es doch einfach auf und bau es in den Code ein.







Sub Zwischensummen()



    Dim I As Long

    Dim Gesamtsumme As Double

    Dim Zwischensumme As Double

    Dim Merkjahr As Integer



    Merkjahr = Year(Cells(2, 3).Value)

    Gesamtsumme = 0

    Zwischensumme = 0



    I = 2

    Do Until Cells(I, 1).Value = ""

       If Merkjahr = Year(Cells(I, 3).Value) Then

          Zwischensumme = Zwischensumme + Cells(I, 7).Value

          Gesamtsumme = Gesamtsumme + Cells(I, 7).Value

          I = I + 1

       Else

          Merkjahr = Year(Cells(I, 3).Value)

          Rows(I).Insert

          Cells(I, 6).Value = "Summe:"

          Cells(I, 7) = Zwischensumme

          Zwischensumme = 0

          I = I + 1

       End If

    Loop

    Cells(I, 6).Value = "Summe:"

    Cells(I, 7) = Zwischensumme

    Cells(I + 1, 6).Value = "Gesamt:"

    Cells(I + 1, 7) = Gesamtsumme



End Sub







Code eingefügt mit Syntaxhighlighter 4.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: