Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien löschen mit Bedingung

Forumthread: Dateien löschen mit Bedingung

Dateien löschen mit Bedingung
04.01.2020 13:29:27
Lukas
Hallo liebe Community,
ich stehe gerade vor einem kleinen Problem und ich hoffe, dass ihr mir hier weiterhelfen könnt.
Ich würde gerne aus einem Ordner eine Datei löschen, wenn in der Zeile in der auch der Dateipfad (Spalte 4) für die zu löschende Datei steht eine Null in Spalte 3 ist. Wenn die entsprechende Zelle einen anderen Wert wie „0“ hat, dann soll die Datei nicht aus dem Ordner gelöscht werden. Und das für jede Zeile bis die erste leere Zeile in Spalte 3 kommt.
Vielen Dank schonmal für Eure Hilfe!
Schöne Grüße
Lukas
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien löschen mit Bedingung
04.01.2020 13:35:09
Hajo_Zi
Hallo Lukas,
meinst Du die Dateigröße?
Userbild

AW: Dateien löschen mit Bedingung
07.01.2020 08:12:07
Lukas
Hi,
nicht ganz... bei mir sind die Dateien im PDF-Format und varieren bei einer Größe von 300 bis 900 KB.
Schöne Grüße
Lukas
Anzeige
AW: Dateien löschen mit Bedingung
07.01.2020 14:20:06
Werner
Hallo,
Annahme: In Spalte D stehen ab D2 der komplette Pfad mit Dateiname, ohne Endung 
Sub Schaltfläche1_Klicken()
Dim i as Long
With Worksheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(i, 3) = 0 Then
Kill .Cells(i, 4) & ".pdf"
End If
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: Dateien löschen mit Bedingung
07.01.2020 16:36:57
Lukas
Hallo Werner,
vielen vielen Dank für deine Hilfe.
Ich habe den Code getestet und es kommt leider der Leufzeitfehler "Datei nicht gefunden", obwohl die Zellbezüge garantiert richtig sind. Kann es mit der Meldung zusammnehängen, die erscheint sobald ich einen Dateipfad öffne?
Userbild
Schöne Grüße
Lukas
Anzeige
AW: Dateien löschen mit Bedingung
07.01.2020 16:55:24
Werner
Hallo,
-wie ist der Name der Tabelle bei der in Spalte D dein Pfad steht
-zeig mal an einem Beispiel, was in einer der Zellen steht
Gruß Werner
AW: Dateien löschen mit Bedingung
09.01.2020 13:19:13
Lukas
Hallo Werner,
dein Code war doch richtig. Die Fehlermeldung kam nur, weil das Makro die erste Leere Zeile mitnimmt
und in dieser Zelle logischerweise kein Pfad mehr eingefügt ist. Ich hab das ganze einfach mit "On Error GoTo" geregelt.
Vielen Dank für deine Hilfe!
Schöne Grüße
Lukas
Anzeige
AW: Dateien löschen mit Bedingung
09.01.2020 22:30:18
Werner
Hallo,
wo (in welcher Zeile) deine Daten beginnen, kannst nur du wissen.
Wenn sie bei dir erst in Zeile 3 beginnen, dann solltest du halt das For i = 2 To in For i = 3 To ändern und nicht die On Error Keule auspacken.
Gruß Werner
;

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