Dateien umbenennen
01.07.2019 12:53:53
Alina
leider kenne ich mich mit VBA eigentlich überhaupt nicht aus und das Internet konnte mir bis jetzt auch nicht helfen.
Ich versuche mich gerade an einem Makro, welches überprüft ob meine Dateien vollständig sind.
Mit dem Makro lässt sich ein beliebiger Ordner auswählen und wendet den Code dann nacheinander auf alle Dateien in diesem Ordner an.
Um zu schauen ob die Datei vollständig ist, wird überprüft ob in der Spalte C irgendwo das Wort "Quit" vorkommt. Ist das der Fall soll der alte Dateiname um "_Abbruch" ergänzt werden. Also aus VP_13 wird VP_13_Abbruch.
Theoretisch steht der Dateiname auch in der Zelle A5, also kann auch der Name aus der Zelle als Dateiname verwendet werden und um "Abbruch" ergänzt werden.
Ich komme jetzt aber leider nur so weit, dass ich den Ordner auswählen und überprüfen kann ob " _ Quit" enthalten ist. An dem Umbenennen scheitere ich.
Sub Vollstaendigkeitpruefen()
Dim xFd As FileDialog
Dim xSPath As String
Dim xxlsxFile As String
Dim xWsheet As String
'Ordner auswählen
Application.DisplayAlerts = False
Application.StatusBar = True
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) "\" Then xSPath = xSPath + "\"
xxlsxFile = Dir(xSPath & "*.xlsx")
Do While xxlsxFile ""
Application.StatusBar = "Converting: " & xxlsxFile
Workbooks.Open Filename:=xSPath & xxlsxFile
Dim Zeile As Long
maxZeile = Cells(Rows.Count, "A").End(xlUp).Row
For Zeile = 2 To maxZeile
If Cells(Zeile, 3).Value = "Quit" Then
HIER MÜSSTE DANN DIE DATEI UMBENANNT WERDEN
End If
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
xxlsxFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
Den Code habe ich mehr oder weniger aus dem Internet zusammen kopiert.
Über Hilfe würde ich mich freuen!
Liebe Grüße
Alina