Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1004to1008
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
1004to1008
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen wie alt die Datei ist

Prüfen wie alt die Datei ist
28.08.2008 14:15:30
Urmila
Hallo,
wie kann ich prüfen, wann die Datei C:\Test.txt gespeichert wurde (hh:mm:ss)?
Und falls die Datei älter ist als 20 Sekunden, dann MsgBox mit Meldung 1 sonst
MsgBox Meldung 2.
Danke und Gruß
Urmila

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen wie alt die Datei ist
28.08.2008 15:00:00
Worti
Hallo Urmila,
hier mal ein Beispiel:
Public Function LetzteAenderung(myFile As String) As Date
    Dim fso     As Object
    Dim fsoFile As Object
    On Error Resume Next
    LetzteAenderung = "00:00:00"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fsoFile = fso.GetFile(myFile)
    LetzteAenderung = fsoFile.DateLastModified
    Set fsoFile = Nothing
    Set fso = Nothing
End Function
Sub DateienAbgleich()
    Dim myTime As Date
    Dim myFile As String
    myFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    myTime = LetzteAenderung(myFile)
    If (Now() - myTime) * 86400 > 20 Then
        MsgBox "Letzte Speicherung vor mehr als 20 Sekunden!"
    Else
        MsgBox "Letzte Speicherung innerhalb der letzten 20 Sekunden!"
    End If
    'MsgBox (Now() - myTime) * 86400
End Sub
Gruß Worti
AW: Prüfen wie alt die Datei ist
Urmila

Hallo Worti
eine Frage, wie weise ich diesen Skript einen CommandButton zu?
Gruß
Urmila
AW: Prüfen wie alt die Datei ist
Worti

Hallo,
falls nicht sichtbar, blende nit Menü Ansicht - Symbolleisten die Steuerelementetoolbox ein. Gehe dann in de Entwurfsmodus (durch klicken auf das Icon mit Dreieck, lineal und Stift). Klicke dann den Commandbutton im der Toolbox an und ziehe im Tabellenblatt einen Rahmen. Klicke Rechts auf den Comand-Button und wähle aus dem Kontextmenü Code anzeigen aus. In den dann erscheinenden Rahmen schreibst du den Namen des aufzurufenden Makros, also DateienAbgleich. Mit ALT + Q kannst du dann den VBA-Editor verlassen. Noch einmal ein Klick auf das Icon Entwurfsmodus - fertig.
Gruß Worti
Anzeige
AW: Prüfen wie alt die Datei ist
28.08.2008 15:30:00
Urmila
Hallo Worti
eine Frage, wie weise ich diesen Skript einen CommandButton zu?
Gruß
Urmila
AW: Prüfen wie alt die Datei ist
28.08.2008 15:37:28
Worti
Hallo,
falls nicht sichtbar, blende nit Menü Ansicht - Symbolleisten die Steuerelementetoolbox ein. Gehe dann in de Entwurfsmodus (durch klicken auf das Icon mit Dreieck, lineal und Stift). Klicke dann den Commandbutton im der Toolbox an und ziehe im Tabellenblatt einen Rahmen. Klicke Rechts auf den Comand-Button und wähle aus dem Kontextmenü Code anzeigen aus. In den dann erscheinenden Rahmen schreibst du den Namen des aufzurufenden Makros, also DateienAbgleich. Mit ALT + Q kannst du dann den VBA-Editor verlassen. Noch einmal ein Klick auf das Icon Entwurfsmodus - fertig.
Gruß Worti
Anzeige

299 Forumthreads zu ähnlichen Themen

Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
spaltenbezeichnungen ändern sich einfach
Julia

Hallo!
ich habe ein Problem: ich habe mehrere .xml dateien erstellt, die spalten oben waren immer durchbuchstabiert. jetzt stehen da aber bei den identischen datein plötzlich zahlen oben...
warum und wie kann ich das rückgängig machen?
dankeschön!
julia
12.08.2008 13:33:00
Thread-ID: 1001182
3 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge

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
3
3
2
1
2
4
9
2
2
2
2
5
3
2
3
3
1
3
2
3
25
1
6
3
1