Thema Datum  Von Nutzer Rating
Antwort
04.07.2016 14:04:00 Anna
NotSolved
04.07.2016 14:20:11 Gast83337
NotSolved
04.07.2016 14:51:18 Gast4111
NotSolved
Blau Excel Tabellen aus meheren Dateien in eine zusammenführen
 04.07.2016 18:17:59 Gast60989
NotSolved

Ansicht des Beitrags:
Von:
Gast60989		 Datum:
04.07.2016 18:17:59		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
Excel Tabellen aus meheren Dateien in eine zusammenführen

Hallo! Mal auf die schnelle an deine Bedürfnisse angepasst aber ungetestet. Müsste aber eigentlich laufen. Bitte mal probieren und melden, wen was nicht passt. VG

 

Option Explicit
     
Sub Dateien_Zusammen()
Dim fso As Object
Dim ziel As Object
Dim temp As String
Dim quelle As Object
Dim k As Long
Dim zeileziel As Long
Dim zeilequelle As Long

Set fso = CreateObject("Scripting.FileSystemObject")
'deine Datei in die alle rein soll, Name ist egal, Makro ommt ja von dore
Set ziel = ThisWorkbook
'das Blat in das eingetragen wird
zeileziel = ziel.Worksheets("RL").Cells(Rows.Count, 1).End(xlUp).Row
zeileziel = zeileziel + 1
'die dateinamen
For k = 11 To 31
    temp = ziel.Worksheets("Makro").Cells(k, 2)
    If fso.fileexists(temp) Then
        Workbooks.Open (temp)
        Set quelle = ActiveWorkbook
        zeilequelle = quelle.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        If zeilequelle > 1 Then
            quelle.Worksheets(1).Range("A2:R" & zeilequelle).Copy ziel.Worksheets("RL").Cells(zeileziel, 1)
            zeileziel = zeileziel + zeilequelle
        End If
        quelle.Close
    End If
Next k

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.07.2016 14:04:00 Anna
NotSolved
04.07.2016 14:20:11 Gast83337
NotSolved
04.07.2016 14:51:18 Gast4111
NotSolved
Blau Excel Tabellen aus meheren Dateien in eine zusammenführen
 04.07.2016 18:17:59 Gast60989
NotSolved