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