Summe über Macro

13/09/2007 - 09:43 von Otto Klein | Report spam
Hallöchen an Alle!

habe ien kleines Problem und hoffe hier auf unterstützende Hilfe.

Ich habe 2 Spalten, EURO und CENT.
darunter befinden sich die entsprechenden Werte.
Ich möchte nun, unabhàngig von der Anzahl der Zeilen unterhalb die Summe aus
beiden zusammen berechnet haben.

Bsp.
EURO CENT
10 12
15 16
___________
SUMME 25,28 ?

Habe mich mal mit VBA dran versucht aber es funktioniert nicht richtig.
Wollte nach Markieren der entsprechenden Werte dann die Summe ausgeben
lassen.
Leider ist im Quellcode ein Fehler drin den ich aber nicht sehe.
Hoffe auf Eure Hilfe!!!

Hier mal der Code:
Sub Euro_Cent()
Dim rngEuro As Range, rngCent As Range
Set rngEuro = Range(Selection.End(xlUp).Offset(1, -1),
Selection.Offset(-1, -1))
Set rngCent = Range(Selection.End(xlUp).Offset(1, 0), Selection.Offset(-1,
0))
Selection = WorksheetFunction.Sum(rngEuro) +
WorksheetFunction.Sum(rngCent) / 100
End Sub

Office 2000 SP3, Windows XP

Gruß

Otto Klein
 

Lesen sie die antworten

#1 Claus Busch
13/09/2007 - 09:56 | Warnen spam
Hallo Otto,

Am Thu, 13 Sep 2007 09:43:10 +0200 schrieb Otto Klein:

Ich habe 2 Spalten, EURO und CENT.
darunter befinden sich die entsprechenden Werte.
Ich möchte nun, unabhàngig von der Anzahl der Zeilen unterhalb die Summe aus
beiden zusammen berechnet haben.

Bsp.
EURO CENT
10 12
15 16
___________
SUMME 25,28 ?

Habe mich mal mit VBA dran versucht aber es funktioniert nicht richtig.
Wollte nach Markieren der entsprechenden Werte dann die Summe ausgeben
lassen.



du kannst dir die erste freie Zeile doch ausrechnen lassen. Du musst dann
nicht selektieren. Probiere es mal so:
Sub Euro_Cent()
Dim rngZelle As Range
Dim FFRow As Long

FFRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(FFRow, 1).Value = "Summe"
Cells(FFRow, 2).Value = _
WorksheetFunction.Sum(Range(Cells(2, 1), _
Cells(FFRow - 1, 1))) _
+ WorksheetFunction.Sum(Range(Cells(2, 2), _
Cells(FFRow - 1, 2))) / 100
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen