Sub Bereich_auslesen()
Dim pfad As String, datei As String, blatt As String, bereich As Range, cell As Object
suchbegriff = ThisWorkbook.Sheets("Auslesen").Cells(4, 4).Value
If suchbegriff = "" Then
answer = MsgBox("Es wurde kein Kennzeichen eingegeben." & vbNewLine & "Möchten Sie trotzdem suchen?", vbQuestion + vbYesNo + vbDefaultButton2, "Suche")
If answer = vbNo Then
End
End If
End If
pfad = "C:\NeuerOrdner"
datei = "Report.xlsx"
blatt = "ExportReport"
Set bereich = Range("B9:F32")
For Each cell In bereich
cell = cell.Address(False, False)
ActiveSheet.Cells(cell.Row, cell.Column).Value = GetValue(pfad, datei, blatt, cell)
Next cell
End Sub
Private Function GetValue(pfad, datei, blatt, cell)
Dim arg As String
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "Datei nicht gefunden"
Exit Function
End If
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(cell).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function