Office: Unterordner auslesen und an bestehende Tabelle anhängen

Hallo zusammen,

ich bin mit VBA Programmierung noch am Anfang und habe von meinem Vorgänger ein Makro ohne Kommentare geerbt, welches schon Grundsätzlich für meine Zwecke funktioniert, jetzt würde ich es gerne nur für meine Zwecke angepasst haben. Ich habe leider nur noch nicht die Erfahrung was ich wie ändern muss.

Wir haben in einem Serverordner ein Verzeichnis, in dem SAP für jeden neu zu bearbeitenden Vorgang einen Unterordner mit den erforderlichen Dokumenten erstellt. Jetzt möchte ich diese Liste mittels Makro auslesen und die Ordner namen in Spalte A meiner Tabelle unten anhängen, dem Status Offen in Spalte C und dem Eingangsdatum in Spalte E. Gleichzeitig soll aber auch verhindert werden, das die Vorgangsnummer angefügt wird, wenn sie schon in der Liste existiert.

Das bestehende Makro überschreibt die Spalte allerdings immer komplett.

Vielen Dank im voraus für die Hilfe

marx99

:)

 

Hallo marx99,

ich verstehe Dein Problem irgendwie nicht so richtig... oder die Angehängte Datei ist falsch!?!

Das Makro in der Datei liest aus einem Verzeichnis alle Verzeichnisnamen und trägt diese in die Spalte A ein. Spalte C und E werden dabei nicht beachtet!
Dabei "sortiert" dieses Makro die Daten noch. Jedoch nur die Spalte A. Wenn du was in den anderen Spalte hast, dann wird das nicht mit berücksichtigt und ergibt Datenmüll! Die "Sortierung" ist leider unglücklich, weil er dann tatsächlich auch alte Daten löscht und später wieder einfügt. Sinnvoller wäre es, erst einmal alle Daten zu sammlen und dann auf einen Schlag zu sortieren. Dann würden auch die anderen Spalten mit sortiert.

Soll in Spalte C und E automatisch etwas eingefügt werden, oder später per Hand?
Und welches ist dein Eingangsdatum? Wenn das Makro läuft, oder wann die Unterverzeichnis erstellt wurde?

Gruß
rastrans

 

Hallo,

war vielleicht unglücklich formuliert.
Wie oben schon erwähnt habe ich das Makro von meinem Vorgänger "geerbt".
Ich möchte erreichen, das das Makro das Verzeichnis ausliest und dann folgendes macht:
1. alle Unterordner an die bestehende Tabelle in Spalte A eintragen
2. zu jedem dieser Unterordner in Spalte C den Status "Offen" eintragen
3. zu jedem dieser Unterordner in Spalte E das Eingangsdatum (wann der unterordner erstellt wurde) eintragen.
4. sortieren
5. verhindern das schon in der Tabelle bestehende einträge erneut angelegt werden
6. Darf die Formatierung der Tabelle nicht verändern

Ich hoffe jetzt wird es verständlicher was ich bezwecke.

Grüße
marx

 

Japp, jetzt war gut! Jetzt habe auch ich es verstanden! *biggrin.gif*

Code:

Was ist eigentlich, wenn es da ein Eintrag gibt, aber das Verzeichnis nicht mehr existiert?

Gruß
rastrans

 

Dieser Fall sollte laut unserem Admin nicht eintreten, da man zum löschen dieses Ordners Admin Rechte braucht.
Wäre aber denke ich nicht verkehrt wenn es dafür auch eine Sicherung gäbe.

Gruß
marx

Update:
Ist es auch möglich nur die neu angefügten Einträge zu sortieren? Die Hauptsortierung soll weiterhin fortlaufend nach dem Eingangsdatum sein.

 

Hallo marx,

das Makro sucht ja nur nach vorhandenen Verzeichnisnamen. Wenn es nicht vorhanden ist, dann wird es angelegt. Wenn es bereits vorhanden ist, dann passiert nichts. Wenn ein Verzeichnis gelöscht wurde, dann wird auch nicht nach gesucht, also passiert auch nichts! Somit läuft das Makro so wie gewünscht.

Gruß
rastrans

 

super, ich danke dir.

 

Hallo rastrans,

habe das Makro jetzt umgeschrieben.
Nur das mit der Sortierung funktioniert nicht.
Er fügt die neuen Unterverzeichnisse zwar ein, aber er Sortiert die komplette Tabelle nach Spalte A inklusive der Überschriften.

Gruß
marx

 

Dann musst du dem Sortieren sagen, das die Spalten Überschriften haben!

Im Code oben steht beim Sortieren Code:

ersetze diese Zeile durch Code:

 

Ok, Danke