Thema: Hyperlink aufteilen

Home

Gruppe

Link

Problem

Wie kann ich die Informationen einer Zelle mit einem Hyperlink so aufteilen, daß in einer Zelle der Text und in einer anderen die Adresse der Hyperlinkzelle stehen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle3

Private Sub CommandButton1_Click()
    Call LinkAufteilen
End Sub

StandardModule: basMain

Sub LinkAufteilen()
   With Range("A1")
      .Offset(0, 1) = .Value
      .Offset(0, 2) = .Hyperlinks(1).Address
   End With
   Columns("A:C").AutoFit
End Sub

Beiträge aus dem Excel-Forum zu den Themen Link und Hyperlink

Defekter Link bei Forumsbeiträgen	Defekter Link bei Forumsbeiträgen
Defekter Link bei Forumsbeiträgen	Hyperlink per Code aktivieren, gibt Fehlerhinweis
Verlinkung Excel-Powerpoint	VBA Links im Verzeichnis auslesen
VLOOKUP auf Links funktioniert offline	xlDialogInsertHyperlink.show
Hyperlinks in Excel	Link ändert sich beim Sortieren
sverweis nach links möglich?	Grafik - Linie nach unten, Kriterien links
Bereich von rechts nach links auslesen?	Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten	Hyperlink zu Wordtabelle mit Textmarke
Userform. Link datei	Hyperlink variabel
Hyperlink - UserForm	Hyperlink öffnet Arbeitsmappe mit Parametern
Excel links auf seite	Mail mit Link und Parameter erzeugen
Links automatisch aus Zellen generien	Hyperlinks finden
Hyperlink zurückwandeln?	Hyperlink zurückwandeln?
Hyperlink zurückwandeln?	Hyperlink
Hyperlink als Button	Links to Other Workbooks - Nur wo?
Hyperlink öffnen - URL in Zelle	Hyperlink ... Verkürzung der Verzeichnisauswahl
Tabelle mit Link im Forum posten	Hyperlinks - Standardordner ändern
Hyperlink	bestimmten Text blinken lassen
verlinkungen in markiertem bereich erneuern	Blinkender Kreis nach Zahl in Zelle?
Daten aus Zellen autom. nach Links verschieben	Hyperlink
gutes WORD-Forum, Link?	Hyperlinks
Set oWS = oWB.Worksheets(Range("link").Parent.Name	Hyperlink
TEIL/RECHTS/LINKS	Prüfen ob Hyperlink
Laufzeitfehler bei VBA blinkender Zelle	Hyperlink und nachträglich Zeilen einfügen
ComboBox mit Hyperlink