Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 105
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von ahorn38 vom 05.12.2017, 16:16 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Datum der letzten Änderung

 (375 Hits)

Hallo,

wir kann ich in Zelle "A1" das "System"-Datum der letzten Änderung der aktuellen Excel-Datei/ ausgeben?
Danke für euren Tipp!
A.


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von ahorn38 vom 05.12.2017, 16:52 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ich habe doch noch selbst eine Lösung gefunden:


.......
Dim a, b
Dim dteLAE As Date

strUmlage = (ActiveWorkbook.FullName)
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFile(strUmlage)
dteLAE = b.DateLastModified
.....


Falls jemand eine bessere Lösung hat, gern.
VG A,


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat das Problem gelöst!
Antwort 2 von Nighty___ vom 12.12.2017, 21:14 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Andreas :-)

Hier was zu tüfteln!

Gruß Nighty

Auswahl eines Ordners > Abtastung der befindlichen Dateien auf Änderung > Ausgabe

A = Dateiname
B = Datum der Erstellung
C = Zeit der Erstellung
D = Datum der letzten Änderung
E = Zeit der letzten Änderung
F = Eine Änderung wird mit "*" markiert und die Zeile Farblich hervorgehoben

Sub ShowFile()
    Dim Dpfad As String, DateiName As String
    Dim Lzeile As Long
    Dim FileO As Object, Files As Object
    Set FileO = CreateObject("Scripting.FileSystemObject")
    Dpfad = OrdnerAuswahl
    DateiName = Dir(Dpfad & "*.*")
    Do While DateiName <> ""
        Set Files = FileO.GetFile(Dpfad & DateiName)
        With Worksheets(1)
            Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(Lzeile, 1) = Files.Name
            .Cells(Lzeile, 2) = Files.DateCreated
            .Cells(Lzeile, 3) = Files.DateCreated
            .Cells(Lzeile, 4) = Files.DateLastModified
            .Cells(Lzeile, 5) = Files.DateLastModified
            If .Cells(Lzeile, 4) <> .Cells(Lzeile, 2) Or .Cells(Lzeile, 5) <> .Cells(Lzeile, 3) Then
                .Range(.Cells(Lzeile, 1), .Cells(Lzeile, 6)).Font.ColorIndex = 5
                .Cells(Lzeile, 6) = "*"
            Else
                .Range(.Cells(Lzeile, 1), .Cells(Lzeile, 5)).Font.ColorIndex = 1
            End If
            DateiName = Dir
        End With
    Loop
End Sub

Function OrdnerAuswahl() As String
On Error Resume Next
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
End Function


Antwort noch nicht bewertet




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2018 Supportnet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Fri Feb 23 20:44:32 2018