Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verbinden mehrer Mappen in einem Ordner

Forumthread: Verbinden mehrer Mappen in einem Ordner

Verbinden mehrer Mappen in einem Ordner
Dori

Hallo liebe Experten,
ich bitte euch um Hilfe. Ich habe mehere Mappen in einem Ordner (Anzahl variert), alle Mappen haben den gleichen Aufbau. Im Register/ Tabelle 1 jeder Mappe befindet sich die gleiche Tabelle mit der gleichen Position, Spallten- und Zeilenanzahl nur mit unterschiedlichen Werten.
Nun möchte ich gerne in einer Gesamt-Mappe alle im Ordner befindlichen Mappen (bzw. die Tabellen im Register/ Tabelle 1) zusammenfassen.
Ich hoffe mein Problem verständlich?!
Gruß
Dori
Anzeige
AW: Verbinden mehrer Mappen in einem Ordner
01.06.2010 14:06:55
JOWE
Hallo,
alle Tabellen1 in eine jeweils neue Tabelle der Gesamt-Mappe.
Oder die Inhalte aller Tabellen1 untereinander in eine gemeinsame Tabelle?
Gruß
Jochen
AW: Verbinden mehrer Mappen in einem Ordner
01.06.2010 14:19:22
Dori
Hallo,
a b c.
x1 1 1
y1 1 1 Tabelle 1 in Mappe 1 (Register 1)
z1 1 1
a b c
x2 2 2
y2 2 2 Tabelle 2 in Mappe 1 (Register 1)
z2 2 2
...
und das soll entstehen:
a b c
x3 3 3
y3 3 3 Tabelle-Gesamt in Mappe-Gesamt (Register 1)
z3 3 3
Gruß
Dori
Anzeige
AW: Verbinden mehrer Mappen in einem Ordner
01.06.2010 14:33:13
Dori
Fehler entdeckt, noch mal:
Hallo,
a b c.
x1 1 1
y1 1 1 Tabelle 1 in Mappe 1 (Register 1)
z1 1 1
a b c
x2 2 2
y2 2 2 Tabelle 2 in Mappe 2 (Register 1)
z2 2 2
...
und das soll entstehen:
a b c
x3 3 3
y3 3 3 Tabelle-Gesamt in Mappe-Gesamt (Register 1)
z3 3 3
Gruß
Dori
Anzeige
AW: Verbinden mehrer Mappen in einem Ordner
01.06.2010 20:08:11
jowe
Hallo Dori,
entschuldige, aber ich muss noch mal nachfragen.
Willst Du in der Mappe-Gesamt die Summen der Werte aus den Spalten A, B und C der anderen Tabellen bilden? Die Werte der Spalten B + C sind im Beispiel numerische Werte, hier zu summieren erscheint einfach. Die Werte der Spalte A bestehen jedoch aus einem Buchstaben und einem numerischen Wert. Der Buchstabe soll unverändert erhalten bleiben, der numerische Teil der Zellinhalte soll dann aber auch wieder summiert werden? Besteht der Buchstabenteil immer nur aus einem Zeichen? Wie lauten die Namen der Arbeitsmappen, sind die immer zusammen in einem Ordner?
Ein Makro in der Gesamt-Mappe würde in einem bestimmten Ordner jede Arbeitsmappe öffnen, nacheinander die Werte aus den Spalten A - C ermitteln und in den entsprechenden Spalten der Gesamtarbeitsmappe zu bereits vorhandenen Werten hinzuaddieren. Für die Spalte A wäre das ein wenig umständlich aber möglich.
So würde ich es angehen; vllt.hat jemand eine bessere Idee?
Gruß
Jochen
Anzeige
AW: Verbinden mehrer Mappen in einem Ordner
02.06.2010 08:39:57
Dori
Hallo,
ich könnte mich auch deutlicher ausdrücken können. Deine Frage ist vollkommen berechtigt.
xyz sollen keine Tabellleninhalte sein, sondern die "Zeilenüberschriften". Ich möchte nur aus numerischen Werten summieren. Die Namen der Arbeitsmappen sind unterschiedlich u immer in einem Ordner.
Das Makro was du beschrieben hast, ist genau das was ich brauche, nur leider kenne ich mich mit Markos überhaupt nicht aus.
Anzeige
AW: Verbinden mehrer Mappen in einem Ordner
02.06.2010 20:04:27
JoWE
..
kannst Du mal eine Gesamt-Mappe und eine Einzelmappe hochladen?
AW: Verbinden mehrer Mappen in einem Ordner
02.06.2010 23:04:22
jowe
...
hier ein Denkanstoß; 
Sub main_sammler()
Dim myTbl As Worksheet
Dim myPath, myFile As String
Dim S1, S2, S3 As Long
Set myTbl = ThisWorkbook.Sheets("Tabelle1")
myPath = "C:\temp\"
myFile = Dir(myPath & "*.xls")
Do
If myFile = "Gesamt.xls" Then GoTo weiter:
Workbooks.Open Filename:=myFile
S1 = WorksheetFunction.Sum(Sheets("Tabelle1").Range("A:A"))
S2 = WorksheetFunction.Sum(Sheets("Tabelle1").Range("B:B"))
S3 = WorksheetFunction.Sum(Sheets("Tabelle1").Range("C:C"))
ActiveWorkbook.Close savechanges:=False
With myTbl
.[A2] = [A2] + S1
.[B2] = [B2] + S2
.[C2] = [C2] + S3
End With
weiter:
myFile = Dir
If myFile = "" Then Exit Sub
Loop
End Sub

Gruß
Jochen
Anzeige

Forumthreads zu verwandten Themen

FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Anzeige
Lotus Notes: Nutzung Mail-Vorlage
Peter

Hallo,
aus meinem Lotus Notes möchte ich gerne aus Excel heraus mails versenden, was auch funktioniert. Allerdings habe ich noch nicht den Befehl gefunden, dass standardmäßig meine Mail-Vorlage verwendet wird (Vorgaben, Allgemein und Signatur).
2. Frage: Wie kann ich mehrere Adressea...
16.12.2009 08:33:29
Thread-ID: 1123871
2 Beiträge
Lotus-Notes-Mail mit Anhang aus Excel
Wilfried

Hallo und guten Tag,
folgendes Makro habe ich im Forum gefunden. Es bleibt immer an der Zeile
(Set MailDoc = Maildb.CREATEDOCUMENT) stehen, warum? ... und was muss ich tun, damit der Code mit abgespeichert wird?
Sub SendNotesMail() Dim Maildb As Object Dim MailDbName As String Dim M...
13.01.2010 14:25:25
Thread-ID: 1129487
2 Beiträge
Empfänger für Lotus Notes Mail aus Exceltabelle au
Wolfgang

Hallo liebe Excel-Experten !
In einem früheren Posting (auf das ich irgendwie leider nicht zugreifen kann, um dort einen Folgebeitrag zu schreiben), hatte ich gefragt, wie man den Empfänger einer LotusNotes-Mail aus einer
Excel-Tabelle auslesen kann. Ein User namens Andre hat mir danke...
20.05.2010 09:00:38
Thread-ID: 1157953
5 Beiträge
VBA : Lotus Notes Mail per Vorlage
NoNet

Hallo Leute,
ich habe ein Problem, das nur temporär (bis gar nicht - *schäm*) mit Excel zu tun hat :
Ich habe in Excel eine Liste mit eMail-Adressen (Spalte A) und Auftragsnummern (Spalte B).
Nun möchte ich per VBA die eMail-Empfänger per Mail anschreiben - ein entsprechendes Makro...
29.09.2010 15:56:46
Thread-ID: 1179908
5 Beiträge
Bei Terminüberschreitung -> Lotus Notes Mail
Marten

Hallo,
nachdem ich nun länger ohne Hilfe des Forums ausgekommen bin, bräuchte ich nun wieder Unterstützung.
Ich habe eine große Tabelle in der viele Einträge mit einer bestimmten Frist versehen sind. Wenn nun eine Frist überschritten wird, soll eine Mail generiert werden. Soweit so gut,...
10.11.2011 15:40:04
Thread-ID: 1237258
8 Beiträge
VBA Hyperlin per Lotus Notes Mail verschicken
Peter

Liebes Forum,
ich möchte in Lotus Notes Mail einen Hyperlink zu einer Datei erstellen. Den Pfad der Datei kann ich als Text verschicken, aber wie ordne ich dem Pfad einen Hyperlink zu?
Vielen Dank für Eure Antworten
Peter
20.02.2012 16:40:55
Thread-ID: 1251636
4 Beiträge
Exceldatei mit Lotus Notes vermailen
Pepi

Hallo zusammen
Stecke wieder mal im Sumpf (trotz frühlingshaftem Wetter)
Ich will eine Excel-Datei mit einem Makro mailen (als Anhang)
Folgende beiden Statements funktionten bis jetzt problemlos.
ActiveWorkbook.SendMail Recipients:="", Subject:="Telefonliste"
Application.Dia...
15.03.2012 15:39:12
Thread-ID: 1255119
6 Beiträge
Anzeige
neusten ordner finden und in zelle eintragen
tom

hallo forum!
ich finde leider keine antworten in den bisher gestellten fragen.
bei folgendem problem brauche ich bitte eure hilfe:
in einem netzwerk-verzeichnis wird jeden tag um ca. 23:00 ein ordner mit dem aktuellen datum erstellt (ordnername: 20131217). der inhalt des ordner inte...
18.12.2013 15:02:05
Thread-ID: 1342999
4 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
VBA Lotus Notes E-Mail mehrere Adressaten
Andreas

Hallo,
ich habe folgenden Quellcode im Netz gefunden, um per VBA Dateien per Mail (Lotus Notes) zu versenden. Das klappt auch soweit, so lange ich immer nur einen Adressaten habe.
Ich möchte aber gerne die Mail an mehrere Personen senden. Ich habe schon versucht, die Personen mit Hilfe...
14.12.2014 21:41:30
Thread-ID: 1397975
4 Beiträge
freie Auswahl eines zu bearbeitenden Ordners
Peter

Hallo Leute,
ich hab nochmal eine Frage bzw. ein Problem:
Ich würde gernen einen ganzen Ordner in Excel einlesen. Hierzu gebe ich einen bestimmten Pfad an. Nun würde ich es gerne so umsetzen, dass andere User einen beliebigen Ordner auswählen können, der dann ausgewertet wird. Die Auswe...
10.12.2015 13:20:41
Thread-ID: 1463571
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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