Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Excel-Makro zum Kopieren von einem Zellbereich in eine andere Datei?
« am: Januar 22, 2017, 22:09:55 Nachmittag »
Ich brauche ein Excel-Makro zum Kopieren von einem Zellbereich (K1-K2) in eine andere Datei?
Es wird immer ein Fehler angezeigt, wegen"With Application.FileSearch". Mein ganzer Code:
Es wird immer ein Fehler angezeigt, wegen"With Application.FileSearch". Mein ganzer Code:
Code: [Auswählen]
Sub FilesListen()
Application.ScreenUpdating = False
Dim Dateien As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
.LookIn = "C:\Users\niklas\Desktop\excel test\"
.SearchSubFolders = True
.Filename = "*.xlsx"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
Workbooks(DateiName).Sheets("Angebot").Range("K1:K2").Copy ThisWorkbook.Sheets("AngebotAuflistung").Range("I13:J13")
Workbooks(DateiName).Close
End If
Next Dateien
End If
End With
Application.ScreenUpdating = True
End Sub