"Christmas - the time to fix the computers of your loved ones" « Lord Wyrm

freak'n excel hyperlink functions

atrox 14.02.2003 - 12:42 642 4
Posts

atrox

in fairy dust... I trust!
Avatar
Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782
in excel/vb gibt es eine funktion zum erstellen von hyperlinks:
HYPERLINK(Addr;Screenname)
ich suche quasi die umkehr-funktion:
habe 300 zellen mit hyperlinks, und möchte diese in screenname und addr aufspalten. screenname ist kein problem (ist ja der normale wert), aber die addr bekomm ich nicht raus.

irgendwelche techniken/lösungen in Excel oder vb ?

d3cod3

Legend
...
Avatar
Registered: Aug 2002
Location: insert location ..
Posts: 15288
Daten -> Text in Spalten

ist es das was du meinst?

watchout

Legend
undead
Avatar
Registered: Nov 2000
Location: Off the grid.
Posts: 6845
ohne vb wirst du dabei nicht weit kommen, mit strings habens die excel-funktionen nicht so...

die .Formula eigenschaft dürfte dann für dich interessant sein ;)

DirtyHarry

aka robobimbo
Avatar
Registered: Apr 2001
Location: outer space
Posts: 464
Public Function URLAufteilen(Zelle As Object)
URLAufteilen = Zelle.Formula
End Function

das mitn string aufteilen wollt ich dann nicht mehr machen ;)
cu

robo

atrox

in fairy dust... I trust!
Avatar
Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782
Zitat von robobimbo
Public Function URLAufteilen(Zelle As Object)
URLAufteilen = Zelle.Formula
End Function
das funktioniert leider nur, wenn der link bereits als formel drin steht, beim mir steht es als hyperlink-objekt in der zelle (die tabelle wurde ursprünglich von irgendwem aus html importiert)

... aber es hat mich auf den richtigen weg geführt.. und mit nachfolgenem code klappt es sogar:

Public Function URLaufteilen(Zelle As Object)
URLaufteilen = Zelle.Hyperlinks.Item(1).Address
End Function

das "mailto:" am anfang rausschneiden ist dann jetzt ein leichtes.

thx
Bearbeitet von atrox am 14.02.2003, 23:51
Kontakt | Unser Forum | Über overclockers.at | Impressum | Datenschutz