Hallo nighty
Funktioniert leider nicht
Vielleicht drücke ich mich ja ein wenig umständlich aus, Verzeihung für einen Exel"benutzer" mit wenig Ahnung
Um es ein bischen verständlich zu machen benutze ich jetzt folgende Ordner, die meine Dateien aufnehmen: Quelle (C:\Temp) --> Ziel (D:\Temp). Die im Ordner Quelle befindlichen Dateien haben folgende Namensgebung erhalten:
Beispiel: 16.09.2013 Meier.pdf (also Datum aus Spalte 1) Name aus Spalte 2 und der Bezeichnung .pdf. Zwischen Datum und Name ist ein Leerzeichen vorhanden.
Es muß also geprüft werden, ob im ersten Teil der Datei das Datum stimmt so wie im zweiten Teil der Datei der Name. Beide sind also Suchkriterien. Sie werden beide benötigt, weil es von einem Namen mehrere Rechnungsbelege geben kann. Im nachfolgenden Code funktioniert alles, solange es nur EINE Rechnung gibt (dann allerdings OHNE Datum vorweg).
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("M8:M1000")) Is Nothing Then
If IsDate(Target) = True Then
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Temp\" & Cells(Target.Row, 2) & ".pdf") = True Then
objFSO.MoveFile "C:\Temp\" & Cells(Target.Row, 2) & ".pdf", "D:\Temp\"
MsgBox ("Datei " & Cells(Target.Row, 2) & ".pdf" & " wurde verschoben")
Else
MsgBox ("Datei ist nicht vorhanden")
End If
End If
End If
Application.EnableEvents = True
End Sub
Vielleicht gelingt es ja, den vorhandenen Code umzuschreiben.....
Die letzte Download_URL gilt noch...
Gruß
Horst
PS Vielleicht hat ja noch ein anderer eine Lösung für mich???