per VBA Summe bilden

Question

hy leute,
mich quält folgendes Problem:

sobald in combobox1 "ja" ausgewählt wird soll in G10 die Summen aus G14:G28 stehen.

das habe ich bisher:



Private Sub ComboBox1_Click()
If ComboBox1.Value = "Ja" Then

Range("g10:N10").Select
Selection.ClearContents

'Summe aus Zeilenauswahl
ActiveCell.FormulaR1C1 = "=SUM(R[4]C:R[18]C[7])"
Range("g14:n14").Select

End Sub



aber es funzt nicht, die Summenformel schreibt es immer in G14 statt in G10, und es werden nicht die richtigen Zellen zur summe ausgewählt...

tja hier stehe ich dann an
lg
stefan

Answer 1

Hallo,

wenn du

.FormulaR1C1 = "=SUM(R[4]C:R[18]C[7])"

in die Zelle G10 einfügst erhälst du die folgende Summenformel:
=SUMME(G14:N28)

Du schreibst aber

..soll in G10 die Summen aus G14:G28 stehen.

Versuch es mal so

Private Sub ComboBox1_Click()
If ComboBox1.Value = "Ja" Then
Range("G10:N10").ClearContents
'Summe aus Zeilenauswahl
Range("G10").FormulaLocal = "=Summe(G14:G28)"
Range("g14:n14").Select
End If
End Sub

Alternativ für die Summenformel:

Range("G10").FormulaR1C1 = "=SUM(R[4]:R[18])"

Gruß

M.O.

Answer 2

habs mal selbst gebastelt:

'Summe aus Zeilenauswahl
Range("g10").Select
Selection.ClearContents
ActiveCell.Formula = "=SUM(g14:n28)"
Range("g10").Select

funktioniert, aber als aktive letzte Zelle soll G14 markiert sein, das endet immer in einer Endlosschleife wenn ich Range("g14").select noch hinten dran stelle, komisch...

Answer 3

danke M.O.,
dein Code funzt super!