Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Letzte Änderung auslesen

Datum Letzte Änderung auslesen
05.02.2021 16:51:11
Ulrich
Hallo Zusammen,
ich habe folgende Frage.
Ich liste mit einem Makro in einem Inhaltsverzeichnis Dateien auf.
Alle Dateien aus dem Ordner oder Unterordner die mit GB_ oder mit BG_ anfangen.
Die Dateinamen werden mit Verlinkung in die Tabelle übernommen.
Ist es möglich auch das Datum der letzten Änderung auszulesen und in die Spalte daneben zu übertragen?
Es könnten Word und Exceldateien sein.
Vielen Dank für eure Hilfe.
Gruß Ulli
https://www.herber.de/bbs/user/143649.xlsm

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Letzte Änderung auslesen
05.02.2021 19:00:45
Ulrich
Hallo Ralf,
danke für den guten Hinweis, dieses jetzt in meinen Code zu integrieren überfordert mich leider mit meinen bescheidenen VBA Kenntnissen.
Gruß Ulli
AW: Datum Letzte Änderung auslesen
05.02.2021 21:14:34
ralf_b 

Dim oFile
'weiter unten einfügen
For ialngIndex = 1 To lngFileCount
Call Tabelle1.Hyperlinks.Add(Anchor:=Tabelle1.Cells(ialngIndex + 19, lngColumn), _
Address:=.Files(ialngIndex).Path, TextToDisplay:=.Files(ialngIndex).Filename)
Tabelle1.Cells(ialngIndex + 19, 1) = ialngIndex
Set oFile = CreateObject("Scripting.Filesystemobject").getFile(.Files(ialngIndex).Path)
Tabelle1.Cells(ialngIndex + 19, 3) = oFile.DateLastModified
Next

Anzeige
AW: Datum Letzte Änderung auslesen
06.02.2021 10:02:21
Ulrich
Hallo Ralf,
ganz herzlichen Dank für deine Mühen.
Viele Grüße Ulli
AW: Datum Letzte Änderung auslesen
06.02.2021 05:34:38
Nepumuk
Hallo Ulli,
so:
For ialngIndex = 1 To lngFileCount
    Call Tabelle1.Hyperlinks.Add(Anchor:=Tabelle1.Cells(ialngIndex + 19, lngColumn), _
        Address:=.Files(ialngIndex).Path, TextToDisplay:=.Files(ialngIndex).Filename)
    Tabelle1.Cells(ialngIndex + 19, 1) = ialngIndex
    Tabelle1.Cells(ialngIndex + 19, 3) = .Files(ialngIndex).LastModify
Next

Gruß
Nepumuk
Anzeige
AW: Datum Letzte Änderung auslesen
06.02.2021 09:43:48
Ulrich
Hallo Nepumuk,
danke, soweit funktioniert der code.
Aber die Zuordnung ist irgendwie durcheinander.
Das Datum in Z20/S3 gehört zur Datei Z20S4, aber dort müsste ja das Datum der Datei aus Z20S2 stehen.
Das Datum der Datei Z20S4 müsste in Z20S5 stehen.
Bei der nächsten Zeile ist es genau so.
Danke vorab für deine Hilfe
Gruß Ulli
Userbild
AW: Datum Letzte Änderung auslesen
06.02.2021 09:52:04
Nepumuk
Hallo Ulli,
dann so:
With objFileSearch
    .CaseSenstiv = False
    .Extension = "*.*"
    .FolderPath = strFolder
    .SubFolders = True
    For lngColumn = 2 To 4 Step 2
        .NewSearch = True
        .SearchLike = Switch(lngColumn = 2, "GB", lngColumn = 4, "BG") & "*"
        lngFileCount = .Execute(Sort_by_Name, Sort_Order_Ascending)
        For ialngIndex = 1 To lngFileCount
            Call Tabelle1.Hyperlinks.Add(Anchor:=Tabelle1.Cells(ialngIndex + 19, lngColumn), _
                Address:=.Files(ialngIndex).Path, TextToDisplay:=.Files(ialngIndex).Filename)
            Tabelle1.Cells(ialngIndex + 19, 1) = ialngIndex
            Tabelle1.Cells(ialngIndex + 19, lngColumn + 1) = .Files(ialngIndex).LastModify
        Next
    Next
End With

Gruß
Nepumuk
Anzeige
AW: Datum Letzte Änderung auslesen
06.02.2021 09:59:32
Ulrich
Hallo Nepumuk,
ganz grosse Klasse läuft!!
Vielen, vielen Dank!
Gruß Ulli
AW: Datum Letzte Änderung auslesen
06.02.2021 11:05:25
Ulrich
Hallo Nepumuk,
könntest du noch einmal kurz schauen, wenn ich das Arbeitsblatt Kopiere und auf dem zweiten Arbeitsblatt andere Dateien auflisten möchte, kommt ein Kompilierungsfehler:
Mehrdeutiger Name: Sort_By
https://www.herber.de/bbs/user/143660.xlsm
Gruß Ulli
AW: Datum Letzte Änderung auslesen
06.02.2021 11:13:16
Nepumuk
Hallo Ulli,
du musst im zweiten Modul die Enumerationen und den Datentyp löschen.
'Public Enum SORT_BY
' Sort_by_None
' Sort_by_Name
' Sort_by_Path
' Sort_by_Size
' Sort_by_Last_Access
' Sort_by_Last_Modyfy
' Sort_by_Date_Create
'End Enum
'
'Public Enum SORT_ORDER
' Sort_Order_Ascending
' Sort_Order_Descending
'End Enum
'
'Public Type FILEINFO
' Filename As String
' Path As String
' Size As Long
' LastAccess As Date
' LastModify As Date
' DateCreate As Date
'End Type

Gruß
Nepumuk
Anzeige
AW: Datum Letzte Änderung auslesen
06.02.2021 11:32:27
Ulrich
Hallo Nepumuk,
danke, funktioniert!!
Gruß Ulli
AW: Datum Letzte Änderung auslesen
05.02.2021 18:21:55
Ulrich
Hallo Hajo,
Vielen Dank.
dies ist ein wirklich guter Code, aber diese Funktion in meinen Code zu integrieren, d.h. den selektierten Dateien das "Datum der Änderung" in die Spalte daneben zu schreiben überfordert mich mit meinen bescheidenen VBA Kenntnissen.
Auch ist es nicht wirklich erforderlich das sich ein Fenster mit den Auswahlmöglichkeiten öffnet, so kompliziert brauche ich es nicht.
Trotzdem Danke für deine Hilfe.
Gruß Ulli
Anzeige

309 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Pfad der letzten Speicherung
Iro

Hallo Excel-Gemeinde,
ist es möglich den Ordner herauszufinden, in dem zuletzt von Excel etwas gespeichert wird?
Hintergrund ist, dass in genau diesem Ordner gespeichert wird, wenn ich mit dem Befehl
Spreadsheet.Export Filename:="Filename.xls", Action:=ssExportActionNone
ein...
07.01.2009 18:00:59
Thread-ID: 1037642
3 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
7
10
7
14
2
8
3
5
6
4
4
8
5
10
2
3
11
2
1
2
5
8