Dokumente automatisch verschieben?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Pfad As String, Von As String, Nach As String Dim V1 As String, V2 As String, V3 As String, V4 As String Dim Z1 As Integer, RNG As Range, Aktion As String, Wb As Workbook Set Wb = ThisWorkbook Set RNG = Range("C:F") Z1 = 6 Aktion = "Erledigt" Pfad = "E:\excel\Temp\" 'inkl. \ am Ende V1 = "Auftragserfassung" V2 = "Versandbereit" V3 = "Versendet" V4 = "Erledigt" If Target.Row = Z1 Then If Not Intersect(RNG, Target) Is Nothing Then If Trim(Target) = Aktion Then Select Case Trim(Target.Offset(-1, 0)) Case V1 Nach = V1 Case V2 Von = V1 Nach = V2 Case V3 Von = V2 Nach = V3 Case V4 Von = V3 Nach = V4 End Select Wb.SaveAs Pfad & Nach & "\" & Wb.Name If Dir(Pfad & Von & "\" & Wb.Name) "" Then Kill Pfad & Von & "\" & Wb.Name End If End If End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Pfad As String, Von As String, Nach As String Dim V1 As String, V2 As String, V3 As String, V4 As String Dim Z1 As Integer, RNG As Range, Aktion As String, Wb As Workbook Set Wb = ThisWorkbook Set RNG = Range("C:F") Z1 = 6 Aktion = "Erledigt" Pfad = "C:\Users\andreas\Desktop\Verschieben Test" 'Habe meinen Pfad angepasst V1 = "Auftragserfassung" V2 = "Versandbereit" V3 = "Versendet" V4 = "Erledigt" If Target.Row = Z1 Then If Not Intersect(RNG, Target) Is Nothing Then If Trim(Target) = Aktion Then Select Case Trim(Target.Offset(-1, 0)) Case V1 Nach = V1 Case V2 Von = V1 Nach = V2 Case V3 Von = V2 Nach = V3 Case V4 Von = V3 Nach = V4 End Select Wb.SaveAs Pfad & Nach & "\" & Wb.Name 'das wird markiert, dass es einen Fehler beinhaltet If Dir(Pfad & Von & "\" & Wb.Name) "" Then Kill Pfad & Von & "\" & Wb.Name End If End If End If End If End Sub

Hi Uwe,
das hab ich wohl übersehen, Danke für den Hinweis jetzt funktioniert es fast.
Von dem Ordner Versendet in Erledigt, will er das Dokument nicht schieben.
Dachte vielleicht es liegt daran das die Abfrage "Erledigt" heißt und der Ordner ja auch.
Habe also den Ordner in Abgeschlossen umbenannt und auch in der VBA angepasst. Aber irgendwas mach ich falsch....
Es kommt dann ein Laufzeitfehler 1004


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pfad As String, Von As String, Nach As String
Dim V1 As String, V2 As String, V3 As String, V4 As String
Dim Z1 As Integer, RNG As Range, Aktion As String, Wb As Workbook
Set Wb = ThisWorkbook
Set RNG = Range("C:F")
Z1 = 6
Aktion = "Erledigt"
Pfad = "C:\Users\andreas\Desktop\Verschieben Test\" 'inkl. \ am Ende
V1 = "Auftragserfassung"
V2 = "Versandbereit"
V3 = "Versendet"
V4 = "Abgeschlossen"
If Target.Row = Z1 Then
If Not Intersect(RNG, Target) Is Nothing Then
If Trim(Target) = Aktion Then
Select Case Trim(Target.Offset(-1, 0))
Case V1
Nach = V1
Case V2
Von = V1
Nach = V2
Case V3
Von = V2
Nach = V3
Case V4
Von = V3
Nach = V4
End Select
Wb.SaveAs Pfad & Nach & "\" & Wb.Name     Er sagt hier liegt der Fehler
If Dir(Pfad & Von & "\" & Wb.Name)  "" Then
Kill Pfad & Von & "\" & Wb.Name
End If
End If
End If
End If
End Sub

Zu meiner anderen Frage, wollte nur wissen, ob dass was wir hier machen (und schon fast funktioniert) auch mit ganzen Ordnern möglich ist,
oder nur mit Exceldateien.
Gruß Andreas

Beliebteste Forumthreads (12 Monate)

Dokumente automatisch verschieben?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread