|
Guten Tag,
ich habe ein Befehl den ich gerne Anpassen würde, aber leider hab ich so gar keine Erfahrung mit VBA. Vielleicht hat jemand Zeit und Interesse mir dabei zu helfen am Ende mein selbst zusammengerotztes Makro zu überarbeiten. Aber zurück zur Anfrage.
Ich habe in meinem Makro folgende passage:
If UBound(Split(file.Name, "_")) = 4 Then
split_filename = Split(file.Name, "_")(2) & ", " & Split(file.Name, "_")(4) & ", " & Split(file.Name, "_")(3)
For Each T In Array(" ", ",", "-", "%", "&", "/", "(", ")", "\", """", ":", ";", "+", ".png")
split_filename = Replace(split_filename, T, "")
Next
Diese würde ich gern Modifizieren unzwar sollen die Nullen entfernt werden, wen diese ausschließlich an erster Postion sind. Um es eventuell verständlicher zu machen: Unsere Dateinamen sind wie folgt aufgebaut XX_Bereich_ORT_Bezeichnung_Raum.png ( Bsp: AV_Hauptstadt_0034056_Vor Berliner Tor ist es schön_0.35.png). Das von mir verwendete Makro die Bilder zu den jeweiligen Bezeichnungen hinzu (grob gesagt) und dabei erfolgt eine abfrage zwischen einer vom Hausinterner system abfrage (diese werden als Excel-Tabelle.csv ausgegeben) und den Dateinamen. Die Tabellen sind dann ungefähr so aufgebaut:
| Datum |
Bereich |
Rezept |
Raum |
Bezeichung |
Uhrzeit |
Ort |
usw. |
| 31.07.2023 |
Hauptsadt |
unwichtig |
.35 |
Vor Berliner Tor ist es schön |
16:35 |
34056 |
da gibt es noch mehr |
Da Excel Automatisch die Nullen vor den Zahlen entfernt, fehlen diese im Abgleich und die Bilder können nicht zugeordnet werden. Leider sind die Ort, Bezeichnungen und Raum mit den Nullen so in unserem Informationssystem hinterlegt und müssen im Bildnamen enthalten sein.
Hoffe konnte es nachvollziehbar erklären und jemand kann mir dabei behilflich sein.
LG
|