Hallo,
Also ich geb mein bestes alles aufzuschreiben was das Makro leisten soll:
-In einer Tabelle sollen die Spalten Name, Kurzbezeichnung und Bezeichnung ausgewählt werden.
-Man wählt einen Ordner aus, in dem Bilder hinterlegt sind.
-Anhand der Spalten sollen die Bilder dann als Hyperlink und als Kommentar in der Tabelle hinterlegt werden.
-Dazu zerlegt und führt das Makro die Zeichen aus den Spalten zusammen, die Dateinamen der Bilder werden ebenfalls zerlegt, die sonderzeichen werden aus den Spalten und auch des Dateinamens entfernt
-Im anschluss wird das wirwar aus Zeichen miteinander abgeglichen.
-Wen Dateiname und Spalteninhalt übereinstimmt, wird ein Kommentar angelegt
-Das Bild wird als Hintergrund vom Kommentar platziert (größe angepasst etc.)
-Ein Hyperlink wird auf die Bezeichnung gelegt welcher zu dem Bild führt.
Ziel soll es sein das nicht nur die Bilder aus einem Ordner überprüft werden, sondern auch die im gewählten Ordner die Unterordner ebenfalls durchsucht werden. Bsp: C:PP/Standort/Abteilung/Bereich/Bilder/2023/5. Mai/Gebäude/Raum(/evtl. noch ein Ordner) enthällt bilder. Im Ordner Gebäude sind noch weitere Ordner (Flur, Nassbereich, Werkstatt, Garage usw.). Anstatt alle Unterordner aus dem Ordner Gebäude einzeln auszuwählen, wäre es einfacher den Ordner 5. Mai zu wählen und das Makro durchsucht den Rest.
Das der Kommentar falsch ist sehe ich für mich jetzt nicht als Problem an, kann man aber natürlich ändern. Der Code soll die thumpbs.dp nicht mit dem Spalteninhalt abgleichen... weil es kamm bei jedem Ordner der Hinweis Thumbs.dp konnte nicht angehangen werden.
Um das zu umgehen, hab ich den Code rausgesucht. Wen es verbesserungen gibt um den Code noch effektiver zu gestalten, bin ich ganz Ohr. Nur bitte ich zu bedenken das ich nicht so die Erfahrung mit VBA habe wie es vielleicht den anschein macht.
Gruß
|