Makroanpassung..
08.12.2008 16:03:00
weingartner
was mache ich falsch ?
Es kommt die Fehlermeldung Falsche Anzahl An Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
In der Zeile wird Neueste Datei markiert
Set wksQuelle = Workbooks.Open(NeuesteDatei(strFolder, ThisWorkbook.Name)).Sheets(1)
Sub DatenHolen()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Const strFolder As String = "C:\Dokumente und Einstellungen\Ernst\Desktop\neuer ordner (2)" _
If MsgBox("Daten Aktualisieren?", vbYesNo, "Frage") = vbYes Then
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 If
End Sub
Function NeuesteDatei(strPfad As String)
Dim oFS As Object, oFolder As Object, oFile As Object
Dim dteMax As Date
Const strType As String = "*.xls"
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder(strPfad)
For Each oFile In oFolder.Files
If oFile Like strType And oFile.datecreated > dteMax Then
dteMax = oFile.datecreated
NeuesteDatei = oFile
End If
Next
Set oFolder = Nothing
Set oFS = Nothing
End Function
Lg.Ernst