Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

links sichtbar machen

links sichtbar machen
05.03.2006 23:20:50
mehmet
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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=TEIL(A1;5;999)
05.03.2006 23:32:19
{Boris}
Grüße Boris
AW: =TEIL(A1;5;999)
05.03.2006 23:38:31
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
Anzeige
AW: =HYPERLINK("http://www."&A1&".de";A1)
06.03.2006 00:32:46
Ernst
JA
AW: =HYPERLINK("http://www."&A1&".de";A1)
06.03.2006 00:38:48
mehmet
hallo ernst
hättest du eine lösung?
gruss
mehmet
Nachtrag
06.03.2006 00:57:20
MichaV
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:
Tabelle1
 AB
1Excelformelnhttp://www.excelformeln.de/
2  
Formeln der Tabelle
B1 : =zeigelink(A1)
 
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige