Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink Erstellung in beide Richtungen

Hyperlink Erstellung in beide Richtungen
02.02.2004 07:46:22
ewald
Hallo zusammen,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink Erstellung in beide Richtungen
02.02.2004 09:53:48
Alex K.
Hallo Ewald,
du musst bei einem Hyperlink immer den Pfad / Dateiname angeben. Mit "Address:=Mappe" wird das also nichts.
Also versuche es mal mit

.Hyperlinks.Add .Cells(intRow, 1), Address:=Mappe.Fullname

AW: Hyperlink Erstellung in beide Richtungen
02.02.2004 12:34:41
ewald
Hallo Alex,
leider funktioniert es nicht.
With Workbooks("nDatei").Worksheets(1)kommt eine
Fehlermeldung:" Lauffehler '9'
Index außerhalb des gültigen Bereichs"
Trodzdem vielen Dank.
Grüße
AW: Hyperlink Erstellung in beide Richtungen
02.02.2004 12:47:16
Alex K.
Hallo Ewald,
hier mein Vorschlag.
Tausche folgenden Code

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

gegen

nDatei = nPfad & Dateiname & ".xls"
Workbooks.Open nDatei
With ActiveSheet
intRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Hyperlinks.Add .Cells(intRow, 1), Address:=Mappe.Fullname
ActiveWorkbook.Close True

Anzeige
AW: Hyperlink Erstellung in beide Richtungen
02.02.2004 13:20:19
Ewald Pauz
Hallo Alex,
die nDatei wird geöffnet, Hyperlikk wird eingefügt.
Wie kann man das die Aufforderung zum speichern der
nDatei unterbinden damit nicht zwei Dateien entstehen?
Vielen Dank im Voraus.
Grüße
AW: Vielen Dank es funktioniert
02.02.2004 15:46:22
ewald
Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige