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?
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