hallo forum,
ich habe in spalte a namen und bezeichnungen
diese beinhalten www hypolinks
kann man dies mittels makro so trenne, dass die hypolinks
in spalte e ersichtlich sind
dank und gruss
mehmet
dank dir boris
ich wollte eigendlich den hypolink dazu haben nicht den text
z.b zelle a1
text = herber
und dazu gehörige hypolink = https://www.herber.de
gruss
mehmet
=HYPERLINK("http://www."&A1&".de";A1)
06.03.2006 00:04:23
{Boris}
Grüße Boris
AW: =HYPERLINK("http://www."&A1&".de";A1)
06.03.2006 00:16:05
mehmet
dank dir boris
leider ist es das auch nicht!
also in zelle a1 steht als text zb "herber"
wenn ich jetzt mit der maus darüber fahre ist diese zelle anklick bar
dahinter verbirgt sich https://www.herber.de
ich möchte den link dazu in spalte f haben
also zelle f1 = "https://www.herber.de"
ich vermute mal, dass das mit formel nicht geht sondern mit makro
gruss
mehmet
Hallo mehmet,
Du wolltest die Links ja in Spalte E anzeigen,
das sollte so gehen: (ungetestet)
Option Explicit
Sub hyperlinksextrahieren()
Dim Zelle As Range
For Each Zelle In Selection.SpecialCells(xlCellTypeConstants)
If Zelle.Hyperlinks.Count > 0 Then
Zelle.Offset(0,4) = Zelle.Hyperlinks(1).Address
End If
Next
End Sub
Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Nachtrag
06.03.2006 01:00:42
mehmet
noch besser
dank dir micha
gruss
mehmet
noch besser
06.03.2006 01:26:36
MichaV
Hallo mehmet,
weils gerade Spaß macht:
so kannst Du die Sache noch flexibler gestalten:
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Und dieser Code in ein allgemeines Modul:
Function ZeigeLink(Target As Range)
Application.Volatile
ZeigeLink = Target.Hyperlinks(1).Address
End Function
Nachteil: Änderungen an bestehenden Links werden nur nach F9 oder irgendeiner anderen Berechnung im Blatt übernommen. Das Ändern der Link- Adresse an sich stößt die Neuberechnung nicht an :o(
Gruß- Micha
PS: Gute Nacht
Anzeige
AW: links sichtbar machen
06.03.2006 00:59:09
mehmet
genau so
dank dir micha
auch allen anderen helfern
herzlichen dank
gruss
mehmet