Formel zu lang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Arash
"Die Zelle A1 wurde nur beispielhaft von mir genannt.
Es geht darum das 70 Dateien vorhanden sind und ich in einer Art Mastertabelle "jede Zelle" der 70 Dateien zusammmen addieren möchte."
Schön, dass A1 nur ein Bsp ist, und dass Du anstelle dessen die Werte von 4000 Zellen addieren möchtest.
Und warum nennst Du dann NICHT den Bereich, in dem sich die Zellen befinden?
(z Bsp. A1:Z20 oder so)
Ich habe nun das Makro, welches Du ja schon kennst, umgeschrieben.
Nun wird jeder Wert aus den Zellen A1 - AN100 in eine Variable addiert
Deshalb A1 - AN100 weil
A1 - AN1 = 40 Spalten
und
A1 - A100 = 100 Zeilen
das ergibt
40 Spalten x 100 Zeilen = 4000 Zellen
Du musst also dann im Code den Bereich noch anpassen. Und natürlich auch den Pfad.
Hier nun endlich das Makro ;-)

Sub Addition()
    Dim Datei As String
    Dim dbWert As Double
    Dim Zelle As Range

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    'Du musst anstelle von "C:\Beispiel" DEN Pfad angeben, in dem sich die Excel-Dateien befinden
    Datei = "d:\personen\" & Dir("d:\personen\*.xls")

        Do Until Datei = ""
            Workbooks.Open Datei
                'den Bereich "A1:AN100" musst Du an den von Dir gewünschten Bereich anpassen
                For Each Zelle In Range("A1:AN100")
                    If IsNumeric(Zelle.Value) Then
                        dbWert = dbWert + Zelle.Value
                    End If
                Next
            Datei = ""
            ActiveWorkbook.Close savechanges:=False
            Datei = Dir
        Loop

    Range("A1").Value = dbWert

    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Konnte ich denn diesmal helfen?
Ciao
Thorsten

Sub Addition() Dim Datei As String Application.ScreenUpdating = False Application.EnableEvents = False Datei = Dir("C:\Beispiel\*.xls") Do Until Datei = "" Workbooks.Open "C:\Beispiel\" & Datei Range("A1:A4000").Copy Windows("Master.xls").Activate Range("a1").Activate Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _ False, Transpose:=False Windows(Datei).Activate Application.CutCopyMode = False Workbooks(Datei).Close savechanges:=False Datei = Dir Loop Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Hi Arash
Da Du Dich noch immer weigerst, uns DEN Bereich zu verraten, in dem sich Deine 4000 Zellen befinden, bleibe ich bei dem Bereich A1:AN100
Mit dem weiter unten stehenden Code habe ich mit 5 unterschiedlichen Excel-Dateien im gleichen Verzeichnis dieses erreicht:
eine von 5 Ursprungsdateien mit gleichen Werten in A1 - E1:

Download des Tabellenkonverters Formeln in den Zellen als QuickNotiz
Von Oberschlumpf
	A	B	C	D	E
1	10	20	30	40	50

die Ziel-Tabelle mit den summierten Werten in A1 - E1

Download des Tabellenkonverters Formeln in den Zellen als QuickNotiz
Von Oberschlumpf
	A	B	C	D	E
1	50	100	150	200	250

und hier der Code:

Sub Addition()
    Dim Datei As String
    Dim dbWert As Double
    Dim Zelle As Range

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    'Du musst anstelle von "C:\Beispiel" DEN Pfad angeben, in dem sich die Excel-Dateien befinden
    Datei = "C:\Beispiel\" & Dir("C:\Beispiel\*.xls")
        Do Until Datei = ""
            Workbooks.Open Datei
                'den Bereich "A1:AN100" musst Du an den von Dir gewünschten Bereich anpassen
                For Each Zelle In Range("A1:AN100")
                    If IsNumeric(Zelle.Value) Then
                        Workbooks(DATEIINDEX).Sheets(BLATTINDEX).Range(Zelle.Address).Value = Workbooks(DATEIINDEX).Sheets(BLATTINDEX).Range(Zelle.Address).Value + Zelle.Value
                    End If
                Next
            Datei = ""
            ActiveWorkbook.Close savechanges:=False
            Datei = Dir
        Loop

    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Wichtig!
Für DATEIINDEX musst Du den Index von DER Excel-Datei eintragen, welches Deine Zieltabelle ist. (Workbooks(1) ist die zuerst geöffnete Excel-Datei)
Für BLATTINDEX musst Du den Index DES Tabellenblattes erintragen, in dem die summierten Werte erscheinen sollen. (Sheets(1) ist das erste Tabellenblatt in einer Excel-Datei)
So, das wars....erst mal wieder :-)
Konnte ich denn diesmal helfen? :-)
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

130 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel zu lang

8 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)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread