VB Problem ÜberlaufMeldung
03.03.2005 09:49:39
Slugger
ich habe eine Excel Datei, die mir verschiedene Dateien in Spalte schreibt. Dabei wird in 5er Schritten die nächste Datei geschrieben. Also Zeile 5 Datei1, Zeile 10 Datei 2 usw. Nun soll es mir aus den ungeöffneten Dateien Zellwerte in meine Spalte 2 Schreiben. Hierbei kommt es zum Überlauf. Es sind ca 1000 Dateien aufgelistet. Diese Dateien werden auch in Unterverzeichnissen gesucht.
Hier der Code:
Private Sub CommandButton2_Click() 'Daten holen
Dim i As Integer
Dim k As Integer
Dim suchwort As String
Dim anzahlzellen As Long
Dim anz As Integer
anzahlzellen = Worksheets(1).UsedRange.Rows.Count
For i = 1 To Worksheets(1).UsedRange.Rows.Count
suchwort = Cells(i, 1).Value
With Application.FileSearch
.NewSearch
.LookIn = "J:\Sicherungen\ES PP\Artikeldatenbank"
.FileType = msoFileTypeExcelWorkbooks
.Filename = suchwort
.SearchSubFolders = True
.Execute
anz = .FoundFiles.Count
If anz = 0 Then
ElseIf anz = 1 Then
Cells(i, 1).Offset(0, 3).Value = "='" & "[" & suchwort & "]Formblatt'!B6"
End If
End With
Next i
End Sub
Wer weiß hier Rat?
auch eine Lösung direkt in einer Zelle in Spalte 2 wäre:
='H:\ft13\Artikel\[test.xls]formblatt'!B6
nur bräuchte ich statt test.xls z. B. A5. Da macht Excel aber nicht mit.
Gruß Slugger