Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

auch Summenformel anzeigen

auch Summenformel anzeigen
09.09.2004 13:37:25
Dennis
Hallo,
ich will eine Summe bilden, allerdings soll nicht nur die Summe erscheinen, sondern auch die Formel. Weiß jemand, was ich dafür abändern muß?
ActiveCell.FormulaR1C1 = WorksheetFunction.Sum(Range(Cells(1, 6), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6)))
MFG Dennis

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auch Summenformel anzeigen
09.09.2004 14:23:52
Mac4
Hallo Dennis,
ich hatte das mal so gelöst (der Formeltext erscheint unterhalb der Ergebniszelle):

Sub test()
Dim Formel As String
Formel = "=Summe(F1:F" & Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6) & ")"
ActiveCell.FormulaLocal = Formel
ActiveCell.Offset(1, 0) = "'" & Formel
End Sub

Marc (aus Köln)
AW: auch Summenformel anzeigen
Dennis
Hi Marc,
irgendwie will es nicht richtig funktionieren.
Rem Summe in Spalte F
x = Range("F65536").End(xlUp).Row + 9
Cells(x, 6).Select
ActiveCell.FormulaR1C1 = WorksheetFunction.Sum(Range(Cells(1, 6), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6)))
Die Formel soll in cells(x, 6) neben dem Ergebnis erscheinen, weil ich in der Tabelle
noch Zahlen manuell eingeben will, so dass die Summe immer aktuell ist.
Anzeige
AW: auch Summenformel anzeigen
10.09.2004 09:00:04
Mac4
Hi,
versuchs mal so:

Sub test()
Dim Formel As String
Formel = "=Summe(F1:F" & [F65536].End(xlUp).Row & ")"
ActiveCell.FormulaLocal = Formel
ActiveCell = ActiveCell & " " & WorksheetFunction.Substitute(Formel, "=", "")
End Sub

Marc (aus Köln)

167 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige