Hyperlinks per Makro erstellen?

Bild

Betrifft: Hyperlinks per Makro erstellen?
von: Selma
Geschrieben am: 18.03.2005 10:31:42
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

Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: marcl
Geschrieben am: 18.03.2005 11:07:01
Hallo Selma,

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


Gruß
marcl
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: Frank Domke
Geschrieben am: 18.03.2005 11:12:15

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.
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: marcl
Geschrieben am: 18.03.2005 11:35:29
Hallo Frank,
das Ding ist ja viel besser, als mein kleines Teil.
Supi, werd ich mir gleich mal aschreiben
Danke

Gruß
marcl
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: Selma
Geschrieben am: 18.03.2005 13:29:58
Hallo Frank,
wie kann ich Dein Code NUR für den markierten Zellenbereich anwenden?
Danke nochmals....
Liebe Grüße
SELMA
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: Ralf (Schwabenland)
Geschrieben am: 18.03.2005 15:26:41
Hallo Selma,
hier mal ein Beispiel:
https://www.herber.de/bbs/user/19841.xls
Bereich markieren und los...
Hoffe es hilft.
Gruß
Ralf
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: Frank Domke
Geschrieben am: 18.03.2005 18:15:30
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.
Bild

Betrifft: AW: Hyperlinks per Makro erstellen?
von: Selma
Geschrieben am: 21.03.2005 22:03:46
Danke Ralf, danke Frank ......
Liebe Grüße
SELMA
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hyperlinks per Makro erstellen?"