ændre hyperlinks

Dette er den tidligere hjælp jeg fik:
Sub hyperlinks()
 
Dim Y As Range
For Each Y In Selection
Adresse = Y.Address
    On Error Resume Next
    sti = Range(Adresse).hyperlinks(1).Address
    laengde = Len(sti)
    NySti = "F:\musik\" & Right(sti, laengde - 14)
    If LBound(Left(sti, 14)) = "d:\MUSIK\" Then
        Range(Adresse).hyperlinks(1).Address = NySti
    End If
Next
End Sub

Den ændrer godt nok D:\MUSIK til F:\musik, men får ikke selve navnet på gruppen med

Prøv denne, men tag kopi først
den retter drevbogstavet Fra D til F, for alle hyperlink i det aktive ark



Sub hyperlinks()
Dim Y As Hyperlink
For Each Y In ActiveSheet.hyperlinks
If Left(Y.Name, 1) = "D" Then
    Y.Address = "F" & Right(Y.Name, Len(Y.Name) - 1)
    Y.TextToDisplay = "F" & Right(Y.Name, Len(Y.Name) - 1)
    End If
Next

End Sub

>kabbak

Der sker ikke rigtig noget, når jeg kører makroen

kan du sende et kopi af arket, for hvis drevbogstavet ikke står først, så sker der intet.

kabbak snabela tiscali dot dk

er afsendt

prøv denne

Sub hyperlinks()
Dim Y As Hyperlink
For Each Y In ActiveSheet.hyperlinks
Y.Address = Replace(Y.Address, "D:\", "F:\")
Next
End Sub

Jeg takker for hjælpen, men når jeg nu prøver på at bruge hyperlinket siger excel " der er ikke registreret noget program til at åbne dette dokument"

Før åbnede den bare i media player

Hej , er det ikke fordi at du har en anden PC, så er det ikke sikkert at MP3 filer er blevet registreret til mediaplayer.

det gøres i en stifinder
Funktioner > Mappeindstillinger > Filtyper

hvis du ikke kan finde MP3 der, så tilføj den

>kabbak, Du har gjort det igen igen. mange tak for hjælpen. smid et svar og jeg smider nogle point, ikke nok efter alt din hjælp, men de er der.

et svar ;-))