Thema Datum  Von Nutzer Rating
Antwort
22.06.2022 16:34:55 Gast88615
NotSolved
Blau Maßen Rename
23.06.2022 06:47:33 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
23.06.2022 06:47:33
Views:
1196
Rating: Antwort:
  Ja
Thema:
Maßen Rename
1
Das geht mit eine schleife über die Tauschwerteliste. Damit wird dann jedes Tauschwertepaar in das Replace gepackt fertig.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim suchwert As Range
 
For Each Datei In Ordner
      
        'Debug.Print Datei.Name
   
  For Each suchwert In Tabelle1.Range("A3:A4")
          
        If InStr(Datei.Name, suchwert) > 0 Then
            Datei.Name = Replace(Datei.Name, suchwert.Value, suchwert.Offset(0, 1).Value)
        End If
   
  Next suchwert
          
Next Datei

 


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
22.06.2022 16:34:55 Gast88615
NotSolved
Blau Maßen Rename
23.06.2022 06:47:33 ralf_b
NotSolved