Code Ändern
28.09.2004 10:26:24
Matthias
Ich bräuchte wiedermal eure hilfe
Dieser Qeullcode funzt einwandfrei und macht in der Tabelle alles was ich erwarte nun mein anliegen:
Dieser Quellcode müsste jetzt so geandert werden dass:
1. der inhalt der zellen B2 und C2 Multipliziert werden und in Zelle D2 ausgegeben werden.
2. Zelle D3 und C3 sollen auch Multipliziert werden aber dass ergebniss von D2 soll auch noch addiert werden.
3. Zelle D4 und C4 dassselbe nur dass D3 addiert wird usw
!Währe schön wenn es mit in den vorhanden Quellcode gleich mit integriert werden könnte!
Sub Summe()
Dim Bn As String
Dim i As Long, Ww As Long, Gw As Long, laR As Long
Bn = Left(Cells(2, 1).Text, 4)
i = 1
Do While Bn <> ""
i = i + 1
If Left(Cells(i, 1).Text, 4) <> Bn Then
Range(Cells(i, 1), Cells(i + 2, 1)).EntireRow.Insert
Cells(i + 1, 2).Value = Ww
Gw = Gw + Ww
Ww = 0
i = i + 2
Bn = Left(Cells(i + 1, 1).Text, 4)
Else
Ww = Ww + Cells(i, 2).Value
End If
Loop
laR = Cells(Rows.Count, 2).End(xlUp).Row
Cells(laR + 2, 2).Value = Gw
End Sub
Bedanke mich für eure hilfe schonmal Vorraus
Gruss Matthias