Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei in den Papierkorb verschieben/löschen?

Forumthread: Datei in den Papierkorb verschieben/löschen?

Datei in den Papierkorb verschieben/löschen?
17.11.2005 13:13:59
Jens
Hallo,
geht es mit Makro, eine Datei statt zu löschen in den Papierkorb zu befördern
und wenn ja, wie?
Habe in der Recherche nichts passendes gefunden.
Grüße Jens
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei in den Papierkorb verschieben/löschen?
17.11.2005 13:24:49
Frank
Hallo Jens,
versuche mal in der folgenden Prozedue die beiden "Löschzeilen" zu testen:
Private Declare 

Function DeleteFile Lib "kernel32" _
Alias "DeleteFileA" (ByVal lpFileName As String) As Long


Sub Test()
' Löschzeile 1
Kill "c:\windows\file1.txt"
' Löschzeile 2
Call DeleteFile("c:\windows\file2.txt")
End Sub



Sag mal Bescheid, ob eine davon geholfen hat!

Gruß

Frank.
Anzeige
AW: Datei in den Papierkorb verschieben/löschen?
17.11.2005 13:29:41
Jens
Hallo,
geht so nicht, die kommen nicht im Papierkorb an.
Grüße Jens
AW: Datei in den Papierkorb verschieben/löschen?
17.11.2005 13:36:51
Frank
Hallo Jens,
jetzt habe ich eine Lösung gefunden, testen musst Du sie wieder:
http://www.aboutvb.de/khw/artikel/khwshellkill.htm
Viel Erfolg
Frank.
Anzeige
geschlossen mT
17.11.2005 14:21:27
Jens
Hallo,
danke für den Link, das ist aber mit vielen Fragezeichen zu genießen. Ich habe aber
durch deinen Anregung eine Lösung bei www.vbfun.de gefunden.
Grüße Jens
;

Forumthreads zu verwandten Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
VBA-Makro zum Gruppieren einzelner Tage
Christoph

Hallo Leute!
Bin neu hier im Forum und da ich relativ wenig Ahnung von Excel und VBA habe, mich aber beruflich in Zukunft häufiger damit beschäftigen werde, bin ich noch auf ein wenig Hilfe angewiesen.
Ich bastle gerade an einem Makro, das innerhalb einer Monats-Tabelle die einzelnen Ta...
26.09.2008 10:22:00
Thread-ID: 1012530
10 Beiträge
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Formeln in Zellen tretz VBA beibehalten
Enrico

Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
31.12.2008 15:11:47
Thread-ID: 1036151
2 Beiträge
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Anzeige
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
xls Datei in Unterordnern suchen und öffnen
Markus

Hallo zusammen,
ich habe ein kleines Makro geschrieben, was mir eine Excel-Datei in einem Ordner suchen soll und diese dann öffnet. Das funktioniert auch soweit. Jetzt möchte ich aber die Unterordner, die sich in diesem Ordner befinden, einbinden. Leider bekomm ich es nicht hin.
Hier m...
28.04.2009 15:55:22
Thread-ID: 1071656
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Datei in den Papierkorb verschieben und löschen

Schritt-für-Schritt-Anleitung

Um eine Datei in den Papierkorb zu verschieben anstatt sie direkt zu löschen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Private Declare PtrSafe Function SHFileOperation Lib "shell32.dll" (pFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hwnd As LongPtr
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As LongPtr
    lpszProgressTitle As String
End Type

Sub MoveToRecycleBin()
    Dim FileOp As SHFILEOPSTRUCT
    FileOp.hwnd = 0
    FileOp.wFunc = &H3 'FO_DELETE
    FileOp.pFrom = "C:\Windows\file1.txt" & vbNullChar
    FileOp.pTo = vbNullChar
    FileOp.fFlags = &H1 'FOF_ALLOWUNDO
    SHFileOperation FileOp
End Sub

  4. Ändere den Pfad in FileOp.pFrom auf die Datei, die Du in den Papierkorb verschieben möchtest.

  5. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle MoveToRecycleBin und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Problem: Datei wird nicht in den Papierkorb verschoben.

    • Lösung: Überprüfe den Dateipfad auf Tippfehler und stelle sicher, dass die Datei existiert.

  • Problem: Makro läuft nicht, weil die Sicherheitseinstellungen das Ausführen von Makros blockieren.

    • Lösung: Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.

Alternative Methoden

Falls Du keine VBA-Lösung verwenden möchtest, kannst Du die Datei auch manuell in den Papierkorb verschieben:

  1. Rechtsklick auf die Datei im Windows Explorer.
  2. Wähle Löschen aus dem Kontextmenü.
  3. Bestätige mit Ja.

Diese Methode ist jedoch nicht so flexibel wie die VBA-Lösung, wenn Du mehrere Dateien verwalten möchtest.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du das VBA-Skript anpassen kannst:

  • Beispiel 1: Verschiebe mehrere Dateien:

    FileOp.pFrom = "C:\Windows\file1.txt" & vbNullChar & "C:\Windows\file2.txt" & vbNullChar

  • Beispiel 2: Verwende eine Variable für den Dateipfad:

    Dim filePath As String
filePath = "C:\Windows\file1.txt"
FileOp.pFrom = filePath & vbNullChar

Tipps für Profis

  • Verwende die FOF_NOCONFIRMATION-Flag: Wenn Du keine Bestätigungsdialoge möchtest, kannst Du das Flag in den fFlags ändern, z.B. FileOp.fFlags = &H4 für keine Bestätigung.
  • Testen auf einer Kopie: Bevor Du das Makro auf wichtige Dateien anwendest, teste es auf einer Kopie, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Frage: Kann ich das Makro für andere Dateien verwenden?
Antwort: Ja, passe einfach den Dateipfad in der FileOp.pFrom Zeile an.

2. Frage: Funktioniert das auch auf Mac?
Antwort: Diese Methode ist spezifisch für Windows. Auf einem Mac benötigst Du eine andere Methode, um Dateien zu löschen oder in den Papierkorb zu verschieben.

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