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

Ansicht des Beitrags:
Von:
Gast88615
Datum:
22.06.2022 16:34:55
Views:
71
Rating: Antwort:
  Ja
Thema:
Maßen Rename

Hallo,

ich versuche viele Dateien mit VBA umzubennen, ich habe nun ein Modul geschrieben, welches "X" mit "Y" im Namen tauschen kann. 

Nur leider geht das bis jetzt nur mit einer Variable. Ich würde gerne beliebig viele Variabeln umbennen können also z.B. "x" zu "y" , "c" zu "v" ...
 

Hier einmal das funktionierende Modul:

Sub Ordner_Auslesen()

Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File

Pfad = Tabelle1.Range("B1").Value

If fso.FolderExists(Pfad) Then

    Set Ordner = fso.GetFolder(Pfad).Files
    
    For Each Datei In Ordner
        
        If InStr(Datei.Name, Tabelle1.Range("A3").Value) <> 0 Then
        
            Datei.Name = Replace(Datei.Name, Tabelle1.Range("A3").Value, Tabelle1.Range("B3").Value)
        
        End If   
        
    Next Datei
    
Else
    
        MsgBox "Dieser Ordner existiert nicht"
        
End If

 

Und hier wie ich es versucht habe um es zu verdeutlichen:


Sub Ordner_Auslesen()

Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File

Pfad = Tabelle1.Range("B1").Value

If fso.FolderExists(Pfad) Then

    Set Ordner = fso.GetFolder(Pfad).Files
    
    For Each Datei In Ordner
    
        'Debug.Print Datei.Name
        
        If InStr(Datei.Name, Tabelle1.Range("A3:A4").Value) <> 0 Then
        
            Datei.Name = Replace(Datei.Name, Tabelle1.Range("A3:A4").Value, Tabelle1.Range("B3:B4").Value)
        
        End If
        
        
    Next Datei
    


Else
    
        MsgBox "Dieser Ordner existiert nicht"
        
End If

 


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