Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Ab der aktiven Zelle summieren

Gruppe

Vba

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

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

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