Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink kopieren und einfügen

Hyperlink kopieren und einfügen
04.02.2015 20:27:48
Frank
Hallo Cracks,
ich komm nicht weiter ...
Gibt es denn keine einfache Möglichkeit, Address und SubAddress eines Hyperlinks auf eine Variable zu legen und später in einer andere Zelle wieder als Hyperlink einzufügen?
Hier mein Code:
With rgQ 'Quelltabelle
Hier passiert einiges ...
Dn = .Cells(Z, 1).Value 'Datei
Nn = .Cells(Z, 2).Value 'Nummer
Pn = .Cells(Z, 6).Value 'Punkte
Tx = .Cells(Z, 9).Value 'Aufgabentext
^^ HLA = .Cells(Z, 9).Hyperlink.Address 'Hyperlink zur Aufgabe
^^ HLSA = .Cells(Z, 9).Hyperlink.SubAddress
Pr = .Cells(Z, 8).Value 'Programmierte Aufgabe
With wsZ 'Zieltabelle
und hier passiert auch was ...
aufg = aufg + 1 'Gesamt Aufgaben
.Cells(aufg + 1, 5) = Tx 'Aufgabentext
.Hyperlinks.Add Cells(aufg + 1, 9), HLA, HLSA
.Cells(aufg + 1, 6) = Pr 'Programmierte Aufgabe
QI(i) = QI(i) - Pn 'Rest Punkte im QualiInhalt
PK = PK + Pn 'Gesamtpunkte
End With
End With
Bei ^^ bekomme ich die Meldung "Objekt unterstützt die Eigenschaft oder Methode nicht"
Kann mir jemand den Abend retten?
1000 Dank
Frank

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink kopieren und einfügen
04.02.2015 22:37:11
Mullit
Hallo Frank,

null Problemo: Du mußt ein Element der Hyperlinks-Collection ansprechen:
Option Explicit

Public Sub test()
  Dim strAddress As String, strSubAddress As String
  With Cells(1, 9).Hyperlinks(1)
      strAddress = .Address 'Hyperlink zur Aufgabe 
      strSubAddress = .SubAddress
  End With
  '... 
  Call prcAddHyperlink(probjRange:=Cells(4, 5), _
      prstrAddress:=strAddress, prstrSubAddress:=strSubAddress)
End Sub

Private Sub prcAddHyperlink(ByRef probjRange As Range, _
  ByRef prstrAddress As String, ByRef prstrSubAddress As String)
  With probjRange.Hyperlinks
      If prstrAddress <> vbNullString Then
        .Add Anchor:=probjRange, Address:=prstrAddress, TextToDisplay:=prstrAddress
      Else
        .Add Anchor:=probjRange, Address:=prstrAddress, _
            SubAddress:=prstrSubAddress, TextToDisplay:=prstrSubAddress
      End If
  End With
End Sub


VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: Hyperlink kopieren und einfügen
05.02.2015 07:31:08
Frank
Super, das hat funktioniert!
With Cells(1, 9).Hyperlinks(1)
Danke!

AW: Hyperlink kopieren und einfügen
05.02.2015 08:29:27
Mullit
Hallo,
prima, freut mich...
Gruß, Mullit

AW: Hyperlink kopieren und einfügen
04.02.2015 22:42:37
sam
Hi,
versuch mal
HLA = Cells(Z, 9).Hyperlinks(1).Address
bei mir geht es nur so.
lg
Sam
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink effektiv kopieren und einfügen in Excel


Schritt-für-Schritt-Anleitung

Um einen Hyperlink in Excel zu kopieren und einzufügen, kannst du die folgenden Schritte befolgen:

  1. Hyperlink finden: Gehe zu der Zelle, die den Hyperlink enthält.
  2. Hyperlink kopieren: Klicke mit der rechten Maustaste auf die Zelle und wähle „Hyperlink kopieren“ aus dem Kontextmenü.
  3. Zielzelle auswählen: Gehe zu der Zelle, in der du den Hyperlink einfügen möchtest.
  4. Hyperlink einfügen: Klicke mit der rechten Maustaste und wähle „Hyperlink einfügen“ oder benutze die Tastenkombination Strg + V.

Wenn du mit VBA arbeitest, kannst du den Hyperlink mit folgendem Code kopieren:

Sub HyperlinkKopieren()
    Dim strAddress As String
    Dim strSubAddress As String

    With Cells(1, 9).Hyperlinks(1)
        strAddress = .Address
        strSubAddress = .SubAddress
    End With

    ' Füge den Hyperlink in eine andere Zelle ein
    With Cells(4, 5).Hyperlinks
        .Add Anchor:=Cells(4, 5), Address:=strAddress, SubAddress:=strSubAddress
    End With
End Sub

Häufige Fehler und Lösungen

  • Hyperlink kopieren funktioniert nicht: Stelle sicher, dass du den richtigen Index für die Hyperlink-Collection verwendest. Die Fehlermeldung „Objekt unterstützt die Eigenschaft oder Methode nicht“ tritt häufig auf, wenn du versuchst, auf einen Hyperlink zuzugreifen, der nicht existiert. Verwende Cells(Z, 9).Hyperlinks(1) für den Zugriff.

  • Ungültiger Hyperlink: Überprüfe den Hyperlink auf korrekte Syntax. Manchmal kann ein zusätzlicher Leerraum oder ein falsches Zeichen dazu führen, dass der Link nicht funktioniert.


Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

  1. Drag & Drop: Halte Strg gedrückt und ziehe die Zelle mit dem Hyperlink in die Zielzelle.
  2. Kopieren und Einfügen: Kopiere die gesamte Zelle, die den Hyperlink enthält, und füge sie in die Zielzelle ein. Dies wird jedoch auch den Text und das Format übernehmen.

Praktische Beispiele

Nehmen wir an, du möchtest den Hyperlink in der Zelle A1 auf die Zelle B1 kopieren:

  1. Zelle A1 enthält: https://www.beispiel.de

  2. Kopiere den Hyperlink:

    Sub BeispielHyperlinkKopieren()
       Dim strAddress As String
       strAddress = Cells(1, 1).Hyperlinks(1).Address
       Cells(1, 2).Hyperlinks.Add Anchor:=Cells(1, 2), Address:=strAddress
    End Sub
  3. Zelle B1 wird nun den Hyperlink enthalten.


Tipps für Profis

  • Nutze die Hyperlinks-Collection in VBA, um mehrere Hyperlinks gleichzeitig zu verarbeiten. Du kannst in einer Schleife durch alle Hyperlinks in einer Zelle iterieren.
  • Wenn du häufig mit Hyperlinks arbeitest, erstelle eine Funktion, die du wiederverwenden kannst, um Hyperlinks effizient zu kopieren und einzufügen.
  • Achte darauf, dass die Zielzelle bereits formatiert ist, um Links zu akzeptieren. Andernfalls kann es sein, dass dein Hyperlink nicht richtig angezeigt wird.

FAQ: Häufige Fragen

1. Wie kann ich einen Link kopieren und einfügen?
Du kannst einen Link in Excel kopieren, indem du mit der rechten Maustaste auf die Zelle klickst und „Hyperlink kopieren“ auswählst. Um ihn einzufügen, klicke mit der rechten Maustaste auf die Zielzelle und wähle „Hyperlink einfügen“.

2. Was mache ich, wenn der Hyperlink kopieren Befehl nicht funktioniert?
Stelle sicher, dass du die richtige Zelle auswählst und dass der Hyperlink tatsächlich vorhanden ist. Wenn du VBA verwendest, überprüfe den Index der Hyperlink-Collection.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige