ein großes Problem, das unlösbar scheint:
Ich habe eine Datei A im Netz meiner Firma in mehreren Filialen zu öffen. In dieser Excel-Datei, die jeweils auf die Filialserver repliziert wird, sind Hyperlinks (wiederum auf Excel-Dateien) eingebaut. Das jeweilige Serverlaufwerk hat den Buchstaben k:, wird aber anscheinend in den Servernamen umbenannt (A1230...). Dieser Servername hat allerdings in jeder Filiale eine andere Nummer.
Folg. Makro erzeugt die Links:
Sub auto_open()
Dim Pfad As String
Dim Pfad1 As String
Pfad = Cells(1, 5)
Pfad1 = Pfad & "\"
Range("A8:A100").ClearContents
Dim arrFiles1 As Variant
Dim intCounter1 As Integer
Application.ScreenUpdating = False
arrFiles1 = FileArray(Pfad, "*fix.xls")
On Error Resume Next
For intCounter1 = 1 To UBound(arrFiles1)
With ThisWorkbook.Worksheets(1)
.Cells(intCounter1 + 7, 1) = arrFiles1(intCounter1)
.Hyperlinks.Add Anchor:=.Cells(intCounter1 + 7, 1), _
Address:=Pfad1 & .Cells(intCounter1 + 7, 1).Value
End With
Next intCounter1
End Sub
Wobei in Zelle E1 der Pfad der Zieldateien vorgegeben wird (k:\Dateien\Beispiel)
Kann ich mittels Makro erreichen, dass das System den Buchstaben k nicht in den Servernamen umwandelt?
Daniel