Makroanpassung
08.12.2008 13:15:46
Ernst
User Rudi Hat mir diesen Code geschrieben der tadellos funktioniert !
Sub DatenHolen()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Const strFolder As String = "c:\MeinPfad"
Set wksZiel = ThisWorkbook.Sheets("Tabelle2")
Set wksQuelle = Workbooks.Open(NeuesteDatei(strFolder, ThisWorkbook.Name)).Sheets(1)
With wksQuelle
.Range("B5:B15").Copy
wksZiel.Range("O87").PasteSpecial xlPasteValues
.Range("D5:D15").Copy
wksZiel.Range("P87").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
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
1)was mich ein wenig stört ist das die zuletzt gespeicherte Datei abgefragt wird (ist auch meistens der Fall)ich würde aber das aktuellste Datum benötigen.
Lässt sich dahingehend was machen ?
2)weiters wäre es hilfreich für mich wenn man eine Msg box einbauen könnte "möchten sie die Daten Aktualisieren !
Wäre für Lösungsvorschläge dankbar.
Lg.Ernst