ich benötige Hilfe. Aktuell benutze ich folgendes was auch wunderbar funktioniert.
Option Explicit
Const cstrSufix As String = "-9SH3.XLSX"
Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, sourceSheet As String, _
SourceRange As String, TargetRange As Range) As Boolean
Dim strQuelle As String
Dim Zeilen As Long
Dim Spalten As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & SourceFile & "]" & sourceSheet & "'!" & Range( _
SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", vbExclamation, "Get data from _
_closed Workbook"
GetDataClosedWB = False
End Function
Public Sub HoleDaten()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
With Sheets("Ergebnis")
If IsDate(.Range("V1")) Then
Dateiname = Pfad & Format(.Range("V1"), "yymmdd") & cstrSufix
Else
MsgBox "Kein gültiges Datum!"
Exit Sub
End If
Pfad = "P:\XXXXXXX\"
Blatt = "05-22"
Bereich = "A2:Q5000"
Set Ziel = Worksheets("05-22").Range("A2")
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
End If
End With
Application.Calculate
End Sub
Problem ist nur das die Daten pro Monat abgespeichert werdenIst es hier auch möglich das er den Entsprechenden Ordner sucht ?
Also Beispiel:
Ich gebe den 17.11.2017 ein und es wird im Laufwerk XXX der Ordner 11_November_2017 und die darin enthaltene Datei 171117.xlxs geöffnet.
Hoffe es ist soweit verständlich wie ich es meine :)
Gruß
Daniel