Wie kann man Hyperlink kopieren nur von einer Zelle in eine andere in Excel?
Angenommen, Sie haben eine Liste von Werten in Spalte A, wobei jede Zelle einen anderen Hyperlink enthält. Nun möchten Sie ausschließlich die Hyperlinks – ohne den zugehörigen Anzeigetext – in eine andere Spalte (z. B. Spalte E) kopieren, wie im folgenden Screenshot dargestellt. Obwohl Excel hierfür keine direkte Funktion bietet, können Sie diese Aufgabe mithilfe eines VBA-Codes effizient lösen.
Hyperlink kopieren von einer Zelle in eine andere mit VBA-Code
Hyperlink kopieren von einer Zelle in eine andere mit VBA-Code
Um ausschließlich die Hyperlink-Adresse – ohne den zugehörigen Text – in andere Zellen zu kopieren, unterstützt Sie der folgende Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Hyperlink kopieren nur von einer Zelle in eine andere:
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 Sub3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Dialogfeld, in dem Sie aufgefordert werden, die Zellen auszuwählen, aus denen Sie nur die Hyperlinks kopieren möchten. Siehe Screenshot:
4. Klicken Sie dann auf OK und wählen Sie im nächsten Dialogfeld die Zellen aus, in die Sie ausschließlich die Hyperlinks einfügen möchten. Siehe Screenshot:
5. Die Hyperlink-Adressen wurden nun wie gewünscht aus den ursprünglichen Zellen in die angegebenen Zellen kopiert. Siehe Screenshot:
Hinweis: Mit diesem Code können Sie Hyperlinks problemlos von einem Arbeitsblatt in ein anderes kopieren.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins