ich versuche aus einem Verzeichnis von einem Sharepoint den Namen der Worddokumente, die dort hinterlegt sind, mit einer Excel Tabelle abzugleichen.Dabei sollen allerdings nur die ersten Zahlen genommen werden der jeweiligen Dokumente bis zum Unterstrich(dieser Teil sollte so passen hab ich in einem vorherigen Beitrag erfragt). Daraufhin soll falls es zu einer Übereinstimmung kommt eine Hilfsspalte erzeugt werden und zusätzlich soll in einer weiteren Spalte das letzte Bearbeitungsdatum erfasst werden.
Sub Filter()
Dim Dateiname As Variant
Dim ID As Variant
Dim bis As Integer
Dim Verzeichnis As Object
Dim Datei As Object
Dim Dateien As Object
For Each Datei In Dateien
Set Verzeichnis = OpenFolder("http//:...")
'soll von einem Sharepoint geladen werden
Set Dateien = Verzeichnis.Files
bis = InStr("Dateiname.doc", "_") - 1
If bis > 0 Then
ID = Left("Dateiname.doc", bis)
MsgBox ("ID lautet: " & ID)
Else
MsgBox ("nix gematcht")
End If
While Cells(Zeile, 1) ""
If Cells(Zeile, 1) = ID Then
Cells(Zeile, 15) = "+1" And Cells(Zeile, 16) = FileDateTime("Dateiname.doc")
Zeile = Zeile + 1
Wend
Next Datei
End Sub
Bisher ist das mein Ansatz.Vielleicht habt ihr Vorschläge wie es einwandfrei funktionieren könnte.