Excel: Variable Anzahl von Tabellenblättern

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

bin gerade dabei eine kleine Excel-Anwendung zu erstellen. Bin leider kein Experte, deshalb meine Frage:
In meiner Datei befindet sich eine variable Anzahl von Tabellenblättern - d.h. es können regelmäßig neue Blätter dazukommen. Aus all diesen Tabellenblätter will ich einen Wert kopieren, um dann in einem „finalen“ Arbeitsblatt eine Auswertung zu erstellen. Ist das bei einer variablen Anzahl von Tabellenblättern möglich, ohne ständig das Makro anzupassen? Bzw. wie könnte ein Makro mit dieser Fkt aussehen?

Vielen Dank
Markus

#2

In meiner Datei befindet sich eine variable Anzahl von
Tabellenblättern - d.h. es können regelmäßig neue Blätter
dazukommen. Aus all diesen Tabellenblätter will ich einen Wert
kopieren, um dann in einem „finalen“ Arbeitsblatt eine
Auswertung zu erstellen. Ist das bei einer variablen Anzahl
von Tabellenblättern möglich, ohne ständig das Makro
anzupassen? Bzw. wie könnte ein Makro mit dieser Fkt aussehen?

Hallo Markus,

prinzipiell so:

Function Addieren() As Double
Dim wks As Worksheet
For Each wks In Worksheets
 Addieren = Addieren + wks.Range("A1").Value
Next wks
End Function

Gruß
Reinhard