ich stehe vor folgender Aufgabe:
Ein Sharepoint-Inhalt wird in Excel mittels einer Liste (Listenverknüpfung) "importiert"
Dabei wird in Spalte 1 die ID eingetragen,
in Spalte 2 der Dateiname (als Hyperlink) eingefügt,
in Spalte 3 das Änderungsdatum
in Spalte 4 der letzte Bearbeiter
Jetzt möchte in diesen Hyperlink "auslesen"
Hierzu habe ich ein Makro
Option Explicit
Function HyperlinkAdresse(Zelle As Range)
Dim Link As String
Application.Volatile
If Zelle.Hyperlinks.Count Then
Link = Zelle.Hyperlinks(1).Address
End If
HyperlinkAdresse = Link
End Function
das mir den kompletten Hyperlink ausliest.Beispiel:
https://collaboration.intranet.Firma.com/Team%2FTOOL%2Fteam_1%2FFortschritt%2F1000%2FBereich%2FAbteilung Name %28W1%29%2FDokumentation_v01.ppt
Da die Sonderzeichen beim lesen usw störend sind, müsste jetzt folgendes
(per Formel oder wie auch immer) passieren
Ersetzen von
%2F = /
%20 = Leerzeichen
%28 = (
%29 = )
Das habe ich bisland per "Suchen Ersetzen" gemacht
Dann sieht das Ergebnis so aus
https://collaboration.intranet.Firma.com/Team/TOOL/team_1/Fortschritt/1000/Bereich/Abteilung Name (W1)/Dokumentation_v01.ppt
Anschliessend möchte ich diese Adresse aufteilen - folgendes jeweils in eine Spalte daneben
Ergebnisse in mehreren Spalten
(ist immer gleich:
https://collaboration.intranet.Firma.com/Team/TOOL
(ist immer unterschiedlich:
Team_1
Fortschritt
1000
Bereich
Abteilung Name (W1)
Dokumentation_v01.ppt
Die Krux: manchmal kann es sein, dassnach dem /Abteilung Name (W1)
noch weitere unterordner kommen
Wenn es zu kompliziert ist, können auch sämtliche Informationen
nach "Abteilung Name (W1)" einfach in diese Zelle "angehängt werden.
Wichtig ist nur, dass der Dateiname (also die Information nach dem letzten /)
auf jeden Fall in eine Zelle geschrieben wird.
Wie kann man diesen Prozess
> per Formel oder per VBA
bewältigen ?
Freu mich sehr auf Tipps und Tricks von Euch
Besten Gruss
Stef@n