Sub umbenennen()
Dim strDateiName As String
Dim strVerzeichnis As String
Dim strDateiNameNeu As String
Dim fso As Object, f1 As Object
Set fso = CreateObject("Scripting.FileSystemObject")
strVerzeichnis = "c:\tmp\test\"
strDateiName = Dir$(strVerzeichnis & "*Messdaten*.*")
Do While strDateiName <> ""
strDateiNameNeu = Replace(strDateiName, "Messdaten", "Test")
Set f1 = fso.GetFile(strVerzeichnis & strDateiName)
f1.Move (strVerzeichnis & strDateiNameNeu)
strDateiName = Dir$()
Loop
End Sub