folgende Frage. in der fettgedruckten Zeile versuche ich in VBA einen SVerweis hinzubekommen, leider bekomme ich dabei die Fehlermeldung:
"Die VLlookup Eigenschaft des Worksheet
Function Objects kann nicht zugeordnet werden".
Weiß jemand was ich ändern muss?
Besten Dank im Voraus
Sub Dokumente()
Dim Unterordner, PfadZiel, PfadUrsprung, Oberordner, Dokumentennamekomplett, Name, Nummer As _
String
Dim y, n As Integer
Dim WsF As WorksheetFunction
Oberordner = ActiveWorkbook.Sheets("Eingabefenster").Range("B6").Value 'Ansprechen gewählten _
Laufwerks
name= ActiveWorkbook.Sheets("Eingabefenster").Range("B18").Value
Dokumentennamekomplett = ( ActiveWorkbook.Sheets("Eingabefenster").Range("B4").Value & " " & _
name) '
Nummer = (ActiveWorkbook.Sheets("Eingabefenster").Range("B4").Value)
'Hier die Schleife beginnen
n = ActiveWorkbook.Sheets("Eingabefenster").Cells(Rows.Count, 5).End(xlUp).Row
For y = 24 To n
'Hier noch den Namen einfügen und dann S-Verweis auf die jeweilige Folie.
With Application.WorksheetFunction
Unterordner = .VLookup(ActiveWorkbook.Sheets("Eingabefenster").Cells(y, 5).Value, _
ActiveWorkbook.Sheets("Dokumentenhierarchie").Range("A2:A100"), 2, True)
End With
PfadUrsprung = ActiveWorkbook.Sheets("Eingabefenster").Range("B7").Value & "\" & Nummer & " " & _
_
_
name & Nummer & " " & name
PfadZiel = Oberordner & Dokumentennamekomplett & "\" & Unterordner & "\" & Nummer & "_" & name & _
_
_
ActiveWorkbook.Sheets("Dokumentenhierarchie").Cells(5, 5).Value
If Dir$(PfadUrsprung, vbDirectory) = vbNullString Then
MsgBox ("Mindestens eines der Dokumente konnte nicht gefunden werden")
End
End If
FileCopy PfadUrsprung, PfadZiel
Next y
'Hier die Schleife beenden
MsgBox ("Die Begleidokumente wurden abgelegt")
End Sub