Excel VBA – Spalte summieren
Dieser Beitrag ist ein Teil der VBA Grundlagen Serie.
In diesem Beitrag zeige ich wie Sie mithilfe eines VBA Makros die Summe über eine ganze Spalte bilden können. In unserem Beispiel wollen wir die Summe der Umsätze aus der Spalte B in die Zelle E1
schreiben.
Dazu müssen Sie keineswegs eine Schleife bilden mit der Sie alle Zeilen abarbeiten und addieren. Es genügt eine einzige Zeile Code.
Gehen Sie mit
F11
in die Entwicklungsumgebung und fügen Sie ein neues Modul ein.Erstellen Sie das folgende Makro:
Sub SpalteSummieren() Tabelle1.Range("E1").Value = WorksheetFunction.Sum(Tabelle1.Columns(2)) End Sub
111 VBA Makros die Ihr Leben leichter machen
Wollen Sie Ihre langweiligen Routineaufgaben loswerden? Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen.
Zuerst legen wir die Zelle fest, in die das Ergebnis geschrieben werden soll. Mit dem Befehl WorksheetFunction
bekommen Sie Zugriff auf alle Tabellenfunktionen, wie zum Beispiel .Sum
für die Summe. Dieser Funktion übergeben wir nun die Spalte B
der ersten Tabelle.
Führen Sie das Makro mit F5
aus und überprüfen Sie das Ergebnis.
Die Beispiel Excel Datei mit dem sofort einsetzbaren Makro und 111+ andere Makros, die Ihr Leben leichter machen, finden Sie hier.
Beeindrucke deinen Chef mit coolen Excel Tricks!
- Lasse dich von deinen Kollegen nicht abhängen!
- Spare Zeit und nutze diese für angenehmere Dinge
- Steigere deine Produktivität und Effizienz
- Es ist leicht - In meinem Newsletter gebe ich Schritt für Schritt Anleitungen die jeder versteht
- Bei der Anmeldung zu meinem Newsletter erhälst du das Buch „Excel Tricks die deinen Chef beeindrucken“ als Willkommensgeschenk.
Quellen und weiterführende Literatur:
Bernd Held – VBA mit Excel: Das umfassende Handbuch
Falls Ihnen dieser Beitrag weitergeholfen hat, wäre es eine sehr nette Anerkennung meiner Arbeit wenn Sie z.B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision. Für Sie ändert sich am Preis des Produktes gar nichts. Ich möchte mich an dieser Stelle jetzt schon für Ihre Unterstützung bedanken.
Dieser Beitrag ist ein Teil eines Kurses, der Ihnen einen Schnelleinstieg in VBA ermöglichen soll und ist nach der folgenden Struktur aufgebaut:
- Grundlagen
- Erste Makros
- Zellen – Bausteine von Excel
- Programmsteuerung
- Excel Objekte
- Ereignisse / Events
- Funktionen
- Verschiedene Beispiele
Grundlagen:
Einführung in die objektorientierte Programmierung
Objekte, Methoden, Eigenschaften, Ereignisse und der Objektkatalog
Entwicklertools einblenden
Erstes Makro anlegen
Erste Makros:
Das aktuelle Datum in eine Zelle eintragen
Mehrzeiliges Meldungsfenster
Eine Tabelle nach einer Rückfrage löschen
Eine Eingabemaske erstellen
Zellen:
Bereich auslesen
Definierten Bereich füllen und leeren
Zellen im Bereich summieren
Bedingte Summation – Alle Werte größer als 100 summieren
Letzte verwendete Zeile bestimmen
Letzte verwendete Spalte bestimmen
Kommentare hinzufügen
Bedingungen:
Prüfen ob der Inhalt einer Zelle numerisch ist
Prüfen ob die Zelle leer ist
Zelle auf ein gültiges Datum prüfen
Sprachabhängige Meldungen ausgeben (SELECT CASE)
Schleifen:
Alle verwendete Zeilen bearbeiten
Wochenenden hervorheben
Tabellen über eine Schleife ausblenden
Leere Spalten verstecken
Alle Zellen in dem markierten Bereich bearbeiten (Großschreibung / Kleinschreibung)
Mehrere Bereiche vereinen und alle Zellen formatieren
Alle Tabellen schützen
Zeilen:
Jede zweite Zeile einfärben
Zeilenhöhe festlegen
Gesamte Zeile summieren
Leere Zeilen löschen
Zeilen ausblenden
Mehrmals vorkommende Einträge filtern (Unikatsliste erstellen)
Bestimmte Zeilen in eine andere Tabelle kopieren
Leere Zeilen einfügen
Eigene Suchfunktion bauen – bestimmte Zeile finden
Spalten:
Daten filtern
Spaltenbereite anpassen
Spalte summieren
Spalten ausblenden
Leere Spalten löschen
Spalten formatieren
Spalten in eine andere Tabelle kopieren
Neue Spalten einfügen
Bestimmte Spalte finden
Tabellen:
Tabellennamen auslesen
Neue Tabellen einfügen und benennen
Tabellen löschen
Formeln entfernen
Druckbereich bestimmen
Farbe der Tabellenreiter ändern
Tabelle kopieren
Prüfung Tabellen- oder Diagrammblatt
Eigene Kopf-und Fußzeilen erstellen
Arbeitsmappen:
Arbeitsmappe erzeugen
Arbeitsmappe speichern
Verknüpfungen entfernen
Dokumenteigenschaften auslesen und verändern
Persönliche Informationen aus Dateieigenschaften löschen
Daten und Informationen über Dokumentprüfung entfernen
Arbeitsmappe löschen
Applikation:
Neuberechnung ausschalten
Excel Funktionen ein- und ausschalten
Ansichtsoptionen über Makro steuern
Excel-Version auslesen
Umgebungsvariablen auslesen
Mappen-Ereignisse:
Scrollarea festlegen
Das Schließen der Mappe verhindern
Druckvorgang abfangen
Auswahl bestimmter Tabellen unterbinden
Neue Tabellen sofort löschen
Tastenkombination definieren
Tabellen-Ereignisse:
Bereichsauswahl verhindern
Geänderte Zellen markieren
Eingaben konvertieren (z.B. Großbuchstaben)
Änderungen in einem Change Log dokumentieren
Eingaben sofort rückgängig machen
Tabellenverschiebung verhindern
Eine Zeile per Doppelklick einfärben
Rechten Mausklick deaktivieren
Standardfunktionen:
Nach einer Zeichenkette suchen – InStr
Länge mit Left und Len messen und korrigieren
Pfad und Dateinamen mit Funktionen InStrRev, Left und Mid trennen
Zeichen ersetzen mit Replace
Leerzeichen mit Trim entfernen
Zeichenkette aufteilen und zusammenfügen mit Split und Join
Mit DatePart Quartal und Kalenderwoche aus einem Datum ableiten
Differenz von zwei Datumswerten mit DateDiff berechnen
Text mit CDate in Datum umwandeln
Benutzerdefinierte Funktionen
Nur sichtbare Zellen summieren
Fett formatierte Werte zählen
Letzten Wert in der Zeile ausgeben
Eine eigene AutoText Funktion erstellen
Formeltext in Zelle ausgeben
Sonderzeichen entfernen
Prüfen, ob ein Bereich leer ist
Auf Ablaufdatum prüfen
Modul-Funktionen
Tabellenexistenz prüfen
Existenz der Arbeitsmappe prüfen
Prüfen ob eine Mappe geöffnet ist
Letzten Monatstag ermitteln
Alle Leerzeichen entfernen
Alphanumerische Zeichen löschen
Tabellenschutz prüfen
Spalten auf Inhalte prüfen
Quersumme berechnen
Hinterlasse einen Kommentar
An der Diskussion beteiligen?Hinterlasse uns deinen Kommentar!