Summe bilden mit variablem Range

Hallo Leute,
ich hoffe ihr könnt mir helfen. Ich hänge seit gestern vor einem augenscheinlich ganz simplen Problem.
Es soll eine Summe über einen variablen Bereich gebildet und einer Variablen zugeordnet werden. Allerdings in einem anderen Tabellenblatt (alles die gleiche Arbeitsmappe).
Mit einem statischen Bereich sieht das bei mir dann wie folgt aus:
longINHABITANTS = WorksheetFunction.Sum(Worksheets("Strukturdaten").Range("C31:C17000").Value)
Die Range muss aber variabel sein. Also müsste ich eigentlich mit Cells() arbeiten, aber soweit mir bekannt funktioniert das Arbeitsblatt übergreifend nicht. Das Problem ist, dass ich diese Summe in 10 anderen Tabellenblättern auch benötige und mir im VBA Code holen muss.
Besten Dank schon mal für eure Idee! :-)
Tim
PS: Ja, ich habe gestern auch Google bemüht und auch hier im Forum gelesen. Habe es leider trotzdem nicht hinbekommen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim ws As Worksheet, longINHABITANTS As Long For Each ws In ThisWorkbook.Worksheets longINHABITANTS = longINHABITANTS + WorksheetFunction.Sum(ws.Columns(3)) Next ws MsgBox longINHABITANTS End Sub

'Teil der Spalte C in sheet-2 Sheets(2).Activate longINHABITANTS = WorksheetFunction.Subtotal(9, Range(Cells(2, 3), Cells(20, 3))) 'Teil der Spalte B in sheet-1 Sheets(1).Activate longINHABITANTS = WorksheetFunction.Aggregate(9, 3, Range(Cells(2, 2), Cells(20, 2)))

Vielen Dank Chris, vielen Dank Firmus,
ich glaube ich habe euch nicht ganz verstanden oder ich habe mein Problem unzureichend erklärt.
Die Nutzung eines händisch eingestellten Filters kommt leider nicht in Frage. Die Daten müssen ausschließlich per VBA bearbeitet werden. Auch kann keine Summenbildung über eine ganze Spalte gehen, da das Ende abhängig ist von Variablen.
Von meinem Denkschema her hätte ich es wie folgt geschrieben in den Code für jedes Tabellenblatt, welches den Wert braucht:

Sub ()
Dim longINHABITANTS as long
Dim longCOUNT_OF_CELLS As Long
longCOUNT_OF_CELLS = Worksheets("MIV Matrix").Range("E21").Value
longINHABITANTS = WorksheetFunction.Sum(Worksheets("Strukturdaten").Range(Cells(31,3),Cells(30+ _
longCOUNT_OF_CELLS,3).Value)
End Sub

Aber das geht ja nicht, weil ich mit Cells nicht in einem anderen Tabellenblatt arbeiten kann.

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe bilden mit variablem Range

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

145 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread