Hyperlink ohne http:// einfügen

[shift-del]

Gibt es die Möglichkeit, das dennoch zu vermeiden?

Du kannst es nicht vermeiden weil http:// in der Adresszeile des Browsers steht und das wird eben immer mit kopiert.
Gleiches gilt auch für https:// und andere Protokolle.

[Käpt'n Blaubär]

Hallo Ralf,

der Hyperlink geht verloren. Das ist leider so
Im Code schneide ich die ersten sieben Zeichen ab ... und das Ergebnis ist ein Text
Das ist ja auch vertändlich, weil der Hyperlink nicht mehr weiß, daß er ins WEB soll.

Sub SiebenZeichenWeg()
    Cells(5, 4) = Mid(Cells(5, 4), 8)
End Sub

[RPP63]

Hi!
Friendly Name aka "freundlicher Name"?

	A	B
1	http://www.clever-excel-forum.de/Thread-Hyperlink-ohne-http-einfuegen	RPP

Formeln der Tabelle

Zelle Formel B1 =HYPERLINK(A1;"RPP")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf

[BoskoBiati]

Hallo,

ich habe deshalb gefragt, weil der Hyperlink auch (oder vielleicht erst?) mit http: einwandfrei funktioniert und ich das Problem nicht erkennen kann!

[Käpt'n Blaubär]

Hallo @all,

... und so geht's auch rückwärts

Option Explicit

Sub SiebenZeichenWeg()
'                                                   ' "http//" wegschneiden
    Cells(4, 4) = Mid(Cells(2, 4), 8)               ' von der Quelle in D2 die ersten sieben Zeichen entfernen
'                                                   ' Ergebnis in Zelle D4 schreiben
End Sub


Sub ZurückZumHyperlink()
'                                                   ' in Hyperlink zurückwandeln
    Cells(6, 4) = "http//" & Cells(4, 4)
    ActiveSheet.Cells(7, 4).Hyperlinks.Add Anchor:=Selection, Address:=Cells(7, 4) _
        , TextToDisplay:=Cells(6, 4).Value
End Sub

qed

[Rabe]

Hi Peter,

der Hyperlink geht verloren. Das ist leider so
Im Code schneide ich die ersten sieben Zeichen ab ... und das Ergebnis ist ein Text
Das ist ja auch vertändlich, weil der Hyperlink nicht mehr weiß, daß er ins WEB soll.

ich habe es so getestet:

ich schreibe in eine beliebige Zelle rein:

Code:

www.dbf-friedrichsruhe.de

wenn ich dann RETURN klicke, dann wird aus diesem Text ein Link, unterstrichen, blau, mit davorgesetztem HTTP://, aber in der Zelle steht immer noch

Code:

www.dbf-friedrichsruhe.de

Wenn ich draufklicke, geht der Firefox auf und die Werbseite wird angesurft.

Warum soll das dann nicht auch per Makro so gehen?

[Käpt'n Blaubär]

Hallo Ralf,

ähm ... ich habe doch schon oben gezeigt, daß man das sehr wohl wieder rückgängig machen kann.

Die Sache, daß man mit dem amputierten Hyperlink nicht in's WEB kommt, war eine wohl irrige
Annahme meinerseits. Ich habe in all den Jahren in denen ich mich mit Excel und Internet beschäftigt
habe nur etwa zwei mal überhaupt Hyperlinks eingesetzt, bin dabei aber immer nur brav in der
Datei geblieben. Mit WEB-Aufrufen oder sowas habe ich mich niemals beschäftigt.

Daß es doch mit amputierten Hyperlinks funktioniert, hast Du ja jetzt bestätigt. Werte also bitte
die von mir gemachten Ausführungen als philosophische Fabulierung; um nicht zu sagen "Geschwafel"   :16:

Mea Culpa, mea maxima Culpa
... und ich hoffe, Du hast mich trotz meiner geistigen Entgleisung immer noch lieb  :05:
Wenn nicht, dann nimm bitte zur Kenntnis:
"Selbst der Papst muß sterben, da sollte sich ein Normalsterblicher doch auch mal irren dürfen."

[Rabe]

Hi Peter,

... und ich hoffe, Du hast mich trotz meiner geistigen Entgleisung immer noch lieb  :05:

ja, klar.

dann brauchen wir also jetzt mal ein Makro, das den Inhalt der Zwischenablage in die Zelle D2 einfügt, verwenden anschließend Dein Makro "SiebenZeichenWeg" und schon haben wir den amputierten Link in D4.

Nun gilt es nur noch manuell auf D4 zu klicken und schon wissen wir, ob der Wunsch des TE erfüllt wurde.

[chris-ka]

Hi,

Oder diesen Code in das jeweilige Klassenmodul des Tabellenblattes legen

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyLink As String
On Error GoTo errM
If Target.Column = 1 Then 'Spalte A ansonsten bitte anpassen!
    Application.EnableEvents = False
    MyLink = Target(1, 1)
    If InStr(1, MyLink, "//") > 0 Then
        MyLink = Mid(MyLink, InStr(1, MyLink, "//") + 2)
    End If
End If
Target(1, 1) = MyLink
errM:
Application.EnableEvents = True
End Sub

[Rabe]

Hi Chris,

Oder diesen Code in das jeweilige Klassenmodul des Tabellenblattes legen

klasse, funktioniert!