Új hozzászólás Aktív témák

• #28811 spe88 senior tag spe88 #28810

  Új Válasz 2015-09-29 14:32:03 #28811

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  spe88

  senior tag

  válasz spe88 #28810 üzenetére

  Megvan:

  [/Option Explicit
  Function HyperLinkText(rg As Range)
  Dim sFormula As String, S As String
  Dim L As Long
  Dim H As Hyperlink, HS As Hyperlinks
  
  sFormula = rg.Formula
  L = InStr(1, sFormula, "HYPERLINK(""", vbBinaryCompare)
  
  If L > 0 Then
  S = Mid(sFormula, L + 11)
  S = Left(S, InStr(S, """") - 1)
  Else
  Set HS = rg.Worksheet.Hyperlinks
  For Each H In HS
  If H.Range = rg Then
  S = H.Address
  End If
  Next H
  End If
  
  HyperLinkText = S
  
  End FunctionM]

Új hozzászólás Aktív témák