schon seit einer Woche kämpfe ich mit diesem vba-Code und kriege leider keine Lösung. Ich wäre Euch sehr dankbar wenn jemand mir helfen könnte.
Das Problem sieht folgendes aus: Ich habe mehrere Dateien die auf dem Soonr Workplace abgelegt sind. Ich brauche eine Summendatei die einzelne Arbeitsblätter verknüpft. Z.B:
[...]Summe_07.xlsx
[...]Summe_08.xlsx
und die Summendatei. Die Verknüpfung funktioniert ganz gut, solange ich mit den Dateien arbeite. ABER jeder anderer der den Zugriff auf diese Dateien hat, hat einen anderen Pfad und somit kann die Verknüpfungen nicht aktualisiert werden.
Zum Verständnis, das ist der Link zu der Datei:
='C:\Users\agal\Soonr Workplace\...\Reporting_07.xlsx]Summe_07'!$D$6
Ich brauche, dass der VBA mir anstatt "agal" den UserName schreibt und somit den Pfad ändert. Und die Dateien aktualisiert.
Hier ist mein Versuch, aber das funktioniert leider nicht.
Sub ErsetzeAlleHyperlink()
Dim alteLink As String
Dim neueLink As String
Dim strUser As String
Dim myLink As Hyperlink
strUser = Environ("Username")
For i = 1 To Sheets.Count
Sheets(i).Activate
For Each Zelle In ActiveSheet.UsedRange
' Achtung: Groß/Kleinschrift beachten, ist für das Ersetzen wichtig
alteLink = "C:\Users\agalitcaia\"
neueLink = "C:\Users\strUser\"
' durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
For Each myLink In ActiveSheet.Hyperlinks
' und in der Adresse des Links den Teil alt gegen neu tauschen
myLink.Address = Replace(myLink.Address, alteLink, neueLink)
Next
Next
Next
End Sub
Woran kann es liegen dass die Link nicht ersetzt werden?
Vielen Dank im Voraus!!!
Viele Grüße, Alisa