Viele kleine Excel-Files zu einem großen machen?

Viele kleine Excel-Files zu einem großen machen?

Impressum | Werbung

Geizhals » Forum » Software »

Viele kleine Excel-Files zu einem großen machen? (17 Beiträge, 104 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo,

stehe vor dem folgenden Problem:

Mir liegen ca. 200 Excel-Files (Adressdaten von je 5 Kunden je File) vor, die es zu einer einzigen Datei zu machen gilt. (Fragt mich bitte nicht, wer auf die Idee gekommen ist, Kunden im 5er-Pack abzuspeichern, es ist eben so

)

Wie gehe ich am besten vor? Händisch Datei für Datei zu öffnen und die Inhalte in ein neues File zu kopieren, ist ja nicht so das Wahre...

Hinweis: Gott sei Dank sind alle Files genauso formatiert, Spalten tragen keine Überschriften.

Wer weiß eine Lösung? THX

ciao,
napigator

http://www.synkronizer.com/

Danke!

Da es sich aber um mehr als nur 2 Dateien handelt, leider nicht wirklich praktikabel...

ciao,
napigator

da fällt mir nichts besseres als vba ein:

meine Lösung wäre:

Du wechselst in den VBA-Editor (Alt F11), dort doppelklick auf die aktuelle Datei (links im Projekt Explorer), dort dann Einfügen/Modul. Dort kopierst den Text rein.

Du startest indem du ins Excel zurück gehst, dort dann Extras/Makros/zusammenkopieren.

Da du nichts weiteres Geschrieben hast gehe ich davon aus, dass alle Dateien in einem Ordner stehen.

Angaben die du machen musst:
Ordner in dem du die Dateien hast,
Tabellenblatt

also im Code folgende Zeilen (ganz oben):
'Ordner mit Dateien
Const cstrFolder = "C:\temp\"
'Tabellenblattindex mit den Daten
Const intTable = 1

Hoffe es passt alles.

Option Explicit

Sub zusammenkopieren()
'Ordner mit Dateien
Const cstrFolder = "C:\temp\"
'Tabellenblattindex mit den Daten
Const intTable = 1

'Dateisuche
Dim objFso As FileSearch
'Dateizähler
Dim intFile As Integer
'Zeilenzähler
Dim lngRow As Long
'Tabellenblatt
Dim wks As Worksheet
'temporäre Variablen
Dim intTmpCol As Integer, intTmpRow As Integer
'ordner
Dim strFolder As String
'zielzelle,Zählvariable, temp. Bereich
Dim rngTarget As Excel.Range, rngCell As Excel.Range, rngTmp As Excel.Range
'tmp Blatt
Dim wksTmp As Worksheet

strFolder = cstrFolder
'Zielzelle auswählen
On Error Resume Next
Do Until Not rngTarget
    On Error Resume Next
    Set rngTarget = Application.InputBox("Bitte die Zielzelle auswählen", Type:=8)
    On Error Resume Next
Loop
On Error GoTo 0:
'setzen von Mappe, Zeile und SPalte
Set wks = rngTarget.Worksheet
lngRow = rngTarget.Row
intTmpCol = rngTarget.Column
'prüfen ob der Ordner richtig ist
If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
If Dir(strFolder) = "" Then
    MsgBox "Ordner nicht gefunden"
    Exit Sub
End If

'neue Suche
Set objFso = Application.FileSearch
With objFso
    .LookIn = strFolder 'suchen in
    .FileType = msoFileTypeExcelWorkbooks 'was suchen
    .Execute 'suche durchführen
    For intFile = 1 To .FoundFiles.Count 'Dateien durchlaufen
        Workbooks.Open .FoundFiles(intFile) 'Datei öffnen
        intTmpRow = Worksheets(intTable).UsedRange.Rows.Count 'benützten Bereich kopieren
        'Set wksTmp = Worksheets(intTable) 'tmp. Tabelle
        Worksheets(intTable).UsedRange.Copy 'kopieren
        wks.Cells(lngRow, intTmpCol).PasteSpecial xlPasteValues 'einfügen
        lngRow = lngRow + intTmpRow 'Zielreihe weiterzählen
        'wksTmp.Activate
        ActiveWorkbook.Close False 'Datei schließen
    Next intFile 'nächste Datei
End With
End Sub

Yeah! GENAU das war's!!

Vielen, vielen Dank!

ciao,
napigator

woher kannst du wissen dass es genau das war? habs extra für dich gemacht

Korrektur: GENAU das IST es!

Nochmals vielen Dank, hast mir viele Stunden mühsamstes Copy´n´Paste erspart!

ciao,
napigator

das sollte dir ein sixpack für mich und meinen Programmierer (Penguin) wert sein....

Hilf auch Du! http://forum.geizhals.at/t261360.html

wie komm ich zu der unverhofften Ehre (d)ein Programmierer zu sein?

ich bin dein manager, und hol das optimale für dich raus... also musst du ja wohl mein Programmierer sein....

Hilf auch Du! http://forum.geizhals.at/t261360.html

bitte, DANN will ich aber nicht einfach nur irgendein 6er-Tragl - das muss schon ein Markenbier sein

jetzt aufeinmal fordern .... vorher hättest gar nicht dafür wollen.....

Hilf auch Du! http://forum.geizhals.at/t261360.html

vorher war ich auch noch kein Programmierer und hatte keinen Manager ...

Brauche aber eher einen Assistenten als einen Manager

du brauchst vielleicht zusätzlich einen assistenten. Einen Manager brauchst auf jedenfall. Ich werde mal schauen was ich auftreiben kann.

Hilf auch Du! http://forum.geizhals.at/t261360.html

Anforderungen:
weiblich, jung, 90-60-90

Kenntnisse werden nicht vorausgesetzt sondern gemeinsam erarbeitet...

na des kostet dir einiges.....

Hilf auch Du! http://forum.geizhals.at/t261360.html

kriegst mein 6er tragl von vorher

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung