Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
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
Inhaltsverzeichnis

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?

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige