Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autosumme

Forumthread: Autosumme

Autosumme
24.11.2015 22:31:53
Richardinus
Hallo Excel-Gemeinde,
ich brächte wieder mal eure Hilfe. Ich importiere Daten aus einem anderen Programm in eine Excel Tabelle, nun möchte ich in der gleichen Spalte in meinem Fall ab H3 bis H? am ende eine Summe bilden wobei die Zeilenanzahl jedes mal variiert. Kann mir da jemand helfen?

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autosumme
24.11.2015 23:32:34
Sepp
Hallo Richrd,
meinst du so?
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub autoSumme()
Dim lngRow As Long

With Sheets("Tabelle3") 'Tabellenname - Anpassen!
  lngRow = Application.Max(3, .Cells(.Rows.Count, 8).End(xlUp).Row)
  .Cells(lngRow + 1, 8) = Application.Sum(.Range(.Cells(3, 8), .Cells(lngRow, 8)))
End With

End Sub

Gruß Sepp

Anzeige
AW: Autosumme
25.11.2015 21:24:22
Richardinus
Hallo Sepp, vielen herzlichen Dank funktioniert einwandfrei. Hätte aber da noch eine bitte wenn möglich, kann man das Ergebnis der Summe auch noch Formatieren z.B. Schrift Fett und keine Kommastellen, wäre auch schön wenn in der Spalte (Zelle davor)das Wort Gesamt stehen würde natürlich auch in Fett.
Wäre euch sehr verbunden wen mir da jemand helfen kann.
Gruß Richardinus

Anzeige
AW: Autosumme
25.11.2015 21:30:35
Sepp
Hallo Richard,
kein Problem.
Sub autoSumme()
Dim lngRow As Long

With Sheets("Tabelle3") 'Tabellenname - Anpassen!
  lngRow = Application.Max(3, .Cells(.Rows.Count, 8).End(xlUp).Row)
  .Cells(lngRow + 1, 8) = Application.Sum(.Range(.Cells(3, 8), .Cells(lngRow, 8)))
  .Cells(lngRow + 1, 8).NumberFormat = "0"
  .Cells(lngRow + 1, 7) = "Gesamt"
  .Range(.Cells(lngRow + 1, 7), .Cells(lngRow + 1, 8)).Font.Bold = True
End With

End Sub

Gruß Sepp

Anzeige
AW: Autosumme
25.11.2015 21:33:24
Richardinus
Hallo Sepp,
Super Tausend mal Danke.
Richardinus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige