Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner suchen und neuste Datei nicht löschen

Ordner suchen und neuste Datei nicht löschen
Michael
Hallo!
Da ich in Access nicht so fit bin, habe ich mit XL eine DB erstellt.
Es kommen jede Woche neue Dateien dazu, die ich manuell in die DB übertrage.
Es sind .xls dateien, allerdings löschen meine Kollegen nicht die alten dateien, so daß ich immer erst schauen muß welche Datei neu ist.
Nun möchte ich per Makro jede Woche die alten Dateien löschen, so dass in dem Ordner nur die neuste(n) Dateien bleiben. Leider gibt es für jeden Kollegen einen Ordner in dem er seine neuen Dateien auf mein Laufwerk kopiert. Pro Woche kommen ca. 150 Dateien hinzu.
Irgend eine Idee wie ich das lösen kann?
Vielen lieben dank im voraus!

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

Betreff
Benutzer
Anzeige
AW: Ordner suchen und neuste Datei nicht löschen
Hajo_Zi
Hallo Michael
mir ist das ein wenig zu aufwendig. Hier mal ein Ansatz um die jüngste Datei zu finden

Sub Dateiliste_Neu()
' http://home.media-n.de/ziplies/
'   jüngste Datei feststellen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
strVerzeichnis = "D:\Eigene Dateien\Hajo\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname > ""
If Zeit &lt FileDateTime(strVerzeichnis & Dateiname) Then
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Dateiname_neu = Dateiname
End If
Dateiname = Dir
Loop
MsgBox " Die jüngste Datei ist " & Dateiname_neu
End Sub



Anzeige
AW: Ordner suchen und neuste Datei nicht löschen
Michael
Hallo Hajo,
Danke für deine Hilfe. Das Makro funktoniert super. Leider können mehrere Berichte pro Tag im Ordner sein.
Habe den Löschbefehl eingefügt den ich aus der Recherche habe, ich hoffe an der richtigen Stelle(?)
If ....
Else
Kill "*.xls"
End If

Viele Grüsse
Michael
AW: Ordner suchen und neuste Datei nicht löschen
Michael
Habe es mal ausprobiert und es kam zu einer Fehlermeldung: "Zugriff verweigert"
Da ich Admin bin, kann ich mir das nicht erklären.
VG
Micahel

302 Forumthreads zu ähnlichen Themen

"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
Anzeige
Eintrag z.B. KW 52 durch Datum ersetzen
Hubert

Hallo liebe Forumsmitglieder,
aktuelle habe ich eine Frage zur Lösung folgender Aufgabenstellung:
In einer Zelle habe ich den Eintrag KW 51, KW 52,....
In der darunterliegenden zelle möchte ich automatisch das Datum dieser Woche eintragen:
Für die KW 15 : 15.12. - 21.12.08
...
18.12.2008 10:40:00
Thread-ID: 1033798
3 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Anzeige
Suchfunktion funktioniert nicht mehr richtig...
Jessi

Hallo zusammen,
zur Info ich hatte bereits am 24.02.2010 Hilfe/Unterstützung von FCS und Luc? erhalten.
Es ging darum, dass ich meine bestehende Suchfunktion um "Kriterienverfeinerungen" erweitern wollte.
Das habe ich mit der taträftigen Unterstützung dann auch hinbekommen, allerd...
27.05.2010 12:11:10
Thread-ID: 1158933
5 Beiträge
Ersetzen durch nichts "funst" nicht
Keule30

Hi Leute,
....vielleicht hat von euch einer Plan, warum diese relativ simple Geschichte nicht funktionieren will:
In Spalte B stehen Minutenangaben: 12:00, 05:00; 13:00
aber auch stehen in B "fehlerhafte " Angaben wie: 12min, 20min etc.
Will man diese über eine Formel auswerten,...
02.07.2010 16:03:44
Thread-ID: 1165189
19 Beiträge
"." in TextBox durch "," ersetzen
Sebastian Müller

Hallo,wie kann ich feststellen ob, in einer TextBox die Dezimalzahl mit einem "." statt einen "," eingegeben wurde? Wie kann ich dann den "." durch ein "," ersetzen?Danke,Sebastian
02.05.2002 08:49:29
Thread-ID: 117728
6 Beiträge
Formeln in best. Zeilen durch Wert ersetzen
Ramon

Hallo liebe VBA- und Makro-Experten.
Ich muß in einer datei mit rund 8.000 Zeilen in jeder 8. Zeile einer bestimmten Spalte
die Formel durch den Wert ersetzen. Jetzt kann ich zwar diese betreffenden Zeilen
per Autofilter filtern und dann kopieren. Aber "einfügen nur Wert" funktioni...
27.08.2010 14:54:50
Thread-ID: 1174538
3 Beiträge
Suchen und Ersetzen durch VBA
Sascha

Hallo zusammen,
ich habe ein Problem.
Ich habe eine Userform für die verwaltung von Kundendaten. Jetzt soll es möglich sein einen Kunden anzulegen (funktioniert), zu suchen (funktioniert) und einen gesuchten Kunden zu ändern (funktioniert nicht richtig).
Leider fügt mir mein VBA Cod...
15.11.2010 16:51:04
Thread-ID: 1186859
6 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
5
2
2
1
3
4
18
5
2
5
4
3
8
14
10
2
11
2
3
1
9
1
2
2
2