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

Formel an Tabelle anpassen

Formel an Tabelle anpassen
jo_cindy
Hallo,
habe folgende Frage. In meinem Makro lasse ich bestimmte Formeln automatisch kopieren, bis die letzte Zeile der Datentabelle erreicht ist. Anschliessend sortiere ich und lasse Teilergebnisse bilden. Da die Anzahl der Zeilen schwankt, funktioniert mein Makroteil nicht Wenn die Tabelle eine abweichende Zahl von Zeilen hat, bekomme ich einen Fehler "DAten ausserhalb des Bereiches". Ich muss also auch hier die Bildung von Teilergebnissen von der Anzahl der Zeilen unabhängig machen. Die Teilergebnisse sollen für die Spalten AC bis AG gebildet werden.
Cells.Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
"F2:F905"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
"A2:A905"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
"N2:N905"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range( _
"O2:O905"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A1:AG905")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(29, 30, 31 _
, 32, 33), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Columns("AC:AF").Select
Selection.Columns.Group
ActiveWindow.LargeScroll ToRight:=-1
Range("A2").Select
End

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel an Tabelle anpassen
28.10.2009 01:44:29
jo_cindy
Habe das Problem gelöst.
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige