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

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!!!!

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

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige