MastersForum

Ich verstehe nicht so ganz, was Du meinst. Vielleicht schreibst Du mal, was Du mit dem "link" machen möchtest.

Verlinken gibt es in Excel eigentlich nicht, es gibt nur einen Verweis (in B1 "=A1"). Eine andere Möglichkeit ist eine Suchfunktion mit verschiedenen Folgen, z.B. SVERWEIS. Ansonsten kannst Du den Namen als link hinterlegen, diesbezüglich habe ich aber noch nie was gemacht, ich gehe aber davon aus, dass es so ähnlich ist, wie hier.

natürlich gibt es die hyperlink funktion in excel ...

woerni will aber ein wort in einem text verlinken....geht imo in excel nicht. selbst it nem reinkopierten text aus word,beriets mit einem link in einem wort, wird dat nix. excel wandelt dann alles in einen link um.

Geht doch, wenn auch ziemlich umständlich:
Die Lösung stammt aus den Weiten des www, genaue Quelle weiss ich aber leider nicht mehr...

Sub EinzelwortHyperlink()
'Reinhard 2003
Dim ZellenText As String
Dim RechteckText As String
Dim ZellenBreite As Long
Dim RechteckBreite As Long
Dim Linksoffset As Long
Dim Farbe As Long
Dim Unterstrich As Long
Dim Adresse As String
'************************************************************************************
ZellenText = "Datei liegt"
RechteckText = "hier."
ZellenBreite = 20 'zeichen
RechteckBreite = 25 'Pixel
Linksoffset = 48 'Versatz nach rechts des Rechtecks innerhalb der Zelle
' ausprobieren wie es mit Zellentext harmoniert
Farbe = 41 'Blau
' es gäbe noch xlUnderlineStyleNone, xlUnderlineStyleSingle, xlUnderlineStyleDouble, _
' xlUnderlineStyleSingleAccounting oder xlUnderlineStyleDoubleAccounting
Unterstrich = xlUnderlineStyleSingle 'einfacher Unterstrich
Adresse = "http://www.google.de/" 'Adresse des Hyperlinks
'*************************************************************************************
Höhe = ActiveCell.RowHeight
Links = ActiveCell.Left + Linksoffset
Oben = ActiveCell.Top
ActiveCell.ColumnWidth = ZellenBreite
ActiveCell.FormulaR1C1 = ZellenText
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Links, Oben, RechteckBreite, Höhe).Select
'ActiveSheet.Shapes("Rectangle 1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=Adresse
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
'ActiveSheet.Shapes("Rectangle 1").Select
Selection.Characters.Text = "hier"
With Selection.Characters(Start:=1, Length:=Len(RechteckText)).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
'ActiveSheet.Shapes("Rectangle 1").Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = Unterstrich
.ColorIndex = Farbe
End With
ActiveCell.Select
End Sub

Wußte schon immer das Excel "selfexplaining" ist^^

Ich gehe mal von einem neuen Tabellenblatt aus:

- Markiere die Zelle, in welcher Du den Satz haben willst.
- Drücke <ALT> + "F11" um in den VB Editor zu gelangen
- Doppelklicke auf Tabellenblatt 1 (sollte bereits vorher aktiv sein)
- Füge obigen Code ein
- gehe zu Excel zurück und wähle unter Extras-Makros-Makros ausführen das Makro EinzelwortHyperlink

Jetzt sollte Dein Excel irgendetwas machen, mit dem Ergebnis, dass Du in Deiner Zelle den Satz "Datei liegt" und "hier" stehen hast, wobei "hier" mit Hyperlink versehen ist. Den Satztext (+Linkziel) kannst Du im Code oben ändern.

Duke_Luke

Quoted

Original von CF_Faithhealer
natürlich gibt es die hyperlink funktion in excel ...

woerni will aber ein wort in einem text verlinken....geht imo in excel nicht. selbst it nem reinkopierten text aus word,beriets mit einem link in einem wort, wird dat nix. excel wandelt dann alles in einen link um.

Ich hab nicht wirklich was anderes geschrieben.

VBA ist natürlich ne andere Sache, aber wie man sieht nicht so einfach.