Summe aus ganz vielen Registern (Formel zu lang)

Hallo,
ich habe eine Datei aus ganz vielen Registern. Zeilen und Spalten sind jeweils identisch, nur die Werte in den Zellen sind unterschiedlich.
In einem Register will ich die Summen aufaddieren.
Die Schwierigkeit liegt darin, dass die aufzusummierenden Registern nicht alle hintereinander liegen, was sich auch nicht ändern lässt. Ich kann also nicht mit einer Formel wie "Register1:Register235!S38" arbeiten.
Auch eine Umbenennung der Register ist nicht möglich (Register sind mit Städtenamen belegt, und deshalb relativ lang).
Durch die Anzahl der Register und die langen Registernamen wird die einfache Addition mit "+" oder auch mit "Summe" zu lang, die Formellänge ist in Excel begrenzt.
Hat hier einer eine Idee, wie ich das Problem lösen kann?
Gruß an alle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function BlattSumme(strZelle As String) Dim wks As Worksheet, arrSheets, i As Integer arrSheets = Array("*overhead", "*vertrieb", "*werkstatt", "*lager", "*ergebnis", "*hv") For Each wks In Worksheets For i = 0 To UBound(arrSheets) If LCase(wks.Name) Like arrSheets(i) Then BlattSumme = BlattSumme + wks.Range(strZelle) End If Next i Next wks End Function Function BlattSumme2(strZelle As String, strTyp As String) Dim wks As Worksheet strTyp = "*" & LCase(strTyp) For Each wks In Worksheets If LCase(wks.Name) Like strTyp Then BlattSumme = BlattSumme + wks.Range(strZelle) End If Next wks End Function

Hallo Rudi,
vielen Dank für Deine Rückmeldung. Für mich war das gar nicht so klar. VBA mit Standardschleifen ist für mich OK, weitergehende Programmierungen aber nicht. Und ich kann nur mit "sub" arbeiten, nicht mit "Function". Aber ich versuche mal, mich hier durchzuhangeln. Deswegen ein großes Danke für Deine Hilfe.
Leider klappt das noch nicht bei mir. Ich habe die Formel =Blattsumme("D5") in die Zelle D5 des Registers Blattsumme geschrieben. Als Ergebnis kommt #NAME?
D5 deswegen, da ab da Werte in den Registern auftauchen.
Den Code habe ich ein klein wenig bei der Bezeichnung der Register geändert, da der Standort nach der Bezeichnung Overhead u.s.w. kommt:

Sub BlattSumme(strZelle As String)
Dim wks As Worksheet, arrSheets, i As Integer
arrSheets = Array("Overhead*", "Vertrieb*", "Werkstatt*", "Lager*", "Ergebnis*", "HV*")
For Each wks In Worksheets
For i = 0 To UBound(arrSheets)
If LCase(wks.Name) Like arrSheets(i) Then
BlattSumme = BlattSumme + wks.Range(strZelle)
End If
Next i
Next wks
End Sub

Hast Du eine Idee, woran das liegt? Ich könnte Dir gerne eine Datei als PN zukommen lassen. Dann wäre es vielleicht einfacher. Als link hier offiziell für alle sichtbar eher ungerne, da hier ein Kontenschema gezeigt wird, was evtl. vertraulich wäre.
Grüße mit einem Fragezeichen vor den Augen
Holger

Function BlattSumme(strZelle As String) Dim wks As Worksheet, arrSheets, i As Integer arrSheets = Array("overhead*", "vertrieb*", "werkstatt*", "lager*", "ergebnis*", "hv*") For Each wks In Worksheets For i = 0 To UBound(arrSheets) If LCase(wks.Name) Like arrSheets(i) Then BlattSumme = BlattSumme + wks.Range(strZelle) End If Next i Next wks End Function

Beliebteste Forumthreads (12 Monate)

Summe aus ganz vielen Registern (Formel zu lang)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

130 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summe aus ganz vielen Registern (Formel zu lang)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

130 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread