Gruppe
Link
Bereich
Hyperlink
Thema
Hyperlink aufteilen
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