Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner suchen und neuste Datei nicht löschen

Forumthread: 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!
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten 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
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 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
Arbeitsblätter durchsuchen funktioniert nicht
Bowl

Mahlzeit zusammen,
mit dem hier: Sub Speichern_Click() Dim ws As Worksheet, bFound As Boolean For Each ws In ActiveWorkbook.Sheets If ws.Name = ActiveSheet.Cells(3, 2).Value Then Nummer/Tabellenblatt mit dem Namen _ vorhanden MsgBox ("Auftrag schon vorhanden") Exit Sub End If Next...
20.08.2009 12:50:50
Thread-ID: 1097340
4 Beiträge
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
Anzeige
"." 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
Anzeige
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
Anzeige
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
Suchen/Ersetzen in Kommentaren klappt nicht immer
Axel

hi,
ich habe eine Funktion zum Suchen und Ersetzen in Kommentaren welche auf markierte Zellen angewendet wird.
Es wird mit Platzhalter gesucht und beim finden des Begriffs die ganze entsprechende Zeile gelöscht.
Das ganze klappt komischerweise nur bei Kommentaren die sehr wenig Zeic...
14.01.2011 18:36:36
Thread-ID: 1195707
5 Beiträge
Wortsuchen Fml funktioniert nicht
Maris

Hallo Leute,
ich will in einem Text nach bestimmten Wörtern suchen und wenn das Wort gefunden wurde soll eine bestimmte Kategorie angegeben werden, leider funktioniert diese Formel nicht :-(...
Suche in B8 search, wenn gefunden dann schreibe Kategorie 1, wenn nicht such nach dem Wort Pr...
15.09.2011 11:12:57
Thread-ID: 1229969
4 Beiträge
Finden Suchfunktion funktioniert nicht
Axel

Hallo Cracks,
ich habe unten anstehendem Code folgendes Problem (bei der Ermittelung einer Max-Wert-Zeile):
innerhalb des angegebenen Bereiches myRange wird ein Maximalwert gesucht und dieser via Worksheetfunction.max() an pk korrekt übergeben. Suche ich unmittelbar danach denselben M...
18.01.2012 16:58:05
Thread-ID: 1246784
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige