Makro: Summe und Teilen in jeder Zelle
08.05.2004 11:06:01
Daniel
Ich habe folgendes Makro. Gerne würde ich nun die Berechnung im unteren Teil des Makro so abändern, dass die Summe noch durch den Wert der jewiligen Zeile in Spalte B des Sheets "Drei" geteilt wird. Also, wenn die Summe im Sheet "Vier2 in Zeile 135 stehen soll, dann muss noch durch B135 in "Drei" geteilt werden.
Dies soll nun für JEDE gefüllte Zelle im Sheet "Eins" germacht werden, wobei Spalte B im Sheet "Drei" fest bleiben soll.
Die Bestimmung der zu berechnenden Zeile durch den Wert in J5 des Sheets Steuerung ist bereits korrekt.
Naja. Ich hoffe ich konnte mein Problem verständlich beschreiben.
Vielen Dank für Hilfe!
Schönes WE!
Daniel
Sub EinsZwei()
Dim i%, k%, IntCnt%, LRow%
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim ws4 As Worksheet
Dim ws5 As Worksheet
Set ws1 = Worksheets("Eins")
Set ws2 = Worksheets("Zwei")
Set ws3 = Worksheets("Drei")
Set ws4 = Worksheets("Vier")
Set ws5 = Worksheets("Fünf")
'Lösche
ws4.Cells.ClearContents
ws5.Cells.ClearContents
'Übertrage Erste Spalte
ws1.Columns("A:A").Copy ws4.Range("A1")
ws2.Columns("A:A").Copy ws5.Range("A1")
ws1.Rows("1:1").Copy ws4.Range("A1")
ws2.Rows("1:1").Copy ws5.Range("A1")
IntCnt = Sheets("Steuerung").Range("J5").Value
With ws1
LRow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = 3 To LRow - IntCnt + 1
k = k + 1
'Hier wird die Zelle definiert ,1 heißt A'
wsOff.Cells(IntCnt + k + 1, 2) = _
Application.Sum(.Range("B" & i & ":B" & i + IntCnt - 1))
Next i
End With
End Sub