Umstellung von Excel 2002 auf Excel 2010
Excel
wir haben hier ein Problem, unser Excel wird auf 2010 umgestellt, jetzt habe ich hier ein Makro, was ein ehemaliger Kollege erstellt hat, was nicht mehr durchläuft. Es beibt hängen bei "With Application.FileSearch".
Wir lesen mit diesem Makro eine aus SAP gezogen Liste aus.
Kann mir jemand Hilfestellung geben?
Danke und Gruß
Rainer
Attribute VB_Name = "Modul1"
Option Explicit
Public zeile_excel
Public zeile_sap
Public sap_löschen
Public exc_löschen
Sub Grunddaten_ermitteln()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim programm As String
Dim quellpfad As String
Dim quelle As String
Dim quellname As String
Dim zielpfad As String
Dim ziel As String
Dim zielname As String
Dim vorhanden As Integer
Dim datei As String
Dim name As String
Dim anfangspunkt
Dim endpunkt
Dim j
programm = ActiveWorkbook.name
vorhanden = 0
quellpfad = Sheets("Auswahl").Range("C1")
quelle = Sheets("Auswahl").Range("F2")
quellname = Sheets("Auswahl").Range("C2") & Sheets("Auswahl").Range("C3")
zielpfad = Sheets("Auswahl").Range("C5")
ziel = Sheets("Auswahl").Range("F6")
zielname = Sheets("Auswahl").Range("C6") & Sheets("Auswahl").Range("C7")
With Application.FileSearch ' ChDir quellpfad
.NewSearch
.LookIn = quellpfad
.Filename = "*.*"
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
For j = 1 To .FoundFiles.Count Step 1
datei = .FoundFiles(j)
name = Right(datei, Len(datei) - Len(quellpfad))
If name = quellname Then
vorhanden = 1
End If
Next j
End If
End With