Hallo zusammen,
Hallo xlKing,
vielleicht kannst du oder auch jemand anders mir nochmal weiterhelfen :)
Ich würde gerne statt der pdf Datei einen Ordner mit dem selben Namen, samt dem Inhalt bei Ausscheiden verschieben lassen.
Ich habe mir schon einige Beiträge dazu durchgelesen und es reicht nicht "file" in "folder" zu ändern, um den Ordner mit diesem Code zu verschieben oder?
Sub Verschieben()
ordner = "E:\Norbert2\Daten\Tests\Mitarbeiterliste"
zielordner = "E:\Norbert2\Daten\Tests\Mitarbeiterliste\ausgeschiedene Mitarbeiter"
zielblatt = "ausgeschiedene Mitarbeiter"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ordner)
If Right(zielordner, 1) <> "\" Then zielordner = zielordner + "\"
If ActiveSheet.Name = zielblatt Then Exit Sub
For z = 2 To Cells(Rows.Count, 10).End(xlUp).Row
If Cells(z, 7) <> "" And Cells(z, 7) <= Date Then
For Each sf In f.SubFolders
o = sf & "\" & Cells(z, 10)
If fs.fileexists(o) Then
fs.movefile o, zielordner
End If
Next
Rows(z).Cut
Sheets(zielblatt).Cells(Rows.Count, 10).End(xlUp) _
.Offset(1, 0).EntireRow.Insert Shift:=xlDown
If Cells(z, 10) = "" Then Rows(z).Delete Shift:=xlUp
z = z - 1
End If
Next z
End Sub
Zudem würde ich gerne noch über einen weiteren Button, neue Ordner für neue Mitarbeiter erstellen lassen. Also, wenn ein Mitarbeiter im Tabellenblatt "aktuelle Mitarbeiter" steht, der Ordner aber noch nicht im Ordner "Mitarbeiterliste" existiert und auch kein Ordner mit diesem Namen im Ordner "ausgeschiedene Mitarbeiter" liegt , soll Excel einen neuen Ordner im Ordner "Mitarbeiterliste" für den Mitarbeiter erstellen + in diesem erstellten Ordner noch weitere Ordner (Januar bis Dezember) erstellen lassen.
Den Namen des jeweiligen Ordners/Mitarbeiters könnte Excel sich ja wieder aus Spalte "J" ziehen?
Ist das so machbar und wenn ja wie genau?
Vielen Dank! :)
Beste Grüße
Chris
|