Thema Datum  Von Nutzer Rating
Antwort
31.05.2016 17:20:41 Tophi
NotSolved
Blau Tabellenwerte aus mehreren Dateien im selben Ordner auslesen
 01.06.2016 18:29:00 Gast13749
NotSolved

Ansicht des Beitrags:
Von:
Gast13749		 Datum:
01.06.2016 18:29:00		 Views:
566		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenwerte aus mehreren Dateien im selben Ordner auslesen

Hallo,

 

versuche diesen Code:

Pfad und Dateinamen müssen angepasst werden.

 

Sub Tophi()
Dim Tg As Workbook 'Target
Dim WB As Workbook 'Source
Dim WS As Worksheet
Dim i As Long

Set Tg = ThisWorkbook
Set WS = Tg.Sheets(1)
sPath = "C:\temp\" '<<<<<<<<<<<<<< anpassen
sFile = Dir(sPath & "Tophi*.xls") 'name "Tophi" anpassen, evt. * <<<<<<<<

Do While Len(sFile)
    Set WB = Workbooks.Open(sPath & sFile)
    Tg.Sheets.Add after:=Tg.Sheets(Tg.Sheets.Count)
    Tg.Sheets(Tg.Sheets.Count).Name = Split(sFile, ".")(0)
    WB.Sheets(1).Range("A1:C1").Copy Tg.Sheets(Tg.Sheets.Count).Cells(1, 1)
    lr_s = WB.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lr_s
        If WorksheetFunction.Min(WB.Sheets(1).Range(Cells(i, "D"), Cells(i, "G"))) < 85 Then
            lr_t = Tg.Sheets(Tg.Sheets.Count).Cells(Rows.Count, "A").End(xlUp).Row + 1
            WB.Sheets(1).Range(Cells(i, "A"), Cells(i, "C")).Copy Tg.Sheets(Tg.Sheets.Count).Cells(lr_t, 1)
        End If
    Next i
    WB.Close 0
    sFile = Dir
Loop
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
31.05.2016 17:20:41 Tophi
NotSolved
Blau Tabellenwerte aus mehreren Dateien im selben Ordner auslesen
 01.06.2016 18:29:00 Gast13749
NotSolved