Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excelfiles zusammen fügen
zurück: Kopierfunktion will nicht - Laufzeitfehler 53 weiter: Info-Symbol bzw. vbInformation bei UserForm Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
motoremio
Excel-Kenner


Verfasst am:
19. Dez 2011, 15:17
Rufname: Matthias
Wohnort: Emmental

Excelfiles zusammen fügen - Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Guten Tag miteinander

Ich habe ca. 2000 Exceldateien, welche ich in eine Einzelne zusammenführen möchte. Dazu habe ich den Code von Phelan XLPH (http://www.office-loesung.de/ftopic451935_0_0_asc.php) verwendet.

Code:

Sub alles()

    Dim strPfad                 As String
    Dim strDateiname            As String
    Dim objVergleichDateinamen  As Object
    Dim intFN                   As Integer
    Dim lngZähler               As Long
    Dim lngLetzteZeile          As Long
    Dim arVergleichDateinamen   As Variant
    Dim blnImportExist          As Boolean
   
   
    strPfad = "C:\Users\mh\Desktop\afs\testimport\" 'Anpassen **********
   
   
    Set objVergleichDateinamen = CreateObject("Scripting.Dictionary")
   
    With Tabelle1
        lngLetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
        If lngLetzteZeile > 1 Then
            arVergleichDateinamen = .Range("A2:A" & lngLetzteZeile)
            For lngZähler = LBound(arVergleichDateinamen) To UBound(arVergleichDateinamen)
                objVergleichDateinamen(arVergleichDateinamen(lngZähler, 1)) = 0
            Next
        End If
       
        strDateiname = Dir(strPfad & "*.csv")
       
        Do While strDateiname <> ""
            If objVergleichDateinamen.Count Then _
                blnImportExist = objVergleichDateinamen.Exists(strDateiname)
           
            If Not blnImportExist Then
                intFN = FreeFile
                Open strPfad & strDateiname For Input As #intFN
                    Call ClpSchreiben(Replace(Input(LOF(intFN), #intFN), ";", vbTab))
                Close #intFN
               
                .Paste .Cells(.Rows.Count, 2).End(xlUp).Offset(1)
                .Range(.Cells(.Rows.Count, 1).End(xlUp).Offset(1), .Cells(.Rows.Count, 2).End(xlUp).Offset(, -1)).Value = strDateiname
            End If
           
            strDateiname = Dir()
        Loop
   
    End With
   
    Set objVergleichDateinamen = Nothing
End Sub

Public Sub ClpSchreiben(strText As String)
Dim IE As Object
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", "" & strText
Set IE = Nothing
End Sub


Ich sollte den Code noch ein wenig anpassen.
Die ersten 6 Zeilen (C1 - C6 --> Rot) sollten aus dem Ursprungsdokument im Sammeldoku transponiert (Grün) werden und auf jeder zeile einfügt werden (wie dies jetzt mit dem Dokumentnamen geschieht.
Untereinander kopiert werden müssten anschliessend nur noch ab der 8. Zeile

 ABCDEFGHIJK
2       32968   
3       48649-11   
4       Ami Nussbaum 0.9   
5       14180   
6       9511   
7           
8     Paket-Nr.BlattLänge (cm)Breite (cm)QuadratmeterAbmaß
93296848649-11Ami Nussbaum 0.9141809511120240146.72 
103296848649-11Ami Nussbaum 0.9141809511220240167.68 
113296848649-11Ami Nussbaum 0.9141809511320210135.46 
123296848649-11Ami Nussbaum 0.9141809511420240167.68 
133296848649-11Ami Nussbaum 0.9141809511520210145.88 
143296848649-11Ami Nussbaum 0.9141809511620240178.16 
153296848649-11Ami Nussbaum 0.9141809511720240167.68 
163296848649-11Ami Nussbaum 0.9141809511820240157.2 
173296848649-11Ami Nussbaum 0.9141809511920235136.11 
183296848649-11Ami Nussbaum 0.91418095111020235146.58 


Für Tipps, Ratschläge und Code's bin ich Euch sehr dankbar.

Matthias
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Dez 2011, 15:48
Rufname: Phelan


AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Kannst du es etwas genauer beschreiben?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
motoremio
Excel-Kenner


Verfasst am:
19. Dez 2011, 15:56
Rufname: Matthias
Wohnort: Emmental

AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Gerne doch...
Jedes Excel-File sieht so aus

 ABCDEF
1Maßliste-Nr.: 32968   
2Stamm-Nr.: 48649-11   
3Holzart: Ami Nussbaum 0.9   
4Palette: 14180   
5Partie-Nr.: 9511   
6      
7Paket-Nr.BlattLänge (cm)Breite (cm)QuadratmeterAbmaß
8120240146.72 
9220240167.68 
10320210135.46 
11420240167.68 
12520210145.88 
13620240178.16 
14720240167.68 
15820240157.20 
16920235136.11 
171020235146.58 
181120235157.05 
191220235125.64 
201320235167.52 
211420240136.24 
221520240146.72 
231620240146.72 
241720240146.72 
251820240146.72 
2619202102410.08 
272020220229.68 
282120220187.92 
292220240136.24 
302320240146.72 
312420240136.24 
322520240136.24 
332620240125.76 
342720240136.24 
352820240115.28 
362920240136.24 
373020240125.76 
383120240146.72 
393220240136.24 
4033202202611.44 
4134202202812.32 
423620220187.92 
433720225229.90 
443820230188.28 
45398225162.88 
464020240178.16 
47      
48Gesamt   278.74 


Diese füge ich mit deinem Code zusammen.
Mein Problem ist jedoch, dass die ersten 5 Zeilen anders angezeigt werden sollen (wenn möglich..)
 ABCDE
1Maßliste-Nr.: 32968  
2Stamm-Nr.: 48649-11  
3Holzart: Ami Nussbaum 0.9  
4Palette: 14180  
5Partie-Nr.: 9511  


Mein Wunsch wäre, dass diese wie folgt transponiert und eingefügt werden.

 ABCDEFGHIJK
8     Paket-Nr.BlattLänge (cm)Breite (cm)QuadratmeterAbmaß
93296848649-11Ami Nussbaum 0.9141809511120240146.72 
103296848649-11Ami Nussbaum 0.9141809511220240167.68 
113296848649-11Ami Nussbaum 0.9141809511320210135.46 
123296848649-11Ami Nussbaum 0.9141809511420240167.68 
133296848649-11Ami Nussbaum 0.9141809511520210145.88 
143296848649-11Ami Nussbaum 0.9141809511620240178.16 


Ist das überhaupt möglich. Ich könnte allenfalls auch mit Fomeln arbeiten, aber leider habe ich so auch noch keine Lösung gefunden.

Bitte meldet Euch, falls ich zu ungenau erkläre.

Dank herzlich
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Dez 2011, 16:30
Rufname: Phelan

AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Soll die GesamtZeile mitkopiert werden?

Sind die Werte immer im 1. TabellenBlatt der Dateien?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
motoremio
Excel-Kenner


Verfasst am:
19. Dez 2011, 16:43
Rufname: Matthias
Wohnort: Emmental


Re: AW: Excelfiles zusammen fügen - Re: AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Phelan XLPH - 19. Dez 2011, 15:30 hat folgendes geschrieben:
Soll die GesamtZeile mitkopiert werden?

Eigentlich reicht es, wenn die Einträge bis Spalte F berücksichtigt werden, aber es ist auch kein Problem, wenn die gesamte Zeile kopiert wird.

Zitat:

Sind die Werte immer im 1. TabellenBlatt der Dateien?

Ja, jedes Excel-File besteht nur aus einem Tabellenblatt.

Herzlichen Dank
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Dez 2011, 17:15
Rufname: Phelan

AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Sind es Excel-Dateien oder CSV-Dateien?

Der obige Code bezieht sich auf CSV-Dateien.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
motoremio
Excel-Kenner


Verfasst am:
19. Dez 2011, 17:17
Rufname: Matthias
Wohnort: Emmental

Re: AW: Excelfiles zusammen fügen - Re: AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Phelan XLPH - 19. Dez 2011, 16:15 hat folgendes geschrieben:
Sind es Excel-Dateien oder CSV-Dateien?

Der obige Code bezieht sich auf CSV-Dateien.

Eigentlich wären es Excelfiles (xls)... Sad
Phelan XLPH
Fortgeschritten


Verfasst am:
19. Dez 2011, 17:23
Rufname: Phelan

AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

2000 Files haben bei mir 10 min. in Anspruch genommen.
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



Test motoremio.xlsm
 Beschreibung:

Download
 Dateiname:  Test motoremio.xlsm
 Dateigröße:  16.38 KB
 Heruntergeladen:  21 mal

motoremio
Excel-Kenner


Verfasst am:
19. Dez 2011, 17:36
Rufname: Matthias
Wohnort: Emmental


AW: Excelfiles zusammen fügen - AW: Excelfiles zusammen fügen

Nach oben
       Version: Office 2010

Wahnsinn!!!

Ganz herzlichen Dank Wink

Alles klappte wie gewünscht. Ich werde Morgen mal mit den richtigen Daten versuchen, wie es klappt.
Danke Matthias
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Inhalte verschiedener Blätter Excel-Files vergleichen 3 soopertrack 92 17. Mai 2013, 23:37
soopertrack Inhalte verschiedener Blätter Excel-Files vergleichen
Keine neuen Beiträge Excel Hilfe: Tabellenblätter zusammen fügen 3 RMoser 95 29. März 2013, 11:28
RMoser Tabellenblätter zusammen fügen
Keine neuen Beiträge Excel VBA (Makros): Exceltabellen zu einer zusammen fügen 5 Olaf70 200 21. März 2013, 14:52
Grüßli Exceltabellen zu einer zusammen fügen
Keine neuen Beiträge Excel VBA (Makros): mehrere Excel-Datein zusammen fügen 15 Blacky1980 294 14. März 2013, 19:59
Blacky1980 mehrere Excel-Datein zusammen fügen
Keine neuen Beiträge Excel Formeln: Dynamische Verknüpfung von Excel-files -nur 1 Datei geöffnet 3 Problema 1059 20. Aug 2012, 13:16
Thomas Ramel Dynamische Verknüpfung von Excel-files -nur 1 Datei geöffnet
Keine neuen Beiträge Excel VBA (Makros): CSV zusammen fügen 10 Castroper 300 26. März 2012, 09:28
Castroper CSV zusammen fügen
Keine neuen Beiträge Excel Formeln: Zwei Tabellen zusammen fügen HILFE 0 Thschellop 286 15. Nov 2011, 18:48
Thschellop Zwei Tabellen zusammen fügen   HILFE
Keine neuen Beiträge Excel VBA (Makros): Mehrere Namen aus mehreren Zellen auslesen und in eine fügen 0 Gast 199 20. Apr 2011, 11:55
Gast Mehrere Namen aus mehreren Zellen auslesen und in eine fügen
Keine neuen Beiträge Excel VBA (Makros): Auswahl aller Excel-Files in einem Ordner 9 Liosalfar 298 15. Jun 2010, 09:00
Liosalfar Auswahl aller Excel-Files in einem Ordner
Keine neuen Beiträge Excel Hilfe: Kopieren von Daten aus unterschiedlichen Excel-Files 0 Gast1231 191 04. Jun 2009, 10:48
Gast1231 Kopieren von Daten aus unterschiedlichen Excel-Files
Keine neuen Beiträge Excel Auswertungen: Konsolidierung verschiedener Excelfiles 1 Gast 388 04. Nov 2008, 08:39
Gast Konsolidierung verschiedener Excelfiles
Keine neuen Beiträge Excel VBA (Makros): performance beim sequentiellen öffnen vieler(>500)excelfi 8 markusre 1285 28. Okt 2008, 21:28
Case_Gast performance beim sequentiellen öffnen vieler(>500)excelfi
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps