Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
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

Änderungsdatum einer Zelle

Änderungsdatum einer Zelle
16.09.2016 09:04:56
Häupler
Hallo,
ich habe in einer Spalte sämtliche Dateinamen mir ausgeben lassen, die sich in einem Ordner befinden. Jetzt interessiert mich noch das Änderungsdatum dieser Dateien. Wie kann ich jetzt in Spalte B dieses anzeigen lassen?
also:
---A------------B---------
xyz.csv 25.01.2016 08:13
abc.csv 12.03.2015 10:45
zhg.csv 05.08.2013 18:36
Vielen Dank für eure Hilfe!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Änderungsdatum einer Zelle
16.09.2016 09:45:06
Bernd
Hi,
gefunden bei Office Lösungen:
Option Explicit

Public Sub CreateFileList()
Const FOLDER_PATH = "D:\Eigene Dateien\Eigene Excelbeispiele\" 'Anpassen !!!!!!!!!
Dim objFileSystemObject As Object, objFolder As Object
Dim objFiles As Object, objFile As Object
Dim lngRow As Long
Application.ScreenUpdating = False
lngRow = 1
Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileSystemObject.GetFolder(FOLDER_PATH)
Set objFiles = objFolder.Files
With Worksheets("Tabelle1") 'Anpassen !!!!!!!!!
.Range(.Cells(2, 1), .Cells(1, 4).End(xlDown)).Clear
For Each objFile In objFiles
lngRow = lngRow + 1
.Hyperlinks.Add Anchor:=.Cells(lngRow, 1), Address:= _
objFile.Path, TextToDisplay:=objFile.Name
.Cells(lngRow, 2).Value = objFile.DateCreated
.Cells(lngRow, 3).Value = objFile.DateLastAccessed
.Cells(lngRow, 4).Value = objFile.DateLastModified
Next
.Columns("A:D").AutoFit
End With
Set objFile = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set objFileSystemObject = Nothing
Application.ScreenUpdating = True
End Sub
mfg Bernd
Anzeige
AW: Änderungsdatum einer Zelle
16.09.2016 10:08:45
Häupler
Super vielen Dank, hat perfekt funktioniert!
Gerne, Danke für die Rückmeldung - owT
16.09.2016 11:04:25
Bernd

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige