Note: The other languages of the website are Google-translated. Back to English

Wie kopiere ich in Excel nur einen Hyperlink von einer Zelle in eine andere?

Angenommen, ich habe eine Liste mit Werten in Spalte A und jede Zelle enthält einen anderen Hyperlink. Jetzt möchte ich nur die Hyperlinks ohne Text in eine andere Spalte E kopieren, wie im folgenden Screenshot gezeigt. Möglicherweise gibt es keinen direkten Weg, um diesen Job in Excel zu lösen, aber hier kann ich einen VBA-Code für den Umgang damit einführen.

Dokument kopieren Hyperlink zu einer anderen Zelle 1

Kopieren Sie den Hyperlink mit VBA-Code von einer Zelle in eine andere


Pfeil blau rechte Blase Kopieren Sie den Hyperlink mit VBA-Code von einer Zelle in eine andere

Um nur die Hyperlink-Adressen ohne Text in andere Zellen zu kopieren, kann Ihnen der folgende Code einen Gefallen tun:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Hyperlink nur von einer Zelle in eine andere kopieren:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. Und dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, die Zellen auszuwählen, in die Sie nur die Hyperlinks kopieren möchten. Siehe Screenshot:

Dokument kopieren Hyperlink zu einer anderen Zelle 02

4. Und dann klick OKWählen Sie dann die Zellen aus, in die Sie die Hyperlins nur in einem anderen Dialogfeld einfügen möchten. Siehe Screenshot:

Dokument kopieren Hyperlink zu einer anderen Zelle 03

5. Die Hyperlink-Adressen wurden nach Bedarf von den ursprünglichen Zellen in die angegebenen Zellen kopiert (siehe Abbildung):

Dokument kopieren Hyperlink zu einer anderen Zelle 04

Hinweis: Dieser Code kann Ihnen auch dabei helfen, die Hyperlinks von einem Blatt auf ein anderes Blatt zu kopieren, wie Sie möchten.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten

 

Kommentare (13)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, was ist, wenn ich meinen Hyperlink von Blatt A, Zelle A5, in Blatt B, Zelle A5, kopieren möchte?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Apit:

Ich habe den VBA-Code aktualisiert, jetzt können Sie ihn nach Bedarf in zwei Arbeitsblättern anwenden. Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte Links in mehreren Blättern einer Datei in eine andere Datei kopieren
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo. Was ist, wenn ich den Hyperlink über vlookup kopieren möchte? Ich habe bereits die Formel, aber wenn ich auf den Hyperlink klicke, wird "Spezifizierte Datei kann nicht geöffnet werden" angezeigt.

Bitte hilf mir
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert nicht
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe es. Vielen, vielen Dank.
Liebe Grüße aus der Dominikanischen Republik :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert nicht
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nehmen wir an, in Ihrer Zelle ist A1 ein Hyperlink. Um den Pfad des Hyperlinks zu erhalten, erstellen Sie einfach eine Formel wie unten:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das hat bei mir auch nicht funktioniert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist toll und es funktioniert. Ich liebe es, den Code anderer Leute zu kopieren und einzufügen :D
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert bei mir nicht; Spielt die Tatsache, dass ich immer noch Excel 2007 verwende, eine Rolle?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
OK, Sie werden meinen Kommentar also nicht veröffentlichen - was fair ist. Aber wenn Sie möchten, dass ich mich registriere und einlogge, müssen Sie mir Lösungen zeigen, die funktionieren, denn (auf der Grundlage einer nicht funktionierenden Instanz) habe ich nichts gesehen, was mich davon überzeugen könnte, dass eine Registrierung einen Wert hat.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe die folgenden Änderungen vorgenommen, um für meinen Anwendungsfall zu arbeiten:
UnterkopieHyperlinks()
'Updateby Extendoffice
Dim xSRg als Bereich
Dim xDRg als Bereich
Dim I als ganze Zahl
Dim xAddress als Zeichenfolge
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Adresse
Set xSRg = Application.InputBox("Bitte wählen Sie den ursprünglichen Bereich aus, in den Sie Hyperlinks kopieren möchten:", "KuTools For Excel", xAddress, , , , , 8)
Wenn xSRg nichts ist, dann beenden Sie Sub
Set xDRg = Application.InputBox("Bitte wählen Sie den neuen Bereich aus, in den Sie nur die Hyperlinks einfügen möchten", "KuTools For Excel", , , , , , 8)
Wenn xDRg nichts ist, dann beenden Sie Sub
Setze xDRg = xDRg(1)
Für I = 1 bis xSRg.Count
If xSRg(I).Hyperlinks(1).Address <> "" Oder xSRg(I).Hyperlinks(1).SubAddress <> "" Then
Wenn xSRg(I).Hyperlinks.Count = 1 Dann
xDRg(I).Hyperlinks.Anker hinzufügen:=xDRg(I), _
Adresse:=xSRg(I).Hyperlinks(1).Adresse, _
Unteradresse:=xSRg(I).Hyperlinks(1).Unteradresse
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
Weiter
End Sub
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL