Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro - Mehrere Files in einem zusammenfassen

Makro - Mehrere Files in einem zusammenfassen
28.02.2006 10:38:19
Stefan
Hi,
habe 10 versch. Arbeitsmappen mit jeweils einem Tabellenblatt.
Nun möchte ich mittels einem Makro versuchen, alle einzelnen Tabellenblätter in eine Arbeitsmappe zu kopieren...
Gibts hier eine Makrofunktion die ich dafür verwenden kann ?
Wäre für eine Antwort sehr dankbar
LG Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Mehrere Files in einem zusammenfassen
28.02.2006 13:49:34
Fred
Hallo Stefan,
mal auf der Schnelle,als Anregung.
Wichtig alle Arbeitsmappen in einen Ordner
'**********Datein der Variable NameF zuordnen****************************

Sub Test()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\xxxxxxx\"  'ist Ordner mit Arbeitsmappen
.Filename = "*.xls" 'nur xls Dateien
If .Execute > 0 Then
For Z = 1 To .FoundFiles.Count              ' alle Dateien im Ordner von oben nach unten aufrufen
NameF = .FoundFiles(Z)                            'aktuelle Datei
Workbooks.Open NameF
Sheets(1).Select: Cells.Select: Selection.Copy
Workbooks.Oben("C:\yyyyyy.xls").Aktive 'ist neue Arbeitsmappe
Shees(Z)  'es müssen natürlich auch so viele Tabellen vorhanden sein.
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows(NameF).Activate: ActiveWorkbook.Saved = True: ActiveWorkbook.Close
Next Z
End If
End With
End Sub

Fred
Anzeige

213 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
Aus mehreren Tabellenblättern Daten auslesen
Manuel

Hallo und einen schönen Sonntag,
ich habe eine Arbeitsmappe, mit 152 Tabellenblättern, hier soll mir das Makro als Referenz die Zeile B nehmen und soll dort jeweils die Zeilen welche "irgendwas" enthalten in einen neue Datei kopieren.
Das derzeitige Script, erstellt die neue Datei und K...
17.05.2009 14:37:22
Thread-ID: 1075699
2 Beiträge
Min aus mehreren Tabellenblättern
Hilmar

Hallo Leute,
ich habe hier eine Formel, die auf einem Tabellenblatt funktioniert.
=INDEX(C11:C100;VERGLEICH(MIN(M11:M100);M11:M100;0);1)
Ich möchte aber den MIN-Wert aus 5 Tabellenblättern haben.
Hat da jemand eine Idee?
Hilmar
08.06.2009 20:03:19
Thread-ID: 1079989
14 Beiträge
Anzeige
Tabellenblatt mit mehreren Diagrammen erstellen
wernerp

Ich habe ein Tabellenblatt mit mehreren Datenblöcken, aus denen ich
Säulendiagramme erstellen und auf dem Tabellenblatt ablegen will.
Es ist das erstenmal, dass ich dabei mit dem ChartObjekt arbeite.
Die Erstellung eines Diagramms bekomme ich hin. Das Problem ist,
dass die n...
21.08.2009 11:59:29
Thread-ID: 1097642
3 Beiträge
Zellen aus mehreren Tabellenblätter in eine Tabell
Stephan

Hallo,
ich beziehe mich auf einen Thread - wo ich den ANTWORTEN - Button nicht gefunden habe.
es geht um folgenden Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1113368.htm#1113368
Ich habe 12 Blätter und will Werte der einzelnen Blätter in einer Übersicht (13. Blatt) zus...
04.01.2010 18:47:08
Thread-ID: 1127122
6 Beiträge
Diagramm/Pivot aus mehreren Tabellenblättern
Holger

Hallo zusammen,
habe ein Excel-Sheet mit mehreren Tabellenblättern und möchte aus der Gesamtheit aller Daten ein Diagramm oder PivotChart erstellen. Ist dies möglich und wenn ja wie? Ein Beispiel habe ich hochgeladen.
Vielen Dank schon mal für die Hilfe.
11.02.2010 21:24:37
Thread-ID: 1137925
4 Beiträge
Gestapelte Säule aus mehreren Tabellenblättern
Holger

Hallo zusammen,
habe ein Beispiel hochgeladen: https://www.herber.de/bbs/user/67944.xlsx.
Folgendes habe ich vor:
Zum Einen ein Digagramm mit den Werten aus allen Blättern. Die Werte der Spalten sollen dann nach Anzahl der dort enthaltenen Werte gestaüelt werden.
Als Beispiel:...
14.02.2010 21:08:48
Thread-ID: 1138530
4 Beiträge
Aus mehreren Tabellenblätter eine machen
Sascha

Hallo ihr
Ich muss aus mehreren Tabellenblättern eine machen um dann die Daten mittels einer Pivot Tabelle auszuwerten.
Diese Tabellenblätter haben alle den gleichen Kopftext, einzig die darunterliegenden Daten sind verschieden ;)
Nun muss z.B. Tabelle 1, Tabelle 2 usw. in Tabelle...
07.07.2010 22:19:25
Thread-ID: 1166034
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
1
1
1
13
3
2
5
3
3
2
3
2
5
2
2
4
11
4
5
2
2
6
5
6
8