Hallo!
Wie bringe ich Excel relativen Datenbezug bei?
Die xls-Datei soll, egal an welchen Ort sie kopiert wird, immer nur im aktuellen Ordner suchen und nicht auf irgendwelche anderen Pfade zugreifen.
‚[muster.xls]Blatt A‘!$A$1
geht nicht, da ich nach einmaligen Speichern immer den kompletten Pfad drin habe. Gibts ne Möglichkeit?
Danke + Gruß
NW
jein
ich hab das bei mir so gelöst, dass ich ein workbook_open makro geschrieben hab, das mir den Link beim öffnen neu setzt.
Anders geht es wohl leider nicht…
Moin!
Sowas hab ich mir schon fast gedacht, da in der Hilfe nichts zu finden war.
ich hab das bei mir so gelöst, dass ich ein workbook_open
makro geschrieben hab, das mir den Link beim öffnen neu setzt.
Anders geht es wohl leider nicht…
Könntest du das Makro evtl. mal posten? Hab mir gedacht, daß ich den Pfad mit dem Makrorecorder entferne, das funktioniert aber auch nicht.
Schönen Gruß
Teil1:
Private Sub Workbook_Open()
’ prüfung auf den sheetnamen
sheetname = „sheetname“
If Not ActiveSheet.Name = sheetname Then
Sheets(sheetname).Select
End If
’ wiederholung der prüfung - falls es nicht aktiviert werden konnte (umbenannt oder so -> abbruch)
If Not ActiveSheet.Name = sheetname Then
Exit Sub
End If
’ ausführen des Linkupdates
Application.Run „reload_links“
End Sub
Teil2:
Private Sub linkupdate()
’ setzen des Links
ActiveSheet.Hyperlinks.Add Anchor:=Range(„F15“), Address:= _
„\netzwerkpfad\data\de\Datei.xls“
’ Formatierung der Zelle
With Range(„F15:H15“).Font
.Name = „Arial“
.Size = 12
.Bold = True
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 0
End With
ActiveWorkbook.Save 'evtl auskommentieren bei Dir…
End Sub
Schönen Dank!
Werde ich direkt mal antesten…
Gruß