title image


Smiley Re: summewenn für variablen Bereich per VBA in Excel 2003
Hallo,

versuch mal den folgenden Code:





      

Sub summen()



    Dim I As Long

    Dim Start As Long



    Dim x

    I = 1: Start = 1

    Do While I <= Cells(Rows.Count, 1).End(xlUp).Row

       If Cells(I, 3).Value <> Cells(I + 1, 3).Value Then

          Range("I" & I).FormulaLocal = "=SUMME(D" & Start & ":D" & I & ")"

          Range("K" & I).FormulaLocal = "=SUMMENPRODUKT((B" & Start & ":B" & I & "=1)*(D" & Start & ":D" & I & "))"

          Start = I + 1

        End If

        I = I + 1

    Loop

          

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.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: