Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink geht verloren

Betrifft: Hyperlink geht verloren von: Martin
Geschrieben am: 31.07.2014 13:51:54

Hallo Leute,

bin leider entnervt - habe in Zelle B2 =Hyperlink(A2) stehen - soweit so gut -
nun möchte ich mit bearbeiten kopieren und werte einfügen die Formel in B2 rausnehmen,
aber der Link soll noch funktionieren, das tut er aber nicht, der Link wird mit herausgenommen.

Wie kann ich die Formel rausnehmen, aber den Link stehenlassen?

Danke
Martin

  

Betrifft: kann ja auch nicht anders sein ... von: neopa C (paneo)
Geschrieben am: 31.07.2014 14:23:46

Hallo Martin,

... wenn Du die Formel (die übrigens zumindest =HYPERLINK("#A2") lauten müsste) löschst, löschst Du damit auch den Link als "Ergebnis" der Formel.

Entweder verschiebe die Formel in eine andere Zelle oder schreibe diese in eine darüberliegende "Grafik"

Gruß Werner
.. , - ...


  

Betrifft: let me goolge this for you ;) von: ChrisL
Geschrieben am: 31.07.2014 14:25:52

Hi Martin

Via Html scheint mir eine elegante Lösung:
https://www.herber.de/forum/archiv/1324to1328/1324130_Hyperlink_aus_Formel_umwandeln.html

cu
Chris


  

Betrifft: AW: let me goolge this for you ;) von: Martin
Geschrieben am: 31.07.2014 14:59:56

danke hat funktioniert!


  

Betrifft: AW: Hyperlink geht verloren von: Klaus M.vdT.
Geschrieben am: 31.07.2014 14:35:57

Hi Martin,

markiere den Bereich mit Hyperlinks und lass dieses Makro einmal drüber bügeln:

Sub FormelZuHyperlink()
Dim r As Range
Dim x As Long
Dim lTo As String

For Each r In Selection
    'feststellen ob Hyperlink-Formel vorhanden
    If VBA.Left(r.Formula, 10) = "=HYPERLINK" Then
        
        '"freundlicher Name" übernehmen oder nicht
        On Error Resume Next
        x = Application.WorksheetFunction.Find(",", r.Formula)
        On Error GoTo 0
        If x = 0 Then x = Len(r.Formula)
        
        'Hyperlink-Adresse als String generieren
        lTo = VBA.Right(VBA.Left(r.Formula, x - 2), VBA.Len(VBA.Left(r.Formula, x - 2)) - 12)
If Not Left(lTo, 7) = "http://" Then lTo = "http://" & lTo
        
        'Formel-durch-Wert ersetzen
        r.Value = r.Value
        
        'Excel-Hyperlink statt Formel setzen
        ActiveSheet.Hyperlinks.Add Anchor:=r, Address:=lTo, TextToDisplay:=r.Value
    End If
Next r

End Sub
Grüße,
Klaus M.vdT.


  

Betrifft: AW: Hyperlink geht verloren von: Martin
Geschrieben am: 31.07.2014 15:17:07

danke! Respekt!


  

Betrifft: Danke für die Rückmeldung! von: Klaus M.vdT.
Geschrieben am: 01.08.2014 10:16:40

Hi Martin,
kein Problem, ist ja eigentlich nur String-Zerlegung gewesen :-) Freut mich geholfen zu haben!
Grüße,
Klaus M.vdT.


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink geht verloren"