Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Teilergebnis per VBA mit variablen Spalten

Teilergebnis per VBA mit variablen Spalten
grexx123
Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen auswerten, die eine variable Spaltenanzahl hat (also zwischen 8 und 50 Spalten) - wie kann ich das in die Formel eintragen?
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(8, 9, 10, 11, 12), Replace: _
_
=True, PageBreaks:=False, SummaryBelowData:=True
Hat jemand einen Tip?
Vielen Dank im Voraus!!!!
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Teilergebnis per VBA mit variablen Spalten
20.05.2010 16:15:43
grexx123
Keine Ideen ?
AW: Teilergebnis per VBA mit variablen Spalten
21.05.2010 10:41:11
Rudi
Hallo,
Sub xxx()
Dim arr(), i
ReDim arr(Cells(1, 1).CurrentRegion.Columns.Count - 7)
For i = 7 To Cells(1, 1).CurrentRegion.Columns.Count
arr(i - 7) = i
Next
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=arr, _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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