Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Backslash bei Hyperlinks einfügen ?

Backslash bei Hyperlinks einfügen ?
06.11.2008 13:36:00
Selma
Hallo Leute,
wie kann bei Hyperlinks die in der Adresse am Ende das Punkt und Dateieindung nicht haben, ein Backslash einfügen, falls dieser nicht vorhanden ist?
Hyperlink-Beispiel vorher:
G:\prj\2008\OUT\mdlapps\intelnt\2008-10-06
C:\export\2008-18-06\Internes Auftrags-LV.pdf (hier kein Backslah, da Hyperlinkadresse am Ende ein Punkt und Dateiendung hat)
Hyperlink-Beispiel nachher:
G:\prj\2008\OUT\mdlapps\intelnt\2008-10-06\ (hier Backslash, da der
C:\export\2008-18-06\Internes Auftrags-LV.pdf
Besten Dank im Voraus !
Liebe Grüße
Selma

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 13:51:00
Christian
also wenn man mal davon ausgeht das in der variable "hlink" der hyperlink steht:
if instr(1,right(hlink,4),".") = 0 then hlink = hlink & "\"
Dabei wird abgefragt ob am rechten ende des Strings "hlink" ein punkt vorkommt. Wenn KEIN Punkt vorkommt, dann wird ein backslash am ende des strings hinzugefügt.
Hab das grade nicht getestet, aber so ungefähr sollte das klappen!
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 14:00:00
Selma
Hallo Christian,
ich habe es so probiert. Leider ohne Erfolg ;)

Sub tt()
If InStr(1, Right(hLink, 4), ".") = 0 Then hLink = hLink & "\"
End Sub


LG,
Selma

Anzeige
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 14:03:51
Christian
Ja du musst schon dafür sorgen das der hyperlink den du ändern möchtest in die variable "hlink" landet.
Ich hab mich mit hyperlinks noch nicht so beschäftigt, aber ich schätze mal das sie genauso behandelt werden wie strings... ich schau mir das gleich nochmal genauer an. Aber wie gesagt, im endeffekt sollte das so klappen!
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 14:17:00
Christian
Also, hyperlinks die in einer Excel zelle stehen, bestehen grob gesagt aus 2 "dingen":
Einmal der Name, der nichts mit dem Hyperlink-Ziel zu tun haben muss.
Und andererseits die Addresse des Hyperlinks.
wenn z.B. in Zelle C8 des aktuellen Blattes ein Hyperlink auf einen Ordner zielt dann ändert man die Addresse so:

Sub hlinkaendern
Dim hlink As String
hlink = Range("C8").Hyperlinks.Item(1).Address
If InStr(1, Right(hlink, 4), ".") = 0 Then hlink = hlink & "\"
Range("C8").Hyperlinks.Item(1).Address = hlink
End Sub


Wenn in der Zelle C8 KEIN Ordner sondern eine Datei als Ziel angegeben ist, dann fügt das makro dort kein backslah ein.
Was man aber NICHT sieht ist, dass er den Namen des Hyperlinks nicht ändert.
d.h. wenn man in der Zelle "C:\Eigene Dateien" stehen hat, wird man nach der änderung KEIN "C:\Eigene Dateien\" vorfinden sondern nach wie vor "C:\Eigene Dateien". Schaut man aber im Kontext des Zelle nach dem Ziel des Hyperlinks sieht man das korrekte ergebnis "C:\Eigene Dateien\".
Wenn man zusätzlich den angezeigten Text des hyperlinks ändern möchte muss man eine zeile hinzufügen und das sieht dann so aus:


Sub hlinkaendern()
Dim hlink As String
hlink = Range("C8").Hyperlinks.Item(1).Address
If InStr(1, Right(hlink, 4), ".") = 0 Then hlink = hlink & "\"
Range("C8").Hyperlinks.Item(1).Address = hlink
Range("C8").Hyperlinks.Item(1).TextToDisplay = hlink
End Sub


Hyperlinks sind ein bischen kompliziert, aber durchschaubar ;-)

Anzeige
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 16:04:00
Selma
Hallo Christian,
super... wie wende ich das Makro auf ganzes Arbeitsblatt an ?
Vielen Dank !
LG,
Selma
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 16:55:00
Christian
Wenn du das ganze aktuelle arbeitsblatt durcharbeiten möchtest, also zelle für zelle:

Sub allesaendern()
Dim hlink As String
Dim c As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each c In ActiveSheet.UsedRange
If c.Hyperlinks.Count > 0 Then
hlink = c.Hyperlinks.Item(1).Address
If InStr(1, Right(hlink, 4), ".") = 0 Then hlink = hlink & "\"
c.Hyperlinks.Item(1).Address = hlink
c.Hyperlinks.Item(1).TextToDisplay = hlink
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


Anzeige
AW: Backslash bei Hyperlinks ?
06.11.2008 17:06:00
Selma
Hallo Christian,
Backslash wurde richtig eingefügt, aber der Zelleninhalt wird dadurch verändert.
Jetzt stehen in Zellen überall die Hyperlink-Adresse als Zelleninhalt.
LG,
Selma
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 17:09:00
Christian
Dann muss man die zeile:
c.Hyperlinks.Item(1).TextToDisplay = hlink
auskommentieren. Hoffe die originaldaten waren gesichert! Hab ja extra die version des makros übernommen die auch die zellinhalte an die hyperlink-ziele anpasst. (Zellinhalt = name des hyperlinks bzw ".TextToDisplay")
AW: Backslash bei Hyperlinks einfügen ?
06.11.2008 17:15:00
Selma
Funktioniert prima. Vielen Dank !
LG,
Selma

299 Forumthreads zu ähnlichen Themen

Hyperlink Formel auf Gültigkeit prüfen
zapultin

Hallo Forum!
Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
15.08.2008 15:49:14
Thread-ID: 1002228
3 Beiträge
Anzeige
Hyperlinks - Korrektur ?
Petra

Hallo Excelianer(innen)
Ich prüfe (per VBA) eine große Liste auf Fehlereintragungen, bei Auffinden eines solchen generiere ich eine Fehlerliste (Hyperlinks auf die fehlerhafte Zelle). Klappt alles wunderbar.
Jetzt mein Problem: es kommt vor, das vom Anwender eine Zeile (auf die ein Hyp...
19.08.2008 13:02:24
Thread-ID: 1002903
4 Beiträge
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Hyperlinks aktualisieren
Lars

Hallo zusammen,
ein Kollege von mir hat eine Excel Datei mit Hyperlinks. Die Hyperlinks liegen auf einem anderen Netzlaufwerk als die Excel Datei. Wenn der Server umbenannt wird, sind somit alle Hyperlinks ungültig. Gibt es eine schnelle Möglichkeit, alle in der Excel-Datei vorhandenen Link...
29.08.2008 14:38:00
Thread-ID: 1005841
3 Beiträge
ThisWorkbook.FollowHyperlink Address - Makros akt.
Peter

Guten Abend
Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
Wenn ja, wie?
Danke für jede Hilfe.
Gruss, Peter
If Dir(strPath & "\" & strFile) "" Then
Cancel = True<...
02.09.2008 22:09:05
Thread-ID: 1006962
3 Beiträge
Hyperlinks
Bernd

Hallo, ich möchte folgendes Problem lösen.
In einer Formularerstellung mit Excel wird ein Formular ausgefüllt.
Danach wird dieses Formular in einer seperaten Datei gespeichert und Daten aus dem Formular werden in einem anderen Worksheet gespeichert.
Der Dateiname und Speicherort ist...
15.09.2008 08:22:03
Thread-ID: 1009649
6 Beiträge
Hyperlink auf Server
andreas

Hallo zusammen,
folgendes Problem, ich füge in einer Tabelle einen Hyperlink mit Verweis auf einen Ordner auf dem Server.
Dieser funktioniert solange die Tabelle nicht abgespeichert ist. Nach dem Abspeichern funktioniert der Hyperlink nicht mehr weil die Adresse vom System umgeschrieben...
23.09.2008 11:56:31
Thread-ID: 1011680
3 Beiträge
Hyperlink freigeben
chrisss

Hallo
Ich habe eine Excel-Datei 1, die Daten aus einer anderen Excel-Datei 2 bezieht. Wenn ich nun die Daten in Datei 1 aktualisieren möchte, geht immer eine Sicherheitswarnung auf, "Die automatische Aktualisierung von Hyperlinks wurde deaktiviert". Über Optionen kann ich dann den "Inhalt...
24.09.2008 12:59:34
Thread-ID: 1012043
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
3
2
2
2
2
5
2
1
1
2
5
2
9
4
5
3
3
6
4
7
10
2
5