Option Explicit

Const intAnzahlAnfang   As Integer = 8
Const intAnzahlEnde     As Integer = 10
Const strPath           As String = "H:\Müll\"

Sub Dateien_auslesen()
Dim strExportfile       As String
Dim strWert()           As String
Dim strZeile            As String
Dim strText             As String
   
Dim intDateinummer      As Integer
Dim intWert             As Integer

Dim lngFirstRow         As Long

Dim Dateityp$

Dim wksAuslesung        As Worksheet

On Error Resume Next
Application.DisplayAlerts = False
Sheets("Auslesung").Delete
On Error GoTo 0
Application.DisplayAlerts = True

Set wksAuslesung = Sheets.Add

With wksAuslesung
    .Name = "Auslesung"

    Dateityp = Dir(strPath & "*.ASC")
    Do While Dateityp <> ""
        If Right(Dateityp, 3) = "ASC" Then
        
            intWert = 0
            strExportfile = strPath & Dateityp
            intDateinummer = FreeFile
                
            Open strExportfile For Input As #1
                Do While Not EOF(1)
                    Line Input #intDateinummer, strZeile
                    strWert = Split(strZeile, vbTab)
                    intWert = intWert + 1
                    
                    If intWert >= intAnzahlAnfang And intWert < intAnzahlEnde + intAnzahlAnfang Then
                        lngFirstRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                            
                        On Error Resume Next
                        .Cells(lngFirstRow, 1) = CDate(strWert(0))
                        .Cells(lngFirstRow, 2) = CDbl(strWert(1))
                        On Error GoTo 0
                    End If
                Loop
            Close #1
    
        End If
    
    Dateityp = Dir
    Loop
End With

Set wksAuslesung = Nothing
End Sub

Const intAnzahlAnfang   As Integer = 8
Const intAnzahlEnde     As Integer = 10
Const strPath           As String = "H:\Müll\"