AW: Total einfügen
19.08.2011 14:53:35
Henrik
Hallo Markus,
hier mal verschiedene Lösungswege.
Durch entfernen der Häkchen ' vor den Codezeilen kannst du die unterschiedlichen Ergebnisse anschauen.
Sub Multi()
Dim LetzteZeile As Long, StartZeile As Long, zae1 As Long
Dim Ergebnis, Menge, Preis
With ActiveSheet
StartZeile = 2
LetzteZeile = .Cells(Rows.Count, "E").End(xlUp).Row
' LÖSUNG A
' Schreibt die Formel in die Spalte G
'.Range(.Cells(StartZeile, "G"), .Cells(LetzteZeile, "G")).FormulaR1C1 = "=RC[-2]*RC[-1] _
' LÖSUNG B
' oder schreibt das Ergebnis in die Spalte G, Zeile für Zeile
' Variante 1
Set Ergebnis = .Range(.Cells(StartZeile, "G"), .Cells(LetzteZeile, "G"))
Set Menge = .Range(.Cells(StartZeile, "E"), .Cells(LetzteZeile, "E"))
Set Preis = .Range(.Cells(StartZeile, "F"), .Cells(LetzteZeile, "F"))
For zae1 = 1 To Ergebnis.Rows.Count
Ergebnis(zae1) = Menge(zae1) * Preis(zae1)
Next zae1
' Variante 2
'For zae1 = StartZeile To LetzteZeile
'.Cells(zae1, "G") = .Cells(zae1, "E") * .Cells(zae1, "F")
'Next zae1
.Cells(LetzteZeile + 2, "G").Formula = "=SUM(G" & StartZeile & ":G" & LetzteZeile & ")"
.Cells(LetzteZeile + 2, "B") = "Total Betrug"
End With
End Sub
Wäre es aber nicht einfacher, wenn du einmal in Zelle G2 die Formel =E2*F2 schreibst und dann einfach auf das kleine PlusZeichen rechts unten von der Zelle Doppelklickst.
Dann noch schnell TotelBetrug eintragen und die Summe ermitteln fertig.
Gruß
Henrik