Suchmakro
05.12.2008 09:59:40
Ernst
User Rudi Hat mir diesen Code geschrieben funktioniert super.Recht herzlichen Dank.
Bräuchte noch zwei Änderungen.
1)Ich möchte das mir die Dateien in der Zieldatei in Tabelle2 ausgegeben werden !
wie muss man die Range Angabe dafür ändern ?
2)ist es machbar das, das zu suchende Wkb.nicht im selben Ordner wie die Zieldatei sein muss zb suchen per Pfadangabe..
Wäre für Lösungsvorschläge dankbar.
lg.Ernst
in ein Modul im Ziel-Workbook (xy.xls)
Ziel muss im gleichen Ordner stehen, wie das zu suchende Wkb.
Sub DatenHolen()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Set wksZiel = ThisWorkbook.Sheets(1)
Set wksQuelle = Workbooks.Open(NeuesteDatei(ThisWorkbook.Path, ThisWorkbook.Name)).Sheets(1)
With wksQuelle
.Range("B5:B15").Copy wksZiel.Range("O87")
.Range("D5:D15").Copy wksZiel.Range("P87")
End With
wksQuelle.Parent.Close False
End Sub
Function NeuesteDatei(strPfad As String, Optional strIgnoredWkb As String) As String
Dim dteMax As Date, strDatei As String
Const strType As String = "*.xls"
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
strDatei = Dir(strPfad & strType, vbNormal)
Do While strDatei ""
If strDatei strIgnoredWkb Then
If FileDateTime(strPfad & strDatei) > dteMax Then
dteMax = FileDateTime(strPfad & strDatei)
NeuesteDatei = strPfad & strDatei
End If
End If
strDatei = Dir
Loop
End Function