Hyperlink zerstört

Hallo zusammen!
Ich hab da ein riesiges Problem mit Hyperlinks, der Rudi (danke nochmal) hat mir da schon mal geholfen, aber ich bin leider noch nicht weitergekommen.
Mit folgender Porzedur (hier nur ein Ausschnitt), erzeuge ich in einer Excelmappe (Quelle.xls) auf Tabellenblatt 1 eine Übersicht über alle angehängten Tabellenbältter, jeweils der Eintrag aus Zelle E4 wird dann automatisch zu einem Hyperlink auf das entsprechende Tabellenblatt generiert, ich habe dann also später eine hübsche Spalte mit Hyperlinks auf mappeninterne Tabellenblätter:


Sub Hyperlink()
.Cells(Zeile, 1).Value = wksQuelle.Range("E4").Value 'Tabellenblattname und späterer  _
Hyperlink
.Hyperlinks.Add Anchor:=.Cells(Zeile, 1), Address:="", SubAddress:="'" & .Cells(Zeile, 1) & " _
'!  _A1"
End Sub

So weit so gut. Mit folgender Prozedur kann ich nun in einer neuen Excelmappe die Tabelle 1 meiner Ursprungsmappe (Quelle.xls) als Kopie importieren. Die Hyperlinks sind dann auch immer noch vorhanden, nur sie haben sich dann auf die neue Mappe umgeschrieben und sind völlig nutzlos.


Sub Importieren()
Dim wb As Workbook
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
Workbooks.Open "file:\\Eigene Dateien\Quelle.xls
ActiveWorkbook.Sheets(1).Range("A1:Z100").Copy _
Destination:=wb.Sheets("Übersicht der Excelmappe Quelle").Range("A1:Z100")
Workbooks("Quelle.xls").Close False
Application.ScreenUpdating = True
Sheets("Übersicht der Excelmappe Quelle").Range("C1") = Now
End Sub

Kennt jemand eine Möglichkeit, wie ich die Hyperlinks statisch hinbekomme, so, dass sie weiterhin auf die Ürsprünglichen Tabellenblätter in Quelle.xls zugreifen?
Im Voraus bereits vielen Dank für Eure Mühe
MfG
Mark

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Hyperlink() Dim wb As Workbook, wksQuelle As Worksheet, wks1 As Worksheet Set wb = ActiveWorkbook Zeile = 1 Set wks1 = wb.Worksheets("Sheet1") With wks1 For Each wksQuelle In wb.Worksheets If wksQuelle.Name wks1.Name Then .Cells(Zeile, 1).Value = wksQuelle.Name 'Tabellenblattname und späterer Hyperlink .Hyperlinks.Add Anchor:=.Cells(Zeile, 1), Address:=wb.FullName, SubAddress:="'" _ & .Cells(Zeile, 1) & "'!A1" Zeile = Zeile + 1 End If Next End With End Sub

Hallo Franz!
Erst einmal danke, das funktioniert schon ganz gut! Aber es gibt immer noch eine Problematik, sobald meine Excel-Mappe in die ich das Tabellenblatt 1 aus Quelle.xls per Kopier Makro importiere, nicht mehr im selben Ordner liegt wie Quelle.xls, funktioniert der Link nicht mehr.
Praktisches Beispiel:
Ich kopiere das Tabellnblatt1 aus "Quelle.xls" in eine neue Excelmappe "Übersicht.xls". Beide liegen im seleben Ordner, der Link zum jeweiligen Tabellnblatt, den ich mit Deinem Vorlschlagg erzeug heißt jetzt beispielsweise c:\Eigene Dateien\Quelle.xls 'Tabellenblatt4'.
Alles funktioniert prima.
Jetzt nehme ich die gesmaten Mappe "Übersicht.xls" und lege sie auf laufwerk D ab und sofort heißt der Link:
D:\Quelle.xls 'Tabellenblatt4', obwohl "Quelle.xls" noch in C: leigt.
Hast Du da noch eine Idee?
Danke nochmal für Deine Mühe!
MfG
Mark

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread