Hätte da mal eine Frage :
ist es möglich von einem Excelsheet aus ander excel-dateien nach deren inhalt zu durchsuchen, und wenn der entsprechende inhalt gefunden wurde diesen in die ursprüngliche datei zu schreiben
vielen dank für eure hilfe
Peter
Sub kopieren()
Dim Filename As String
Filename = "M:\Ordner\NocheinOrdner\Datei" & ActiveCell & ".xls" 'statt activecell ggf. range("a1")
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Range("X2").Copy
Windows("Deine offene Datei.xls").Activate
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub