VBA - Hyperlink Pfad ändern
Rouven
schon das nächste Problem:
Ich möchte in einer Datei Hyperlinks ändern - der Pfad hat sich verschoben. Das klappt soweit auch einigermaßen - 4 Fragen treten auf, um es zu perfektionieren. Hier erstmal der Code:
--------------------------------
Sub Hyperlink()
Dim sHyp As Hyperlink
Dim oldAddress As String
Dim newAddress As String
'Anpassen !!!
oldAddress = "..\..\Bresser\Anwendungsdaten\"
newAddress = "N:\Customer Data\Test\"
For Each sHyp In ActiveSheet.Hyperlinks
If InStr(1, sHyp.Address, oldAddress) Then
sHyp.Address = Mid(sHyp.Address, 1, InStr(1, sHyp.Address, oldAddress) - 1) & _
newAddress & Mid(sHyp.Address, InStr(1, sHyp.Address, oldAddress) + Len(oldAddress))
sHyp.TextToDisplay = sHyp.Address
End If
Next
End Sub
------------------------------
1 Frage:
Kann man es auch so einrichten, dass man bei oldaddress nur das ende nimmt - d.h. ich möchte eine stelle suchen und egal wie die ordnerstruktur davor aussieht soll er es durchführen. Wie z.B.
oldAddress = " *anwendungsdaten\ "
2 Frage:
Kann man das auch mit einer "wenn Abfrage" kombinieren ? soll heißen - er soll es nur so ändern, wenn z.B. ein Ordner namens "Tisch" enthalten ist - wenn er "Stuhl" heißt soll er es in dieses Format ändern ?
3 Frage:
Der Name des Hyperlinks wird umbenannt - wie und wo kann man das ändern ?
4 Frage:
Wenn eine Zeile ohne Hyperlinks dazwischen ist stoppt das Makro - was muss man machen, damit er es für eine Spalte fortlaufend durchführt ?
Viele viele Fragen - ich weiß, aber an diesem Punkt komm ich allein nicht weiter. Ist meine erste Makro-Programmierung.
Vielen Dank im Voraus
Grüße
Anzeige