Auslese Funktion

[maninweb]

Hallo,

ungestetet, versuche mal das hier ...

Code:

Sub Auslesen()

  Dim Pfad  As String
  Dim Datei As String
  Dim Blatt As String
  Dim Zelle As String
  Dim Zeile As Long
 
  Pfad = "D:\Excel\"
  Blatt = "MeinBlatt"
  Zelle = "A1"
 
  Zeile = 0
  Datei = Dir(Pfad & "*.xlsx")
 
  Do
   
    If Len(Datei) > 0 Then
     
      Zeile = Zeile + 1
     
      ThisWorkbook.ActiveSheet.Cells(Zeile + 4, 1).Value = GetValue(Pfad, Datei, Blatt, Zelle)
     
      Datei = Dir()
     
    End If
   
  Loop While Len(Datei) > 0
 
End Sub

Gruß