excel links

Question

Hallo !

Ich weis das es eine Lösung hier im Forum gab.(habe sie wo ich das gesehn habe auch nicht komplett verstanden !)

Habe eine Excel Tabelle mit 500 links....

auf einen Server namen z.b. //File1/ordner2/x

was wäre wenn ich jetzt nur den teil //File2/ordner2/x

" File 2 " umändern möchte? ich weis das man das mit makro programierungen machen kann ... und angeben kann das er nur den ersten teil tauscht... das problem ist das ich keine ahnung habe von excel ! bin absoluter noob ! ic brauche dringend eure hilfe....
wäre ich serh sehr dankbar wenn mir jmd en tip gibt wie ich das hinkriege !



https://supportnet.de/listthread/147413



das ist genau mein problem exakt das selbe !!!!

" Hallo nexus,

datei = Mid(hlink, 15, Len(hlink) - 14)

in dieser Zeile wird der Dateiname geholt.
Mid ist die Funktion, die den String zerlegt. Eingabe für die Funktion ist der String, der Start, ab dem gelesen wird und die Länge, die gelesen wird.

Die Länge des Gesamtstrings erhalte ich mit Len(String). Den Start erhalte ich, indem ich den von Dir angegebenen Pfad "\\server\pfad\" + 1 nehme Die zulesende Länge erhalte ich aus der Gesamtlänge - Vorgabe. "

kopiert von Günther...

kann mir das jmd erklären ?

Answer 1

verstehe auch nicht was ich genau dann in dem programm code um ändern muss was in dem andern thread beschrieben ist ... zum beispiel welche zellen wie man die angibt ... und diese funktion mit den zahlen sowieso ...

welchei nfos braucht ihr von mir über meine tabelle ?

Answer 2

hlink = Cells(n, 2).Hyperlinks(1).Address
<<< laufzeitfehler...

habe meinen code wie folt angepasst :

Option Explicit

Sub Hyperlinks_aendern()
Dim n As Integer
Dim hlink As String
Dim datei As String
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
hlink = Cells(n, 2).Hyperlinks(1).Address
datei = Mid(hlink, 16, Len(hlink) - 15)
Cells(n, 2).Hyperlinks(1).Address = "\\file\alldeps\" & datei
Next n
End Sub


warum kommt der laufzeit fehler?

links stehn in spalte b