Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makroanpassung..

Makroanpassung..
08.12.2008 16:03:00
weingartner
Hallo Rudi !
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makroanpassung..
08.12.2008 16:17:00
Andi
Hi,
mit
NeuesteDatei(strFolder, ThisWorkbook.Name)
ruft Du die Function <i>NeuesteDatei</i> mit zwei Argumenten auf;
im Header der Function:
<i>Function NeuesteDatei(strPfad As String)</i>
ist aber nur ein Argument vorgesehen.
Schönen Gruß,
Andi
Danke !
08.12.2008 16:28:00
weingartner
Danke für den Tip jetzt läufts perfekt
Lg.Ernst
gern geschehen... (ot)
08.12.2008 16:31:00
Andi
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige