erst einmal Danke an Uwe für den Code zum Datenpaket erstellen.
Sub Dateien_kopieren()
On Error GoTo Fehler
Dim TB, L1 As Integer, LR As Double, Z
Dim PfadOld As String, Datei As String
Dim PfadNew As String, Spalte As String, SP As Integer
Set TB = ActiveWorkbook.Sheets("Tabelle1")
L1 = 1 'Start ab Zeile1
PfadOld = "X:\Temp\" ' inkl. \ am Ende
PfadNew = "X:\Temp\ABC\" ' inkl. \ am Ende
If Dir(PfadNew, vbDirectory) = "" Then MkDir PfadNew ' Wenn Verzeichnis fehlt, erstellen
Spalte = InputBox("Welche Spalte soll abgearbeitet werden?", "Dateien separieren", "C")
SP = TB.Columns(Spalte).Column 'Zahl der Spalte
LR = TB.Cells(TB.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For Each Z In TB.Range(TB.Cells(L1, SP), TB.Cells(LR, SP)) 'Jeder Eintag wird abgearbeitet
If Z "" Then
Datei = Dir(PfadOld & Z & "*.*")
Do While Len(Datei) > 0
Select Case Right(Datei, 4)
Case ".pdf", ".dxf", ".dwg"
FileCopy PfadOld & Datei, PfadNew & Datei
Case Else
'nichts
End Select
Datei = Dir() ' nächste Datei
Loop
End If
Next
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Jetzt habe ich in meiner UserForm einen Button erzeugt, der einen bestimmten Pfad sucht und auch anzeigt.(Modul)
Ich bekomme jetzt leider nicht die Verknüpfung zu dem Code der mir die Daten kopiert.
Meine Vorstellung war es den Ausdruck: "PfadNew" mit meinem Modul zu ersetzen.
Sub Zielpfad()
Dim Ordnerpfad
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
With dat
.Title = "Zielpfad auswählen....."
.InitialFileName = "C:\Users\rene\Desktop\VBA_TEST_PROJEKT\" 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedItems
MsgBox Ordnerpfad 'Zur weiteren verwendung
Next Ordnerpfad
End If
End With
End Sub
Kann mir jemand nen Tip geben wie ich aus PfadNew = Zielpfad mache.
Vielen Dank schon mal für eure Hilfe.
Gruß
René