Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.
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
Anzeige
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 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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige