ich habe mich vor fast 8 Jahren mal etwas mit Excel und VBA beschäftigt und einen Code mit Hilfe auch aus diesem Forum erstellt. Heute weis ich selbst nicht mehr genau, wie das alles funktioniert und bin darauf angewiesen alles Schritt für Schritt wieder nachzuvollziehen.
Sinn des Codes ist, dass ich in einer Userform Exceldateien eines bestimmten Ordners angezeigt bekomme. Hintergrund ist der, dass ich in diesem Ordner viele Daten abgelegt habe, die ich bei Bedarf in eine andere Exceldatei einlesen möchte.
Der nun folgende Code beinhaltet "FileSearch". Nun haben wir auf Excel 2013 umgestellt und ich stehe auf dem Schlauch, da es FileSearch ja nicht mehr gibt. Ich habe mit einigen Beispielen hier schon probiert, kriege es aber selbst nicht hin.
Wie kann ich den folgenden Code anpassen, damit ich die Funktion wiederbekomme?
Herzlichen Dank vorab
Frank
Private Sub UserForm_Initialize()
Dim Datei As String
Dim Pfad As String
Dim PfadL As String
Dim i As Integer
Dim Anzahl As Integer
Dim FeldD() As String
Dim M As Byte
Halt = 0
Pfad = ActiveWorkbook.Path
PfadL = Pfad & "\Discovererdaten Jugendliche\"
With Application.FileSearch
.NewSearch
.LookIn = PfadL
.Filename = "*.xls"
.Execute
Anzahl = .FoundFiles.Count
End With
On Error Resume Next
ReDim FeldD(Anzahl)
i = 1
Datei = Dir(PfadL & "*.xls")
While Datei ""
FeldD(i) = Datei
i = i + 1
Datei = Dir()
Wend
For i = 1 To Anzahl
frm_Einlesen.lst_Import.AddItem (FeldD(i))
Next i
On Error GoTo 0
End Sub