Hyperlink Erstellung in beide Richtungen
02.02.2004 07:46:22
ewald
Aus einer beliebigen aktiven Arbeitsmappe heraus wird eine Kopie
der Vorlage "555.xlt" erstellt, siehe Makro.
Dabei wird in der aktiven Arbeitsmappe, in Spalte A, ein Hyperlink
zu dieser neuen Datei eingefügt.Soweit läuft auch alles.
Nun möchte ich, dass auch in der neu erstellten Datei ein Hyperlink
zur aktiven Arbeitsmappe eingefügt wird. Das krieg ich einfach nicht hin.
Im Herber Archiv bin ich nicht fündig geworden und hoffe auf eure
Unterstützung.
Sub Hyperlink_c()
Dim Dateiname As String
Dim nDatei As String 'Hilfe String
Dim intRow As Integer
Dim Pfad As String
Dim nPfad As String
Dim Mappe As Workbook
Set Mappe = ActiveWorkbook 'Aktive Arbeitsmappe
nPfad = "E:\Excel\Hyp\" 'Pfad der neuen Datei (Kopie der Vorlage)
Dateiname = InputBox("Wie soll die Datei heißen?", "Name der Datei", "04")
If Dateiname <> "" Then
Pfad = "E:\Excel\VBA\bba\" 'Pfad der Vorlage
FileCopy Pfad & "555.xlt", nPfad & Dateiname & ".xls"
Range("A1").Select 'Anpassen
While ActiveCell.Text <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=nPfad & Dateiname & ".xls"
Selection.Value = nPfad & Dateiname 'Soweit alles Okey
nDatei = nPfad & Dateiname & ".xls"
With Workbooks("nDatei").Worksheets(1)
intRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Hyperlinks.Add .Cells(intRow, 1), Address:=Mappe
End With
End If
End Sub
Über eine Hilfestellung würde ich mich sehr freuen.
Grüße