ich möchte für den markierten Zellenbereich die Hyperlinks erstellen.
Der Zelleninhalt gilt als Link.
Wie mache ich es per Makro?
Danke im Voraus...
Liebe Grüße
SELMA
Sub Hyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("A1")
End Sub
Sub Makro1()
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:=.Range("a5").Text, _
ScreenTip:=.Range("a5").Text, _
TextToDisplay:=.Range("a5").Text
End With
Set ws = Nothing
End Sub
Sub Makro1()
Dim ws As Worksheet
Dim Zelle As Range
Dim rg As Range
Set ws = ActiveSheet
Set rg = Selection
For Each Zelle In rg.Cells
ws.Hyperlinks.Add Anchor:=Zelle, _
Address:=Zelle.Text, _
ScreenTip:=Zelle.Text, _
TextToDisplay:=Zelle.Text
Next Zelle
Set ws = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen