Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen in Dateinamen ersetzen

Zeichen in Dateinamen ersetzen
10.04.2018 11:25:20
Sergej
Hallo Leute,
ich habe in einem Verzeichnis D:\Daten\ viele Dateien liegen. Folgendes möchte ich per VBA erreichen:
Es sollen nur bei PDF-Dateien, die exakt 22 Zeichen in der Dateiname (ohne Dateiendung gerechnet) haben, die Stellen 1, 20, 21 und 22 durch ein Raute-Zeichen ersetzt werden.
Beispiel vorher: 2_KUN_080_00_40258_--0.pdf
Beispiel nachher: #_KUN_080_00_40258_###.pdf
Wie mache ich das bitte?
Besten Dank vorab..
Gruß Sergej

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen in Dateinamen ersetzen
10.04.2018 11:52:24
Daniel
HI
probier mal, es sollte halt sicher sein, dass die neu entstandenen Dateinamen ebenfalls eindeutig sind: 

Sub test()
Dim Datei As String
Dim Pfad As String
Dim NameNeu As String
Dim NameAlt As String
Pfad = "D:\Daten\"
Datei = Dir(Pfad & String(22, "?") & ".pdf")
Do While Datei  ""
If Right(Datei, 7)  "###.pdf" Then
NameAlt = Pfad & Datei
NameNeu = Pfad & "#" & Mid(Datei, 2, 18) & "###.pdf"
Name NameAlt As NameNeu
End If
Datei = Dir
Loop
End Sub
gruß Daniel
AW: Zeichen in Dateinamen ersetzen
10.04.2018 19:35:02
Sergej
Hallo Daniel,
es funktioniert sehr gut.
Danke!
Gruß,
Sergej
Anzeige

302 Forumthreads zu ähnlichen Themen

Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 Beiträge
Anzeige
Zeichenfolge im Dateinamen ersetzen
Dirk

Hallo Forumsmitglieder,
ich hoffe jemand hat (mal wieder) Lust mir zu helfen!!!!
Der unten teilweise aufgeführte Code benennt Bilddateien.
Der Code funzt soweit auch super. Leider gibt es Dateien, die haben im Namen Text, der noch mit "" ersetzt werden müsste.
Als Beispiel:
...
11.05.2009 15:54:39
Thread-ID: 1074392
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Anzeige
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
alle Sonderzeichen in String ignorieren
Frank

Guten Abend liebes Forum,
ich erstelle mir derzeit aus einer csv Datei, die ich in Excel importiert habe neue Verzeichnisse. Das heißt ich möchte mein Musikarchiv sortiren auf Grundlage der ID3 Tag Infos. Nur leider ist nicht immer der ID3 Tag sinnvoll und/oder beim Import 4 " - Zeichen vor...
23.09.2009 23:31:36
Thread-ID: 1105092
8 Beiträge
Text ab erster Zahl darstellen
albin

Hallo!
Ich hab eine Liste mit Artikelbezeichnungen. Diese setzen sich aus einer Beschreibung und Dimensionen zusammen.
Ich möchte gerne nur die Beschreibung (die aber immer unterschiedlich lang ist) in einem neuen Feld haben.
Ergebnis soll der Text vor der ersten Zahl sein:
http...
23.10.2009 14:47:20
Thread-ID: 1111677
4 Beiträge
Zeichen in Dateinamen ersetzen
Klaus

Guten Morgen zusammen
Worti hatte mir gestern ein Makro geschrieben, um alle Dateien in einem Verzeichnis zu _ bearbeiten: Sub Alledateien_Bearbeiten() Dim strDatei As String Dim wb As Workbook 'Laufwerk und Pfad anpassen ChDrive "D" ChDir "D:\data\" strDatei = Dir("D:\data\*.xls") Do Whi...
30.10.2009 11:42:24
Thread-ID: 1113292
10 Beiträge
Text ab einer bestimmten Stelle löschen +Hyperlink
Werner

Hallo,
ich habe in Excel in einer Spalte (Spalte D) unter einander sehr viele Zeilen nach folgenden Schema
(Hinweis: Ich habe das h am Anfang hier weggelassen, weil der Beitrag sonst immer als Hyperlink dargestellt wird, in meiner Tabelle ist es vorhanden):
ttp://www.ihrname.de*dfg...
05.12.2009 23:35:56
Thread-ID: 1122006
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
3
5
14
12
2
7
3
9
2
3
3
6
11
3
2
11
9
1
2
2
10
2
3
1