Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Umstellung von Excel 2002 auf Excel 2010

Umstellung von Excel 2002 auf Excel 2010
Excel
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
das gibt's nicht mehr.....
17.04.2012 11:49:03
robert
H,
such mal im Archiv Ersatz für FileSearch.
Gruß
robert
AW: Umstellung von Excel 2002 auf Excel 2010
17.04.2012 11:49:06
Excel
Die Bibliothek sccrun.dll wird sehr wahrscheinlich nicht gefunden (Verweise) oder ist durch ein MS update de-registriert worden.
Start - Feld Ausführen - regsvr sccrun.dll eingeben - Enter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige