Entfernte Hyperlinks wieder aktivieren

[NiSche22]

Guten Tag zusammen.

Ich bin gerade auf ein Problem gestossen und würde mich sehr über Hilfe freuen.


Ich habe eine Excel-Tabelle (Excel 2013) erstellt und eine Spalte mit Hyperlinks zu externen Internetseiten eingefügt - pro Zelle mehrere Links.
Da es mich sehr gestört hat, dass die Internetseiten bei der Bearebitung der Zeile (Einfügen eines neuen Links) aufgerufen worden, habe ich die Hyperlinks aus der gesamten Spalte entfernt.
Mein Plan war es eigentlich zum Abschluss die Hyperlnks wieder zu aktivieren.

Nun meine Frage: Ist das überhaupt möglich? Kann ich nachträglich die Links wieder aktivieren? Auch wenn ich die Links erneut eingebe erkennt er diese nicht mehr als Links an. Kennt jemand eine gute Lösung wie ich die Links wieder aktivieren oder in das Tabellenblatt einfügen kann :/

Herzlichen Dank!
Nina

[Fennek]

Hallo,

wenn in einer Zeile ein Text wie "www.spiegel.de" steht, kann man (einfach) daraus einen Hyperlink erzeugen.
Mehrere links in einer Zelle (mit chr(10) getrennt?) ist ungewöhnlich und müßte am konkreten Beispiel ausprobiert werden.

mfg

[Käpt'n Blaubär]

Hallo Nina,

Nun meine Frage: Ist das überhaupt möglich? Kann ich nachträglich die Links wieder aktivieren?
Kennt jemand eine gute Lösung wie ich die Links wieder aktivieren oder in das Tabellenblatt einfügen kann :/ 

sofern Du die Datei ohne eine Sicherungskopie zu machen überschrieben und gespeichert hast, sind die Daten meiner bescheidenen
Meinung nach weg. Mein Rat für die Zukunft, der Dir in dem konkreten Problemfall allerdings jetzt nicht viel nützen wird, bei solchen
einschneidenden Änderungen immer voher eine Sicherungskopie anlegen.

Auch wenn ich die Links erneut eingebe erkennt er diese nicht mehr als Links an.

da würde ich versuchen, die Datei mal unter einem anderen Namen zu speichern. Ob das was nutzt, kann ich bei Formeln allerdings
nicht sagen. Im VBA kann man damit aber mitunter ganz gut eine Menge Restmüll vernichten.
Anschließend kann man die Datei natürlich wieder unter dem alten Namen speichern.

Ich hoffe, Dir zumindest ein wenig weitergeholfen zu haben.

[Kuwer]

Hallo Nina,

füge folgendes Makro in ein allgemeines VBA-Modul ein (ALT+F11, Einfügen > Modul):

Sub LinksZuHyperlinks()

 Dim rngZ As Range

 For Each rngZ In Selection

   If rngZ.Hyperlinks.Count = 0 Then

     rngZ.Hyperlinks.Add rngZ, rngZ.Value, , , rngZ.Value

   End If

 Next rngZ

End Sub

Markiere im Excel die Zellen und führe dann über die Tastenkombination Alt+F8 dieses Makro aus.

Gruß Uwe

[NiSche22]

Lieber Uwe

Herzlichen Dank für deine Antwort und deine Hilfe! Leider kam die folgende Fehlermeldung:
 
"Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument"


Ich hatte die Tabelle neu mit Makros abgespeichert. Dann das Modul erstellt und anschliessend Alt+F8 gedrückt. Was könnte ich falsch gemacht haben?

Liebe Grüsse
Nina

[Kuwer]

Hallo Nina,

"Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument"

wenn diese Fehlermeldung kommt, enthält die entsprechende Zelle keinen in einen Hyperlink umwandelbaren Text.

Gruß Uwe

[NiSche22]

Hallo Nina,


wenn diese Fehlermeldung kommt, enthält die entsprechende Zelle keinen in einen Hyperlink umwandelbaren Text.

Gruß Uwe

Hallo Uwe

Oh es hat geklappt. Man sollte manchmal nicht zu viel wollen... Die Zelle einzel makiert klappt es! Super und ganz lieben Dank!
Liebe Grüsse Nina

[Kuwer]

Hallo Nina,

Du kannst auch mehrere Zellen markieren. So bleibt das Makro nicht mehr hängen:

Sub LinksZuHyperlinks()

Dim rngZ As Range

On Error Resume Next

For Each rngZ In Selection

  If rngZ.Hyperlinks.Count = 0 Then

    rngZ.Hyperlinks.Add rngZ, rngZ.Value, , , rngZ.Value

  End If

Next rngZ

End Sub

Gruß Uwe