Thema Datum  Von Nutzer Rating
Antwort
Rot Anpassung eines Befehls
31.07.2023 16:02:55 Sven
Solved
31.07.2023 23:42:26 Ben
*****
Solved
01.08.2023 10:54:27 Gast6577
Solved
01.08.2023 07:06:57 ralf_b
***
Solved
01.08.2023 10:59:59 Gast82407
Solved
01.08.2023 11:19:12 Gast94633
Solved
01.08.2023 16:02:13 Gast65259
****
Solved
02.08.2023 10:16:20 Sven
Solved
02.08.2023 12:56:57 Gast17607
*****
Solved
02.08.2023 13:29:18 Sven
Solved
02.08.2023 14:48:38 Gast17607
*****
Solved
02.08.2023 15:02:34 Sven
Solved
02.08.2023 15:39:47 Gast17607
*****
Solved
03.08.2023 14:07:14 Sven
Solved
03.08.2023 16:04:55 Gast17607
Solved
04.08.2023 17:11:31 Sven
Solved

Ansicht des Beitrags:
Von:
Sven
Datum:
31.07.2023 16:02:55
Views:
349
Rating: Antwort:
 Nein
Thema:
Anpassung eines Befehls

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 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Anpassung eines Befehls
31.07.2023 16:02:55 Sven
Solved
31.07.2023 23:42:26 Ben
*****
Solved
01.08.2023 10:54:27 Gast6577
Solved
01.08.2023 07:06:57 ralf_b
***
Solved
01.08.2023 10:59:59 Gast82407
Solved
01.08.2023 11:19:12 Gast94633
Solved
01.08.2023 16:02:13 Gast65259
****
Solved
02.08.2023 10:16:20 Sven
Solved
02.08.2023 12:56:57 Gast17607
*****
Solved
02.08.2023 13:29:18 Sven
Solved
02.08.2023 14:48:38 Gast17607
*****
Solved
02.08.2023 15:02:34 Sven
Solved
02.08.2023 15:39:47 Gast17607
*****
Solved
03.08.2023 14:07:14 Sven
Solved
03.08.2023 16:04:55 Gast17607
Solved
04.08.2023 17:11:31 Sven
Solved