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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige