Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks per Makro erstellen?

Forumthread: Hyperlinks per Makro erstellen?

Hyperlinks per Makro erstellen?
18.03.2005 10:31:42
Selma
Hallo Leute,
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks per Makro erstellen?
18.03.2005 11:07:01
marcl
Hallo Selma,

Sub Hyperlink()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("A1")
End Sub

Gruß
marcl
AW: Hyperlinks per Makro erstellen?
18.03.2005 11:12:15
Frank 

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

Gruß
Frank.
Anzeige
AW: Hyperlinks per Makro erstellen?
18.03.2005 11:35:29
marcl
Hallo Frank,
das Ding ist ja viel besser, als mein kleines Teil.
Supi, werd ich mir gleich mal aschreiben
Danke
Gruß
marcl
AW: Hyperlinks per Makro erstellen?
18.03.2005 13:29:58
Selma
Hallo Frank,
wie kann ich Dein Code NUR für den markierten Zellenbereich anwenden?
Danke nochmals....
Liebe Grüße
SELMA
AW: Hyperlinks per Makro erstellen?
18.03.2005 15:26:41
Ralf
Hallo Selma,
hier mal ein Beispiel:
https://www.herber.de/bbs/user/19841.xls
Bereich markieren und los...
Hoffe es hilft.
Gruß
Ralf
Anzeige
AW: Hyperlinks per Makro erstellen?
18.03.2005 18:15:30
Frank
Hallo Marcl,
versuch es so:

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

Viel Erfolg
Frank.
Anzeige
AW: Hyperlinks per Makro erstellen?
21.03.2005 22:03:46
Selma
Danke Ralf, danke Frank ......
Liebe Grüße
SELMA
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige