Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink nach kopieren defekt

Forumthread: Hyperlink nach kopieren defekt

Hyperlink nach kopieren defekt
26.01.2015 08:58:54
Sascha
Guten Morgen Forengemeinde,
ich habe ein Problem mit Hyperlinks. Und laut dem Internet bin ich nicht der einzige. Leider habe ich keine passende Lösung gefunden. Ich habe eine "Datenbank" mit Hyperlinks. Dazu habe ein eine Exceldatei die diese "Datenbank" (Exceldatei) einfach kopiert und öffnet.
Leider gehen beim Kopiervorgang die Hyperlinks kaputt. Es sind zwar hyperlinks die aber nirgendwoe hinzeigen . z.B.
..\R12345678%12-%201234%123421%20123123%20(213341)\Ordner1\SF-XX-XX.xls
Wobei der richtige Link in der Db hinterlegt ist.
Hier mein Code
Sub Auto_open()
' Einlesen_der_Daten Makro
Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx"
Cells.Select
Selection.Copy
Windows("1-Übersicht.xlsm").Activate
Worksheets("Sheet1").Range("A1:H65000").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Range("A1:G1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Columns("G:G").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Range("A2").Select
Workbooks("DB.xlsx").Close SaveChanges:=False
End Sub

Vielleicht habt ihr ja eine Anwort für mich. Der Hyperlink ist anklickbar, nur er führt ins nichts.

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nur ne Idee...
26.01.2015 09:11:07
Oberschlumpf
Hi Sascha
vllt hilfts ja schon, deinen Code etwas zu kürzen + die (auch hier) unnötigen Selects + Activates verschwinden zu lassen.
Ändere diesen Code 

Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx"
Cells.Select
Selection.Copy
Windows("1-Übersicht.xlsm").Activate
Worksheets("Sheet1").Range("A1:H65000").PasteSpecial Paste:=xlPasteAll

um in 

Cells.ClearContents
Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx"
Cells.Copy WorkBooks("1-Übersicht.xlsm").sheets("Sheet1").Range("A1")

Da "mein" Code ungetestet ist, weiß ich nicht, obs funktioniert.
Wenns nich funzt, zeig uns doch mal ne Bsp-Datei - dann kann/will ich auch testen...ich mag nicht viele Hyperlinks erstellen, weil das doch eigtl dein Job ist.
Ciao
Thorsten

Anzeige
AW: nur ne Idee...
26.01.2015 09:43:08
Sascha
Danke für die Antwort.
Der Code von Dir geht soweit, allerdings bleibt das Problem bestehen.
Das Problem ist, das es sich um "sensibele" Daten handelt. Leider kann ich die originale nicht hochladen.
Das Problem tritt auch auf, wenn ich mit strg + C /v die Sachen in eine Blanke Excel Datei kopiere. Auch da sind die Hyperlinks defekt. Kann das an der Zeichen länge liegen ?
Hier noch ein Beispiel:
\\aaaa-bbb-pv001\AAA-303-0008-FFFFF$\CCC\A200XXX - AAAA 2000 TTTTTT (213341)\Arbeit\SF-15-009.xls
Das ist auch ein Typischer Link.
Wenn dieser in einer Exceldatei angelegt wird, und dann in eine andere kopiert werden soll. Geht es nicht. Das Problem. Ich glaube nicht, das jemand anderes so lange Pfade hat :-/

Anzeige
Viell solltest du HL-Fmln verwenden, ...
26.01.2015 09:18:00
Luc:-?
…Sascha,
die könnten ggf stabiler sein.
Morrn, Luc :-?

AW: Viell solltest du HL-Fmln verwenden, ...
26.01.2015 09:44:58
Sascha
HL-Fmln ?
Was ist das ?

Hyperlink - Formel
26.01.2015 09:51:00
Klaus
Hi Sascha,
was Luc sagen will:
Benutze die Formel =HYPERLINK(), anstatt mit STRG+K einen Hyperlink zu erzeugen.
=HYPERLINK(Adresse;freundlicherName)
Zum Beispiel:
=HYPERLINK("WWW.google.de";"Suche per Google")
oder auch ohne "freundlicherName:
=HYPERLINK("WWW.google.de")
Grüße,
Klaus M.vdT.

Anzeige
AW: Hyperlink - Formel
26.01.2015 12:57:19
Sascha
Das Problem dabei ist, die Hyperlinks werden so erzeugt.
Sub aaTest() 'Code-Beispiel
Dim wksZiel As Worksheet
Dim strPathLink As String
Set wksZiel = Worksheets("export")
Workbooks("94544.xlsm").Activate 'Testzeile
strPathLink = ActiveWorkbook.FullName
'oder
strPathLink = ActiveWorkbook.FullNameURLEncoded
With wksZiel
.Hyperlinks.Add Anchor:=.Range("H1"), Address:=strPathLink
End With
End Sub
Und ich habe keine Ahnung wie ich das abändern müsste.

Anzeige
AW: Hyperlink - Formel
26.01.2015 13:06:31
Klaus
Hi Sascha,
bei mir klappt es so:
Sub aaTest() 'Code-Beispiel
Dim wksZiel As Worksheet
Dim strPathLink As String
Set wksZiel = Worksheets("export")
Workbooks("94544.xlsm").Activate 'Testzeile
strPathLink = ActiveWorkbook.FullName
'oder
strPathLink = ActiveWorkbook.FullNameURLEncoded
With wksZiel
.Range("H1").FormulaR1C1 = "=HYPERLINK(""" & strPathLink & """)"
'.Hyperlinks.Add Anchor:=.Range("H1"), Address:=strPathLink
End With
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Hyperlink - Formel
26.01.2015 14:01:35
Sascha
Vielen Dank!
Nun funktioniert alles wie es soll!

Danke für die Rückmeldung! owT.
26.01.2015 15:12:47
Klaus
.
;

Forumthreads zu verwandten Themen

Konkatinieren : kopieren funktioniert nicht
stelud

Hallo,
in Spalte E will ich eine Konkatinierung der Spalten A - D haben - dies löse ich wie folgt :
=$A$1&$B$1&$C$1&$D$1
Ergebnis eine Zeile :
A B C D E
1 2 3 4 1234
wenn ich aber nun diese Formel in Zeile2 kopiere, wird der Index nic...
04.11.2008 09:10:59
Thread-ID: 1021470
3 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Hyperlink funktioniert nicht mehr
Paul

Hallo,
ich habe Windows 7 auf meinem Rchner installiert. Nun gehen meine angelegten Hyperlinks, auch die Internen, nicht mehr.
Fehlermeldung: Dieser Vorgang wurde wegen Beschränkungen auf diesem Computer abgebrochen. Wenden Sie sich an den Administrator.
Hat jemand eine Ahnung wo...
18.12.2010 16:15:33
Thread-ID: 1192025
3 Beiträge
Anzeige
Hyperlink funktioniert nicht (richtig/ mehr)
Erik

Sehr geehrte Forumsleser/-innen,
ich habe folgendes Problem: Ich versuche mir im Moment einen excelkonformen Dienstplan zu bauen (tabellengerecht). Dabei gibt es in der Arbeitsmappe ein Übersichtsblatt und je Mitarbeiter/-in wird ein Tabellenblatt nach einer Vorlage erstellt (derzeit manuel...
17.12.2012 09:55:21
Thread-ID: 1291183
9 Beiträge
Kopieren funktioniert mit Office 2010 nicht mehr
Markus

Hallo,
untenstehendes Mail funktionierte bestens mit der Office 2003 Version,
vor allem auch dann, wenn in der Ursprungstabelle oder in der Zieltabelle "Erledigt" Spalten ausgeblendet waren.
Seit Office 2010 werden nur noch die "Sichtbaren" Spalten mitkopiert.
Lässt sich das beh...
23.07.2013 11:10:33
Thread-ID: 1323662
2 Beiträge
kopieren funktioniert nicht auf beiden blättern
Jens

Hallo zusammen,
ich bin leider noch ein echter anfänger.
Ich versuche einen Bereich eines Blattes auf den Bereich eines anderen Blattes zu kopieren. Solange ich das Makro auf dem Zielblatt starte funktioniert es. Bin ich auf einem anderen Blatt, dann leider nicht. Ich verstehe nicht war...
09.02.2015 00:38:41
Thread-ID: 1408078
2 Beiträge
Kopieren gefilterter Daten funktioniert nicht
Valentin

Hallo liebes Forum,
ich hänge seit Tagen an einem Problem fest. Und zwar versuche ich mittels Makrorecorder, eine Datei zu automatisieren.
Ein Teil der Automatisierung beinhaltet das Filtern einer Spalte X und im Anschluss das Kopieren der gefilterten Daten aus Spalte Y, um diese dann i...
29.04.2015 11:50:29
Thread-ID: 1423712
5 Beiträge
Spalten Kopieren- Einfügen funktioniert nicht
dove89

Hallo zusammen,
ich hab ein kleines Problem. Mit dem unten stehenden Code such ich in der ersten Zeile nach einem Wort. Wenn es gefunden wurde, kopiert das Makro mir die ganze Spalte und fügt es in einem anderen Sheet in die Spalte ZZ ein.
Da ich aber nun sehr große Datenmengen habe, wo...
31.08.2016 12:24:38
Thread-ID: 1512120
2 Beiträge
Kopieren funktioniert nicht
SteffenS

Hallo Zusammen,
ich versuche per:
last_cell = WSASW.Cells(WSASW.Rows.Count, 1).End(xlUp).Row
WSASW.Range("E5:F5").Copy Destination:=WSASW.Range(WSASW.Cells(6, 5), WSASW.Cells(last_cell, 6))
einen Bereich bis zur letzten Zelle zu kopieren.
Das Kopieren funktioniert auch nur i...
10.10.2016 16:48:10
Thread-ID: 1518967
3 Beiträge
Anzeige
Hyperlink funktioniert nicht mehr
Marie

Hallo liebe Excel-Community,
ich habe eine Excel-Liste, bei der ich sehr viele Hyperlinks zu Dokumenten erstellt habe. Das hat auch immer funktioniert. Nun habe ich heute versucht auf einen Hyperlink zu drücken, und musste feststellen, dass der Hyperlink nicht funktioniert. Daraufhin habe i...
21.08.2017 11:19:54
Thread-ID: 1575512
10 Beiträge
Blatt kopieren nur mit Inhalt funktioniert nicht
günne

Guten Abend Excel-Gemeinde,
ich habe mir selber eine kleine Rechnungsverwaltung erstellt und bis auf diese eine Sache läuft alles gut.
Wenn eine Rechnung geschrieben ist kommt der Druck. Hierbei wird nicht nur das Blatt gedruckt, sondern soll im Hintergrund als PDF und als Excel-Datei,...
20.02.2018 17:15:31
Thread-ID: 1610126
5 Beiträge
Hyperlink funktioniert nicht
headder

Hallo,
ich habe in einer Tabelle untereinander vier Namen stehen, die es auch gleichzeitig als Tabellenblatt gibt.
Meine Idee ist nun hinter den Namen ein Link zu erstellen. Durch das Anklicken soll man dann direkt in dem Tabellenblatt auf A1 landen.
Ich kann die Formel erstellen, n...
09.04.2018 09:37:42
Thread-ID: 1618747
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Excel kopieren und reparieren

Schritt-für-Schritt-Anleitung

  1. Datenbank öffnen: Stelle sicher, dass die Excel-Datei mit der Datenbank, die die Hyperlinks enthält, geöffnet ist.

  2. Code anpassen: Verwende den folgenden VBA-Code, um die Hyperlinks korrekt zu kopieren, ohne unnötige Select und Activate Befehle:

    Sub Auto_open()
   ' Einlesen der Daten und Hyperlinks
   Cells.ClearContents
   Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx"
   Cells.Copy Workbooks("1-Übersicht.xlsm").Sheets("Sheet1").Range("A1")
   Application.CutCopyMode = False
   Workbooks("DB.xlsx").Close SaveChanges:=False
End Sub

  3. Hyperlinks überprüfen: Nach dem Kopieren überprüfe die Hyperlinks, um sicherzustellen, dass sie korrekt sind und in die richtigen Zielordner zeigen.

Häufige Fehler und Lösungen

  • Hyperlink funktioniert nicht: Wenn die Hyperlinks nach dem Kopieren ins Leere führen, kann das an zu langen Pfaden liegen. Achte darauf, dass die Pfade nicht zu lang sind.

  • Hyperlink bleibt defekt: Überprüfe, ob der Hyperlink in der Datenbank korrekt hinterlegt ist. Manchmal können Zeichen in den Pfaden die Funktionsweise beeinträchtigen.

  • Wenn Hyperlink kopieren funktioniert nicht: Stelle sicher, dass du die Hyperlinks nicht manuell mit STRG + K erstellt hast, sondern die HYPERLINK()-Formel verwendest.

Alternative Methoden

  • HYPERLINK()-Formel: Statt Hyperlinks manuell zu erstellen, kannst du die Formel =HYPERLINK(Adresse; freundlicherName) verwenden. Beispiel:

    =HYPERLINK("http://www.google.de"; "Suche per Google")

  • HL-Fmln verwenden: Eine weitere Methode, die stabilere Hyperlinks erzeugen könnte, ist die Verwendung von HL-Fmln.

Praktische Beispiele

  • Einfacher Hyperlink: 

    =HYPERLINK("C:\Dokumente\Datei.xlsx"; "Öffne die Datei")

  • VBA für Hyperlinks: Wenn du Hyperlinks mit VBA erstellen möchtest, kannst du den folgenden Code verwenden:

    Sub HyperlinkErstellen()
   Dim wksZiel As Worksheet
   Set wksZiel = Worksheets("export")
   wksZiel.Hyperlinks.Add Anchor:=wksZiel.Range("H1"), Address:="C:\Dokumente\Datei.xlsx"
End Sub

Tipps für Profis

  • Vermeide lange Pfade: Lange Hyperlinks können zu Problemen führen, wenn sie kopiert werden. Halte die Pfade so kurz wie möglich.

  • Formel verwenden: Nutze die HYPERLINK()-Formel, um mehr Kontrolle über die Hyperlinks zu haben. Dadurch kannst du auch sicherstellen, dass sie immer korrekt funktionieren.

  • Regelmäßig testen: Teste regelmäßig deine Hyperlinks, besonders nach größeren Änderungen an den Daten oder der Struktur.

FAQ: Häufige Fragen

1. Warum funktionieren meine Hyperlinks nicht nach dem Kopieren?
Das kann an zu langen Pfaden oder falsch hinterlegten Links in der Datenbank liegen. Achte darauf, die Pfade kurz zu halten und die Links korrekt zu erstellen.

2. Wie kann ich lange Hyperlink-Pfade vermeiden?
Versuche, die Dateien in kürzere Ordnerstrukturen zu verschieben oder verwende relative Pfade, wenn möglich.

3. Gibt es eine Möglichkeit, Hyperlinks automatisch zu generieren?
Ja, du kannst VBA verwenden, um Hyperlinks programmgesteuert zu erstellen, was dir viel Zeit sparen kann.

4. Wie kann ich überprüfen, ob ein Hyperlink funktioniert?
Klicke einfach auf den Hyperlink. Wenn er ins Leere führt, überprüfe die Zieladresse und den Pfad, um sicherzustellen, dass alles korrekt ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige