title image


Smiley Kleines Makro
Hi,



ist mit Excel auch keine Problem. Für das nächste Mal etwas Code. :o)









Sub Dateien_Umbenennen()

Dim a As Variant

Dim Zelle As Object

For Each Zelle In[A1:A500]

  a = Shell("cmd /c ren C:\Temp\" & Cells(Zelle.Row, 1) & " " & Cells(Zelle.Row, 2), 0) '<-- Pfad bitte anpassen!

Next

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: