hab unten stehenden Code in das Open Ereignis meines WB gepackt.
Und würde gerne verschiedene *.csv Dateien einlesen, allerdings hab ich das Problem das obwohl die Dateien vorhanden sind (siehe Bild), er bei .FoundFiles.Count keine Dateien findet und somit logischerweisse die MSGBox sich öffnet. Kann mir bitt jemand mit nem Holzhammer helfen, Danke.
Private Sub Workbook_Open()
Dim bank1wbk As Workbook, bank2wbk As Workbook, bank3wbk As Workbook
Dim kassenwbk As Workbook
Dim strpath As String
Dim myarr(0, 50)
Dim i As Integer, x As Integer
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = False
If Sheets("Tabelle1").Range("H1") = 1 Then
strpath = ThisWorkbook.Path & "\"
Else
strpath = Sheets("Tabelle1").Range("B9")
End If
With Application.FileSearch
.LookIn = strpath
.SearchSubFolders = False
.Filename = "Bank" 'Sheets("Tabelle1").Range("E5") & "*.*"
.FileType = msoFileTypeAllFiles
For i = 1 To .FoundFiles.Count
If Right(.FoundFiles(i), 3) = "csv" Then
x = x + 1
myarr(0, i - 1) = .FoundFiles(i)
End If
Next
End With
If x = 0 Then
MsgBox "Keine Bankdateien gefunden, Liquidität wird in diesem Bereich nicht berechnet !!!"
GoTo Kasse
End If
Bank:
Select Case x
Case 1: bank1wbk = myarr(0, 0)
Case 2
bank1wbk = myarr(0, 0)
bank2wbk = myarr(0, 1)
Case 3
bank1wbk = myarr(0, 0)
bank2wbk = myarr(0, 1)
bank3wbk = myarr(0, 2)
Case Is > 3
MsgBox "Mehr als 3 Bankdateien gefunden, bitte beachten Sie das nur 3 Dateien herangezogen werden können !!!"
End Select
Workbook.OpenText (bank1wbk)
Kasse:
Application.ScreenUpdating = True
End Sub
MfG Peter