Public Sub HoleDaten()
ActiveSheet.Unprotect Password:="4711"
Range("B5:O10000").Select
Selection.ClearContents
Range("B5").Select
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
Pfad = "X:\Benutzer_Daten\Stanzerei\Bestandsliste Ersatzteile\"
Dateiname = "Ersatzteilbestandsliste.xlsm"
Blatt = "Lagerbestandsliste"
Bereich = "A5:O10000"
Set Ziel = ActiveSheet.Range("A5")
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert" & Chr(10) & Chr(10) & Chr(169) & " Ing. Byörn Tschinkl"
End If
ActiveSheet.Protect Password:="4711", AllowFiltering:=True
End Sub