Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Ordner auslesen und Zellen kopieren
25.10.2007 16:23:13
Manuela
Hallo Makro Experten,
ich hatte in Excel xü / 2003 ein sehr schönes Makro mit dem ich meine ganzen Rechnungen auslesen konnte und bestimmte Zellen in eine Rechnungsliste kopieren konnte. Nun habe ich Excel 2007 und den "Laufzeitfehler 445". Ich habe durch die Online Suche bereits gefunden, daß das ein Problem von Excel 2007 ist. Excel 2007 kann anscheinend mit diesem Makro nichts mehr anfangen. Was kann ich tun damit mein Makro wieder so funktioniert wie vorher. Bin für jeden Lösungsvorschlag sehr dankbar.
Hier unten steht mein funktionierendes Makro aus dem älteren Excel.

Private Sub CommandButton1_Click()
Dim strFTyp As String, _
strOrdner As String, _
strSF As Byte, _
strFile As String, _
strName As String, _
FS As FileSearch, _
i As Integer, z As Integer, n As Integer, _
wbkVV As Workbook, _
wshVV As Worksheet, _
wshFiles As Worksheet, _
rngFind As Range, iZähler As Integer
Application.ScreenUpdating = False
strFTyp = "*.xls"
strOrdner = ThisWorkbook.Path
Set FS = Application.FileSearch
With FS
.LookIn = strOrdner
.Filename = "*" & strFTyp
.SearchSubFolders = True
If .Execute > 0 Then
Set wshFiles = Sheets(1)
For i = 1 To .FoundFiles.Count
If .FoundFiles(i)  ThisWorkbook.Path & "\" & ThisWorkbook.Name Then
n = wshFiles.Cells(65536, 1).End(xlUp).Row + 1
strFile = .FoundFiles(i)
Set wbkVV = Workbooks.Open(Filename:=.FoundFiles(i), IgnoreReadOnlyRecommended:=True)
Set wshVV = wbkVV.Sheets(1)
strName = wbkVV.Name
With wshFiles.Rows(n)
.Cells(1) = wshVV.Range("J19")
.Cells(2) = wshVV.Range("I21")
.Cells(3) = wshVV.Range("A1")
.Cells(6) = wshVV.Range("A9")
.Cells(7) = wshVV.Range("A20")
.Cells(8) = wshVV.Range("B26")
.Cells(9) = strName
End With
wbkVV.Close False
End If
Next i
End If
End With
wshFiles.Cells.EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub


Im voraus schon mal besten Dank für eure Hilfe
Liebe Grüße
Manu

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner auslesen und Zellen kopieren
25.10.2007 17:38:10
Original
Hi,
Application.FileSearch wurde in Excel 2007 ersatzlos gestrichen.
mfg Kurt
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige