WernerB. Kannst du mir nochmal helfen?
29.09.2004 07:49:20
Matthias
Ich bräuchte noch mal deine Fachmänische Hilfe
Du hattest mir doch folgenden Quellcode geschrieben er funzt auch einwandfrei aber währe es möglich, diesen Qeullcode ein wenig zu verändern?
Hier der Quellcode!
Sub Matthias()
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
Dieser Qellcode müsste jetzt so geändert werden, dass er nebenbei die Zelle B2 mit C2 Multipliziert und das Ergebniss in die zelle D2 schreibt
mit B3 und C3 soll er wieder so verfahren aber dass ergebniss von D2 soll noch addiert werden. Beiu B4*C4 soll D3 addiert werde usw
Dass ganze soll auch wieder block weise geschen und dass ergebniss des einzellnenblockes soll wieder in der 2-ten freien zeile stehen und zum schluß wieder die Gesamtsumme der einzelnen blöcke
Danke schonmal im Vorraus
Mfg Matthias