AW: Nachtrag
30.09.2014 07:57:14
Fred94
Danke.
Haber gestern aber selber schon eine Lösung gefunden. Und zwar kopiert er die entsprechenden PDF-Dateien in einen extra Ordner, öffnet die dann aus dem extra Ordner und benennt die Dateien in dem Scaneingang um.
Alles auswählenSub Test()
Dim cDir As String, qPath As String, nPath As String
Dim myfso As Object
qPath = "W:\Scaneingang\"
nPath = "W:\Eigener Temp-Ordner\"
Set myfso = CreateObject("Scripting.FileSystemObject")
cDir = Dir(qPath & "*.pdf")
Do While cDir ""
myfso.copyfile qPath & cDir, nPath & cDir
ActiveWorkbook.FollowHyperlink nPath & cDir
UserForm1.Show
With ThisWorkbook.Worksheets("Tabelle1")
If .Range("A1").Value = "Ja" Then
Name qPath & cDir As qPath & .Range("A2").Value & ".pdf"
With ThisWorkbook.Worksheets("Übersicht").Range("A1").End(xlDown)
.Offset(1, 0).Value = ThisWorkbook.Worksheets("Tabelle1").Range("A2"). _
Value
.Offset(1, 1).Value = Date
End With
ElseIf .Range("A1").Value = "Abbrechen" Then
Exit Sub
ElseIf .Range("A1").Value = "Überspringen" Then
End If
End With
cDir = Dir
Loop
End Sub
Und hier der Code der Userbox.
Code: Alles auswählenPrivate Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "" Then
MsgBox "Bitte trag auch einen Namen in das entsprechende Feld."
ElseIf ThisWorkbook.Worksheets("Übersicht").Columns(1).Find(TextBox1.Value, LookAt:= _
xlWhole, LookIn:=xlValues) Is Nothing Then
With ThisWorkbook.Worksheets("Tabelle1")
.Range("A1").Value = "Ja"
.Range("A2").Value = UserForm1.TextBox1.Value
End With
Unload Me
Else
MsgBox "Eine Datei mit diesem Namen ist bereits vorhanden."
End If
End Sub
Private Sub CommandButton2_Click()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = "Abbrechen"
Unload Me
End Sub
Private Sub CommandButton3_Click()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = "Überspringen"
Unload Me
End Sub
Commandbutton 1 setzt das Umbenennen um, Commandbutton 2 bricht den ganzen Vorgang ab und Commandbutton 3 überspringt diese Datei. Naja ... Viel mehr schreiben sie den entsprechenden Vorgang in eine Zelle und der Hauptcode setzt den entsprechenden Vorgang dann um.
Außerdem listet er in einem Tabellenblatt alle umbenannten Dateien auf und überprüft, ob schon eine Datei mit diesem Namen existiert.
Vielen Dank!