Option Explicit
Public Function get_data(ByVal sPfad As String, ByVal sWorksheet As String, ByVal sRange As String) As Variant
Dim blnScreen As Boolean
blnScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Dim wkb As Workbook
Set wkb = Workbooks.Open(sPfad, ReadOnly:=True)
If InStr(1, sRange, ":", vbTextCompare) > 0 Then
MsgBox "Daten könenn nur aus einzelnen Zellen ausgelesen werden.", vbExclamation
get_data = vbNullString
Else
get_data = wkb.Worksheets(sWorksheet).Range(sRange)
End If
wkb.Close
Application.ScreenUpdating = blnScreen
Set wkb = Nothing
End Function