Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktuellstes file öffnen

aktuellstes file öffnen
23.05.2005 14:27:24
Eve
hi everybody
so ich habe eine BeforeClose Ereignis, wo ich eine bestimmte
datei öffne - jetzt möcht ich aber, das in dem folder "Test"
immer die actuelle file (im explorer neuste Date modified) öffnet.
Also nicht wie ich unten gelöst habe, eine spezielle datei.
die dateiname sind auch immer anders.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then Workbooks.Open Filename:="H:\Personal\Test\Book2.xls"
End Sub

wie kann ich diese problem lösen?
bitte um hilfe.
thank you so much and regards
eve

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuellstes file öffnen
23.05.2005 14:29:21
Herbert
Hi,
verwende Application.Filesearch mit Sortierung nach LastModified
mfg Herbert
AW: aktuellstes file öffnen
23.05.2005 14:43:00
Eve
hi herbert
danke viel mal für deine schnelle hilfe.
habe so versucht:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then Workbooks.Application.FileSearch.LastModified = "H:\Personal\Test"
End Sub

irgendwas geht falsch, diese fehler bekomm ich:
Run-time error '13': Type mismatch
can you help me?
vielen dank und gruss
eve
AW: aktuellstes file öffnen
23.05.2005 16:33:19
u_
Hallo,
ungetestet, sollte aber gehen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim z As String
Dim FS As Object, drv As Object, Datei As Object
Dim dteMax As Date, strDatei As String, strPfad As String
z = MsgBox("Open actual file?", 4, "Open")
If z = 6 Then
dteMax = DateValue("1.1.1900")
strPfad = "H:\Personal\Test"
Set FS = CreateObject("scripting.filesystemobject")
Set drv = FS.getfolder(strPfad)
For Each Datei In drv.Files
If Datei.Name Like "*.xls" Then
If Datei.datelastmodified > dteMax Then
strDatei = Datei.Name
dteMax = Datei.datelastmodified
End If
End If
Next Datei
Workbooks.Open (strPfad & "\" & strDatei)
Set FS = Nothing
Set drive = Nothing
Set Datei = Nothing
End If
End Sub

Gruß
Geist ist geil!
Anzeige
AW: das hab ich gesucht
24.05.2005 08:54:59
Eve
hi u_
ey, danke vielmal - it works.
so what means geist ist geil?
regards eve
AW: das hab ich gesucht
24.05.2005 11:23:50
u_
Hallo,
ein Wortspiel (a Wordplay).
Saturn-Werbung:
Geiz ist geil (Stinginess is cool)
Geist ist geil (Intellect is cool)
Gruß
Geist ist geil!
AW: das hab ich gesucht
24.05.2005 15:42:21
Eve
hello u_
thanks for clear statement and I will keep in mind.
have a nice day.
regards eve

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige