Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1456to1460
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

Summe mit Makro nur von eingeblendeten Zeilen

Summe mit Makro nur von eingeblendeten Zeilen
03.11.2015 18:15:08
eingeblendeten
Hallo liebe Forumsmitglieder,
eine kurze Frage: Ich habe bei meier Tabelle ein Makro drin, der automatisch die Summe bis zu letzten Zeile errechnet. Jetzt habe ich vor diesen Code verschiedene Filter geschaltet, so das natürlich nur die Zeilen mitberechnet werden die auch eingeblendet sind.
Jedoch rechnet mein Code immer mit allen aus und eingeblendeten Zeilen. Kann mir einer helfen wie ich nur die eingeblendeten Zeilen miteinbeziehe?
Das hier ist mein Code:
Sub MySum()
Dim lnglast As Long
Application.ScreenUpdating = False
With Sheets("Parts")
lnglast = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lnglast, 1) = "Gesamtsumme" Then
Sheets("Parts").Rows(lnglast).Delete
Cells(lnglast, 1) = "Gesamtsumme"
Cells(lnglast, 181) = Application.Sum(Range(Cells(2, 181), Cells(lnglast, 181)))
Cells(lnglast, 182) = Application.Sum(Range(Cells(2, 182), Cells(lnglast, 182)))
Cells(lnglast, 183) = Application.Sum(Range(Cells(2, 183), Cells(lnglast, 183)))
Cells(lnglast, 184) = Application.Sum(Range(Cells(2, 184), Cells(lnglast, 184)))
Cells(lnglast, 185) = Application.Sum(Range(Cells(2, 185), Cells(lnglast, 185)))
Cells(lnglast, 186) = Application.Sum(Range(Cells(2, 186), Cells(lnglast, 186)))
Cells(lnglast, 187) = Application.Sum(Range(Cells(2, 187), Cells(lnglast, 187)))
Cells(lnglast, 188) = Application.Sum(Range(Cells(2, 188), Cells(lnglast, 188)))
Cells(lnglast, 189) = Application.Sum(Range(Cells(2, 189), Cells(lnglast, 189)))
Cells(lnglast, 190) = Application.Sum(Range(Cells(2, 190), Cells(lnglast, 190)))
Cells(lnglast, 191) = Application.Sum(Range(Cells(2, 191), Cells(lnglast, 191)))
Cells(lnglast, 192) = Application.Sum(Range(Cells(2, 192), Cells(lnglast, 192)))
Else
Cells(lnglast + 1, 1) = "Gesamtsumme"
Cells(lnglast + 1, 181) = Application.Sum(Range(Cells(2, 181), Cells(lnglast, 181)))
Cells(lnglast + 1, 182) = Application.Sum(Range(Cells(2, 182), Cells(lnglast, 182)))
Cells(lnglast + 1, 183) = Application.Sum(Range(Cells(2, 183), Cells(lnglast, 183)))
Cells(lnglast + 1, 184) = Application.Sum(Range(Cells(2, 184), Cells(lnglast, 184)))
Cells(lnglast + 1, 185) = Application.Sum(Range(Cells(2, 185), Cells(lnglast, 185)))
Cells(lnglast + 1, 186) = Application.Sum(Range(Cells(2, 186), Cells(lnglast, 186)))
Cells(lnglast + 1, 187) = Application.Sum(Range(Cells(2, 187), Cells(lnglast, 187)))
Cells(lnglast + 1, 188) = Application.Sum(Range(Cells(2, 188), Cells(lnglast, 188)))
Cells(lnglast + 1, 189) = Application.Sum(Range(Cells(2, 189), Cells(lnglast, 189)))
Cells(lnglast + 1, 190) = Application.Sum(Range(Cells(2, 190), Cells(lnglast, 190)))
Cells(lnglast + 1, 191) = Application.Sum(Range(Cells(2, 191), Cells(lnglast, 191)))
Cells(lnglast + 1, 192) = Application.Sum(Range(Cells(2, 192), Cells(lnglast, 192)))
End If
End With
End Sub
Liebe Grüße und vielen Dank,
Manuel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe mit Makro nur von eingeblendeten Zeilen
03.11.2015 19:01:12
eingeblendeten
Hallo Manuel,
bei mir klappt das so:
Cells(lnglast, 181).Value = Application.Subtotal(109,Range(Cells(2, 181), Cells(lnglast, 181)))
oder
Cells(lnglast, 181).Value =WorksheetFunction.Subtotal(109,Range(Cells(2, 181), Cells(lnglast, 181)))
Das ist die 'Teilergebnis'-Funktionalität der Tabellenebene in Vba.
Gruß von Luschi
aus klein-Paris

AW: Summe mit Makro nur von eingeblendeten Zeilen
03.11.2015 23:26:28
eingeblendeten
Perfekt vielen dank
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige