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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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