Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Spalte aus 200 Dateien addieren

VBA Spalte aus 200 Dateien addieren
28.12.2004 17:07:08
Bongartz
Hallo
ich habe eine Ordner mit 200 Dateien. Ich möchte die Werte aus D2:D21 aller dateien addieren.
Ist das per VBA realisierbar?
Gruß
Bongartz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Spalte aus 200 Dateien addieren
ChrisL
Hi Bongartz
Such mal im Forums-Archiv nach Stichwort FileSearch, dann Datei öffnen/schliessen (siehe Makrorekorder)... Für die Summe kannst du WorksheetFunction.Sum() verwenden.
Gruss
Chris
AW: VBA Spalte aus 200 Dateien addieren
29.12.2004 10:41:22
Bongartz
Hallo
habe ein Beispiel gefunden. Nur wie kann ich mit "naechste_Routine" auf die Dateien zugreifen, ohne diese zu öffnen?


      
Option Explicit
Option Base 1
Dim Feld() As String
Public Sub Test()
    Dim index As Long
    With Application.FileSearch
        .LookIn = "P:\Verwaltung\Kfm.Leitung\Controlling\Intern\LVS\Artgrp\2004\"
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute > 0 Then
            ReDim Feld(1 To .FoundFiles.Count)
            For index = 1 To .FoundFiles.Count
                Feld(index) = .FoundFiles(index)
            Next index
            Call naechste_Routine
        Else
            MsgBox "Keine Dateien gefunden.", 48, "Hinweis"
        End If
    End With
End Sub
Private Sub naechste_Routine()
  Dim index As Long
  Dim i As Long
  
  For index = 1 To UBound(Feld)
    For i = 2 To 21
      With Worksheets
        .Cells(i, 4).Value = Worksheets.Cells(i, 4).Value & Workbooks(index).Sheets("Tabelle1").Cells(i, 4).Value
      
      End With
    Next
  
  Next index
  'MsgBox Feld(index)
End Sub 
Gruß
Bongartz
Anzeige
AW: VBA Spalte aus 200 Dateien addieren
ChrisL
Hi
Dazu gibt es hier einen Ansatz...
https://www.herber.de/forum/archiv/52to56/t52834.htm
Allerdings kannst du mit dieser Methode nur einzelne Zelleninhalte aus der Datei übernehmen und nicht direkt eine Summe bilden. Ferner musst du den Namen des Tabellenblattes kennen. Bei einem Summenbereich von 20 Zellen würde ich dir deshalb den unschönen Weg, Datei öffnen/schliessen, empfehlen.
Gruss
Chris

196 Forumthreads zu ähnlichen Themen

Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 Beiträge
Anzeige
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
Anzeige
Addins beim Datei öffnen per VBA deaktivieren
Gueni

Moin, moin,
ich suche eine Möglichkeit neben den Standardmenus und Symbolleisten von Excel, die auf einen Rechner evtl. weiterhin installierten Addins (mit entsprechenden Menus) beim öffnen einer Datei zu deaktivieren und beim beenden der Datei die ursprüngliche Installation des Rechners /...
18.11.2009 19:14:04
Thread-ID: 1118429
5 Beiträge
Datum + X Monate
Bastian

Hallo,
ich habe ein kleines Problem und weiss leider nicht die Funktion. Zu einem bestehenden Datum möchte ich gerne x Monate dazurechnen. Wie geht das mit Excel? Bsp.: 15.02.2002 + 1 Monat = 15.03.2002
Habe schon einiges ausprobiert, aber keine Lösung gefunden.Ich hoffe ihr könnt mir he...
24.04.2002 18:14:54
Thread-ID: 116054
2 Beiträge
VBA: mit datum rechnen
Franz

Hallo Fachleute,
ich habe in einer UF zwei Textfelder eingefügt, in die jeweils ein Datum eingetragen wird. Diese Datümer sind Text, wie kann ich sie als Datum umformen. Mit dem Befehl "Format(Date, "?") - aber wie genau bitte.
Danke im Voraus und Grüße
Franz W.
01.05.2011 18:29:42
Thread-ID: 1212550
3 Beiträge
Datum + 30 Tage
Chris

Hallo,ich hab ein kleines Problem. Ich habe ein Datum z.B. 19.02.2002. Wie kann ich es schaffen, daß Excel dieses Datum nimmt, 30 Tage dazuzählt und mir das Datum+30 Tage ausgiebt.Danke & Gruß
Chris
29.05.2002 10:37:22
Thread-ID: 124493
2 Beiträge
Minuten zu Datum addieren
Donicht

Hallo Excelfreunde,
dieses Forum ist wirklich klasse.Ich habe hier schon viel lernen können.
Jetzt habe ich folgendes Problem:
Ich möchte ein genaues Zieldatum errechnen.
A3= 14.01.2013 plus B3= 1395 Minuten ist Dienstag 15 Januar 6:14 das ist ja auch ok.
=A3+(B3/60/24)
...
24.01.2013 12:10:12
Thread-ID: 1295781
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
4
2
7
4
1
2
1
2
2
6
9
3
4
5
1
3
3
3
11
6
3
5
15