Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzten Änderungsdatum der Datei eintrag

Forumthread: Letzten Änderungsdatum der Datei eintrag

Letzten Änderungsdatum der Datei eintrag
19.05.2020 23:38:31
Sergej
Hallo Leute,
ich habe ab Zelle A3:A... eine Liste der Einträge mit vollständigen Pfad incl. Datenamen stehen.
Bsp. A3 = P:\Daten\Projekte\2020\Hauptschule Nest\Kundenliste.xls
In der Spalte recht daneben sprich Spalte B möchte ich gerne letzten Änderungsdatum der Datei eintragen.
Bsp. B3 = 2020-05-10 08:58 Uhr
Das Ganze soll soweit bis letzte benutzte Zelle der Spalte A durchgesführt werden.
Vor dem Start von Makro sollen die Daten von B3:B... (bis letzte benutzte Zelle der Spalte A) gelöscht werden. Wenn in Spalte A die Datei nicht existiert, dann die Zelle in ROT darstellen und das Makro weiterlaufen lassen.
Wie mache ich das bitte per VBA?
Vielen herzlichen Dank im Voraus!
Beste Grüße,
Sergej
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzten Änderungsdatum der Datei eintrag
20.05.2020 00:04:42
Oberschlumpf
Hi Sergej,
zeig uns doch mal eine Bsp-Datei per Upload mit Bsp-Daten.
Danke.
Ciao
Thorsten
AW: Letzten Änderungsdatum der Datei eintrag
20.05.2020 01:13:06
Werner
Hallo,
so: 
Option Explicit
Sub letzte_Änderung()
Dim obFSO As Object, obFile As Object, i As Long
Set obFSO = CreateObject("Scripting.FileSystemObject")
'Blattname anpassen
With ThisWorkbook.Worksheets("Tabelle1")
For i = 3 To .Cells(.Rows.Count, "A").End(xlUp).Row
If obFSO.FileExists(.Cells(i, "A")) = True Then
Set obFile = obFSO.getfile(.Cells(i, "A"))
.Cells(i, "B").Value = obFile.DateLastModified
Else
.Cells(i, "B").Value = "Datei nicht gefunden!"
End If
Next i
End With
Set obFSO = Nothing: Set obFile = Nothing
End Sub
Gruß Werner
Anzeige
Nachtrag
20.05.2020 01:49:11
Werner
Hallo,
habe das Leeren der Spalte B am Anfang des Makros vergessen. Und wenn es denn unbedingt eine Färbung sein soll, wenn die Datei nicht gefunden wird. 
Option Explicit
Sub letzte_Änderung()
Dim obFSO As Object, obFile As Object, i As Long
Set obFSO = CreateObject("Scripting.FileSystemObject")
'Blattname anpassen
With ThisWorkbook.Worksheets("Tabelle1")
.Range("B3:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).ClearContents
For i = 3 To .Cells(.Rows.Count, "A").End(xlUp).Row
If obFSO.FileExists(.Cells(i, "A")) = True Then
Set obFile = obFSO.getfile(.Cells(i, "A"))
.Cells(i, "B").Value = obFile.DateLastModified
Else
.Cells(i, "A").Interior.Color = vbRed
End If
Next i
End With
Set obFSO = Nothing: Set obFile = Nothing
End Sub
Gruß Werner
Anzeige
AW: Nachtrag
20.05.2020 11:53:55
Sergej
Hallo Werner,
es funktioniert prima. Vielen herzlichen Dank!
Beste Grüße,
Sergej
Gerne u. Danke für die Rückmeldung. o.w.T.
20.05.2020 12:33:16
Werner
;

Forumthreads zu verwandten 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
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
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
Anzeige
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
Fehler bei Formel per Makro in Zelle eintragen
Born

Hallo Forum,
ich habe folgendes Problem:
Ich schreibe per Makro in Zellen eine Formel. Als Ergebnis bekomme ich jedoch nur die Fehlermeldung #NAME?. Wenn ich dann mit F2 in den Bearbeiten-Modus gehe und Enter drücke, kommt das richtige Ergebnis. Meine Formel scheint also richtig zu sein...
23.10.2008 10:15:00
Thread-ID: 1018538
11 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
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Anzeige
DDE formel 'abschalten' ohne VBA
Melanie

Hallo,
ich moechte durch zelle A1 eine DDE formel in A2
z.B. =Server|wert!id4049?abfrage
'abschalten' oder 'auskommentieren', sodass die DDE schnittstelle erst dann aktiv wird, wenn A2 = WAHR ist.
Schoen waere es, wenn das ohne VBA geht.
Wer hat eine Idee ?
Gruss...
23.03.2009 17:20:37
Thread-ID: 1062983
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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