für OBERSCHLUMPF Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Thomas
Ich habs nu endlich geschafft - hoff ich! ;-)
Hier:
https://www.herber.de/bbs/user/75445.xls
Ich habe aber die Änderungen aus deiner letzten Datei nicht mit übernommen, da.....
- Löschen aktiviert mehrere Zellen (ohne Formatänderung)
.....ich nicht verstanden habe (weiß nicht, was du meinst, und es passiert auch nix Neues in der Datei)
- Anzahl angezeigter und aktivierter Zeilen werden angezeigt
.....hier auch nix passiert. Es wird nur 0 angezeigt.
Es passiert aber nun:
aktivieren
Wenn du darauf klickst, werden alle angezeigten Dateien aktiviert, das heißt, der Haken in Spalte G wird automatisch gesetzt.
Und das gilt auch wirklich nur für angezeigte Dateien.
Ist ein Filter aktiv, z Bsp für MP3, dann werden bei Klick auf aktivieren nur die gezeigten MP3-Files "abgehakt".
Wenn du den Filter wieder entfernst, sind auch weiterhin NUR die MP3-Files "abgehakt".
Für das DEaktivieren hast du eigentlich einen weiteren "Button" mit dem Namen "Auswahl aufheben".
Du kannst diesen Button nun löschen, da der Button "aktivieren" nun wie ein Schalter funktioniert.
Steht aktivieren drauf, werden alle sichtbaren Dateien abgehakt, und aus "aktivieren" wird "deaktivieren".
Steht deaktivieren drauf, werden alle Haken wieder entfernt, und aus "deaktivieren" wird wieder "aktivieren".
Auswahl anzeigen
Auch aus diesem Button habe ich einen Schalter gemacht.
Klickst du drauf, werden nur die abgehakten Zeilen angezeigt und aus "Auswahl anzeigen" wird "alles anzeigen".
Klickst du auf "alles anzeigen", werden wieder alle Zeilen angezeigt, und aus "alles anzeigen" wird wieder "Auswahl anzeigen".
HDD aufräumen
Ich habe einen neuen Button mit dem gleichnamigen Namen eingefügt.
Ein Klick darauf öffnet ein Userform (UF).
Und in diesem UF werden aus allen in der Tabelle angezeigten Dateien nur die Dateien angezeigt, die - gefiltert durch gleichen Dateinamen + gleiche Dateigröße - mindestens zwei Mal vorhanden sind.
Erst mal ein paar Wörter zum Design des UFs.
In der Listbox werden nur die Dateinamen angezeigt.
Damit du aber auch weißt, in welchem Verzeichnis eine in der Listbox ausgewählte Datei gespeichert ist, wird der Speicherpfad inklusive Dateiname unterhalb der Listbox in einem Anzeigefeld (Label) angezeigt.
Werden in der Listbox mehr als 1 Datei ausgewählt, wird im Label nichts angezeigt, da man ja immer nur einen Eintrag sehen kann. Außerdem geht die Übersicth verloren, wenn am Anfang jeder Zeile ein und dasselbe Verzeichnis steht, welches sich immer erst zum Ende der Zeile ändert.
Ich hatte die Listbox zuerst so programmiert, dass auch der Speicherpfad zu sehen ist.
Da manche Dateien aber in dem z Bsp 15. Unterverzeichnis gespeichert sein kann, müsste die Listbox sehr sehr breit angezeigt werden, da ein horizontaler Scrollbalken für Listboxen nur sehr aufwendig zu programmieren ist.
Aus diesem Grund habe ich eben das Anzeigefeld gewählt, welches immer nur einen Eintrag anzeigen kann.
So, nun zu den Funktionen des Userforms.
Verzeichnis öffnen
Ein Klick auf diesen Button öffnet den Windows-Explorer in dem Verzeichnis, dessen Datei in der Listbox ausgewählt ist.
Dieser Button funktioniert nur bei der Auswahl von EINER Datei.
Stell dir vor, du hast 20 Dateien markiert.
Ein Klick - und es öffnen sich 20 Windows-Explorer....hehe
Datei verschieben
Wenn mindestens 1 Eintrag in der Listbox markiert ist, wirst du bei Klick auf diesen Button nach dem Zielverzeichnis gefragt - es öffnet sich wieder der Verzeichnisauswahldialog, der sich auch öffnet, wenn du in der Tabelle einen Ordner + Unterordner auslesen willst.
Hast du das Zielverzeichnis gewählt, wird die 1 zuvor ausgewählte Datei dahin verschoben.
Wenn in der Listbox mehr als 1 Datei markiert sind, werden diese alle nicht ins Zielverzeichnis verschoben :-)
Das geht nicht, weil im selben Verzeichnis ja jeweils nur ein gleichlautender Dateiname existieren kann - es gibt in einem Verzeichnis nie 2 oder mehr Dateien mit exakt dem gleichen Namen.
Wenn also mehrere Dateien markiert sind, die du verschieben willst, wirst du spätestens bi der 2. Datei mit dem gleichen Namen gefragt, ob die Datei gelöscht werden soll.
Wenn ja, wird sie gelöscht, und der nächste, markierte Eintrag in der Listbox wird abgearbeitet.
Wenn nein, wird die Datei im Ursprungsverzeichnis nicht gelöscht, und der nächste, markierte Eintrag in der Listbox wird abgearbeitet.
So bald alle Markierungen abgearbeitet sind, werden in der Listbox nur die Einträge gelöscht, wenn die Dateien entweder verschoben oder gelöscht wurden.
In der Titelzeile des UFs siehst du immer die Anzahl aller Einträge in der Listbox.
Datei löschen
Das ist schnell erklärt :-)
Markierte Dateien werden nach einmaliger Sicherheits-Abfrage gelöscht.
Auch hier werden nach dem Löschen der Dateien auch die entsprechenden Einträge in der Liste gelöscht.
So, wenn du mit "HDD aufräumen" fertig bist, kannst du das Userform wieder schließen.
Wenn du mindestens 1 Datei verschoben oder gelöscht hast, wird nach dem Schließen des UFs das Einlesen der Dateien, beginnend mit dem Startverzeichnis, welches du zuvor ausgewählt hattest, wiederholt, damit auch deine Exceltabelle wieder auf dem aktuellen Stand ist.
Je nachdem, wie wieviele Unterzeichnisse das Startverzeichnis hat und wie langsam der PC ist, kann das Einlesen der Dateien etwas länger dauern.
Anstelle des wiederholten Einlesens der Dateien hätte ich das Ganze auch so programmieren können, dass in dem Moment, in dem eine Datei gelöscht/verschoben wird, auch in der Exceltabelle die entsprechenden Zeilen angepasst werden. Aber da das sehr aufwändig gewesen wäre, habe ich mich für das wiederholte Einlesen der Dateien entschieden - dauert für dich vllt länger, is für mich aber einfacher ;-)
Im VBE siehst du noch ein weiteres UF mit dem Namen ufProgress.
Dabei handelt es sich um einen Fortschrittsbalken, den ich eigentlich noch einbauen wollte, damit der Anwender den Fortschritt sieht, wenn es mal länger dauert.
Da ich aber schnell merkte, dass ich dafür viel von dem Code "umbauen" müsste, hab ich dazu im Moment doch erst mal keine Lust :-)
Ich hab das UF deswegen nicht wieder gelöscht, weil ja vielleicht du Lust hast, es "zum Leben zu erwecken" :-)
Sooooooo, Thomas, nun will ich aber von dir ein bisschen mehr Text als nur DANKE lesen! :-)
Ciao
Thorsten

Hi Thorsten
Ich kann problemlos ausführlich antworten. Ich wollte bloss nicht dich in diesem Masse beschäftigen. Aber ich sehe schon: Du bist ein Freak und Könner und "Futter" macht dir einfach Spass ;-))
Bisher
Zu dem, was bei meiner Änderung nicht passiert ist:
Löschen aktiviert mehrere Zellen:
Ich habe den Code wieder reingesetzt, damit beim Löschbefehl doch mehr Zellen farblich markiert werden. Die Nicht-Formatänderung bezog sich auf Spalte B, wo der Button mit deiner durchgehenden Zeilenfärbung verändert, aber beim Abbruch nicht wieder in den Ursprungzustand versetzt wurde. Ich habe die farbliche Markierung deshalb wie folgt aufgeteilt.

Sub sbDelFile(ByVal datei As String, ByVal zeile As Integer)
Range("A" & zeile).Interior.ColorIndex = 45
Range("C" & zeile & ":F" & zeile).Interior.ColorIndex = 45
End Sub

Aktivierte Zeilen werden angezeigt
Du hast dies mit der "Auswahl anzeigen" gemacht. Mein Makro hat sich damit erübrigt.
Generell
Gut ist, dass bereits gelöschte Dateien nach dem "Ordner wählen" nun nicht mehr angezeigt werden.
Ich habe einige Buttons ein bisschen klarer bezeichnet.
In deinen Buttons hast du die Beschriftung im Code gemacht. Wo finde ich heraus, wie die Textbox (Nummer) heisst? Nur des Spasses wegen würde ich dies bei meinen auch gerne so machen.
Nach Aufräumarbeiten, die auch ausserhalb des Tools stattfinden, wäre ein Button "aktualisieren" spitze. Das heisst, dass dieser Button denselben Pfad (die anfängliche Ordnerwahl) noch einmal nimmt. Vermutlich analog deiner Beschreibung nach dem Schliessen des ufHDD.
Unterschied
Was ist der Unterschied zwischen deinem und meinem "Alles zeigen"?
Doppelte (HDD aufräumen)
Das ist eigentlich eine sehr coole Idee! Ist das die Funktion "Doppelte anzeigen"?
Wenn ich ein bestehendes File (z.B. *doc) in einigen Sätzen ändere und es im nächsten Subordner abspeichere, erkennt dieser Code den Unterschied nicht, weil im Explorer Datum, Grösse und Name gleich sind und er wahrscheinlich die Zeit der Änderung nicht erfasst.
Für mich ist es aber ein bisschen unübersichtlich und unsicher. Daher würde ich eher mit den Ordnerlinks (Spalte F), bzw. dem offenen Explorer arbeiten, weil ich dort die Ordner weniger "umständlich" suchen muss.
Dazu kommt, dass ich bei einer grossen Aufräumaktion die zu bearbeitenden Ordner auf das Desktop kopiere, dort ordne, die Originale dann lösche und die Geordneten dorthin verschiebe. Das war bisher der schnellste und vorallem sicherste Weg.
Die Funktion "verschieben" würde ich so eher nicht benutzen. Hingegen ist der Button "Verzeichnis öffnen" praktisch.
Wenn ich aufräume, habe ich auch nicht nur doppelte Dateien, sondern auch solche, die woanders hingehören.
So gesehen ist eine Aktivierung des ufProgress nicht mehr notwendig.
ANGEZEIGTE aktivieren (aktivieren)
- Dass dies nur für die angezeigten Daten gilt, finde ich super gelöst!
- Das Entfernen der doppelten Fuktionen (Auswahl aufheben und Angezeigte deaktivieren) werde ich versuchen. Allerdings würde ich den Toggle löschen und zwei einzelne Buttons erstellen, weil je nach Anzeigestatus des Toggle dieser 2mal geklickt werden muss.
ALLE AKTIVEN löschen (löschen)
Ich filtere mit *doc und aktiviere eine Datei. Dann filtere ich mit *pdf und aktiviere eine zweite. Dann wähle ich wieder *doc und sehe alle *doc-Dateien mit einer aktiven. Wenn ich dann wähle "ALLE AKTIVEN löschen", löscht es auch das ausgeblendete *doc.
Das macht nichts, man muss nur vorsichtig sein. Deshalb habe ich es umbenannt.
So, Thorsten, nun sage ich nicht mehr danke (dafür aber merci...!) und füge den aktuellen Stand des Files hier noch bei.
https://www.herber.de/bbs/user/75461.xls
Gruss
Thomas

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

für OBERSCHLUMPF Thorsten

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread