mir hatte vor einer gewissen Zeit "ChrisL" bei einem Makro geholfen.
Welches den 3. Eintrag aus externen Dateien in Tabelle2 Spalte A einträgt.
Nun bräuchte ich noch den 4. Eintrag in Spalte B eingetragen.
Könnte mir da jemand helfen?
Hier mal das Makro was ich bis jetzt habe.
Sub F_Dateien_einlesen()
Dim spfad As String, sExt As String, sDatei As String
Dim wb1 As Workbook, WB2 As Workbook
Set wb1 = ThisWorkbook
spfad = Left(wb1.Path, InStrRev(wb1.Path, "\") - 1)
spfad = Left(spfad, InStrRev(spfad, "\") - 1)
spfad = Left(spfad, InStrRev(spfad, "\") - 1)
spfad = Left(spfad, InStrRev(spfad, "\")) & "Ordner c\Ordner cb\"
sExt = "*.f"
sDatei = Dir(spfad & sExt)
Application.ScreenUpdating = False
wb1.Worksheets(2).Cells.Delete
Do While Len(sDatei) > 0
Set WB2 = Workbooks.Open(spfad & sDatei)
WB2.Worksheets(1).Rows(3).Copy wb1.Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
WB2.Close
sDatei = Dir()
Loop
End Sub
mfg Blue Bird