HERBERS Excel-Forum - die Beispiele

Thema: Ab der aktiven Zelle summieren

Home

Gruppe

Funktion

Problem

Wie kann ich per VBA die aktuelle Cursorposition bestimmen und in die aktive Zelle die Summe aller Zellwerte über bzw. unter dieser Zelle ermitteln?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub SummeBildenOben()
   Dim iCol As Integer
   Dim sFormula As String
   iCol = ActiveCell.Column
   sFormula = "=SUM(R1C" & iCol & ":R[-1]C" & iCol & ")"
   ActiveCell.FormulaR1C1 = sFormula
End Sub

Sub SummeBildenUnten()
   Dim iCol As Integer
   Dim sFormula As String
   iCol = ActiveCell.Column
   sFormula = "=SUM(R[1]C" & iCol & ":R" & Rows.Count & "C" & iCol & ")"
   ActiveCell.FormulaR1C1 = sFormula
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und Vba

Copy funktioniert nur einmal Diagramm mit vba erstellen
Schreibschutz prüfen funktioniert nicht VBA - Wochentage, zählenwenn
Vba: refersToR1C1 Namen erzeugen mehrere Wörter suchen VBA
Vba: Array dynamisch dimensionieren und einfügen mit VBA Farbe von CB´s steuern
Diagramme in PowerPoint mit VBA neu befüllen PDF Drucken VBA
Split-Funktion beim Einlesen TXT-Datei VBA Verweise
Match Funktion spinnt (?) VBA - Eingabefeld für gesamte Spalte
AutoFilter per VBA SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. Telefonnummer automatisch per VBA formatieren
Mögliche Reihenfolgen per VBA in Tabelle eintragen Excel VBA Code Hilfe
Verfügbarkeitsprüfung VBA-Tool Bedingte Formatierung per VBA mit Schleife
Matrix in VBA Excel to Word Kapitel VBA
VBA: UF Application.Match Kartendiagramm per VBA erstellen und formatieren
Generierung von Tabs per VBA + Sammeldruck 'Run' & 'IWshShell3' Fehlermeldung VBA
VBA Statt Windows soll Mac Produktnummer auslesen VBA
Excel for Office 365 VBA Problem "Speichern unter" mit VBA für eigene Files
VBA: UF Laufzeitfehler VBA Code um einzelne Zellen zu sperren
VBA Mailanhang per Filter VBA- aus anderer Mappe kopieren)mit Kriterium)
VBA-Code funktioniert nicht mit anderem Office VBA E-Mail mit Button und Bedingungen
VERKETTEN in VBA ohne Anführungszeichen Hilfe bei der INDEX Funktion
VBA - Erstellung eines Dokumentengenerator HTML in VBA bei Outlook EINLADUNG
AW: VBA Lösung gesucht Outlook Einladung Absender anderes Konto Excel VBA
Workbook: Start ausgeblendet ohne VBA VBA: Dynamisches Diagramm mit bestimmten Zellberei
VBA - Listbox in Abhängigkeit füllen Öffnen einer weiteren Excel-File mit VBA
VBA- Einträge bis zur letzten Zeile