Registriert seit: 12.04.2014
Version(en): Office 365
(26.04.2016, 15:32)Datenspaten schrieb: 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.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
26.04.2016, 16:27
(Dieser Beitrag wurde zuletzt bearbeitet: 26.04.2016, 16:39 von 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.
Zitat:Sub SiebenZeichenWeg()
Cells(5, 4) = Mid(Cells(5, 4), 8)
End Sub
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 13.04.2014
Version(en): 365, 2019
Hallo,
ich habe deshalb gefragt, weil der Hyperlink auch (oder vielleicht erst?) mit http: einwandfrei funktioniert und ich das Problem nicht erkennen kann!
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
26.04.2016, 18:37
(Dieser Beitrag wurde zuletzt bearbeitet: 26.04.2016, 18:39 von Käpt'n Blaubär.)
Hallo @all,
... und so geht's auch rückwärts
Zitat: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
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 10.04.2014
Version(en): 2016 + 365
26.04.2016, 21:07
(Dieser Beitrag wurde zuletzt bearbeitet: 26.04.2016, 21:07 von Rabe.)
Hi Peter,
(26.04.2016, 16:27)Käpt schrieb: 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?
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
26.04.2016, 22:56
(Dieser Beitrag wurde zuletzt bearbeitet: 26.04.2016, 22:56 von 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."
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi Peter,
(26.04.2016, 22:56)Käpt schrieb: ... 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.
Registriert seit: 14.04.2014
Version(en): Office 2013/2016/2019/365
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
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi Chris,
(27.04.2016, 11:15)chris-ka schrieb: Oder diesen Code in das jeweilige Klassenmodul des Tabellenblattes legen
klasse, funktioniert!
|