Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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

HYPERLINK Funktion

HYPERLINK Funktion
07.11.2008 10:22:00
Carolina
Ich habe folgendes Problem,
ich habe eine Tabelle in der in der Spalte A die Dateinamen der Bilder (ca. 85000) aus dem Ordner D:\Bilder stehen. Hierzu möchte ich in die Spalte B Hyperlinks machen, um diese Bilder zu öffnen.
Hierzu habe ich mir folgende Formel überlegt:
=HYPERLINK(VERKETTEN("D:\Bilder\";A1);A1).
Nun zu meinen Fragen
1. lassen sich die Formeln HYPERLINK und VERKETTEN überhaupt verknüpfen, oder brauche ich einen "echten" Pfad?
2. geht das auch einfacher, z.B. dass ich die Dateinamen in Spalte A direkt zu Hyperlinks mache (aber bitte nicht alle 85000 einzeln, durch rechte Maustaste - Hyperlink).
lg
caro

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HYPERLINK Funktion
07.11.2008 11:16:00
selli
hallo caro,
probier doch einfach aus, ob es funktioniert (bei mir geht das)
vergiss aber nicht, dass du noch eine dateiendung brauchst. (wenn in A1 nur die Dateinamen ohne endungen stehen)
=HYPERLINK(VERKETTEN("D:\Bilder\";A1;".jpg");A1)
dann sollte das doch gehen
gruß selli
AW: Hyperlink per VBA
07.11.2008 11:20:11
Beverly
Hi Caro,

Sub hyperlink_eintragen()
Dim loZeile As Long
Application.ScreenUpdating = False
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row,  _
Rows.Count)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(loZeile, 1), Address:="D:\Bilder\" & Cells( _
loZeile, 1).Value, TextToDisplay:=Cells(loZeile, 1).Value
Next loZeile
Application.ScreenUpdating = True
End Sub



Anzeige
AW: HYPERLINK Funktion
07.11.2008 11:23:00
David
Hallo Carolina,
zu 1.) ja, das geht prinzipiell.
zu 2.)
per VBA-Script:

Option Explicit
Sub test()
Application.ScreenUpdating = False 'Bilschirmaktualisierung aus
If Application.Calculation = xlCalculationAutomatic Then Berechnung = Auto Else Berechnung =  _
Manu
If Berechnung = Auto Then Application.Calculation = xlCalculationManual 'Berechnung auf Manuell, _
falls noch nicht gesetzt
Dim c As Range
For Each c In Range("A3:A10")
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="D:\Bilder\" & c.Value _
, TextToDisplay:="D:\Bilder\Test.jpg"
Next
If Berechnung = Auto Then Application.Calculation = xlAutomatic 'Berechnung wieder auf Auto,  _
falls vorher so
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub


Das Range() musst duOption Explicit
Sub test()
Dim c As Range
Dim Auto As Boolean
Application.ScreenUpdating = False 'Bilschirmaktualisierung aus
If Application.Calculation = xlCalculationAutomatic Then Auto = True Else Auto = False
If Auto = True Then Application.Calculation = xlCalculationManual 'Berechnung auf Manuell, falls noch nicht gesetzt
For Each c In Range("A3:A10")
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="D:\Bilder\" & c.Value _
, TextToDisplay:=c.Value
Next
If Auto = True Then Application.Calculation = xlAutomatic 'Berechnung wieder auf Auto, falls vorher so
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub natürlich noch auf deine Tabelle anpassen.
Rückmeldung wäre nett.
Gruß
David

Anzeige
falsch - nicht beachten
07.11.2008 11:26:00
David
Sorry.
AW: HYPERLINK Funktion (2.Versuch)
07.11.2008 11:25:36
David
Ups, vergiß den anderen Beitrag, da bin ich irgendwie mit dem Format durcheinandergeraten.
Hallo Carolina,
zu 1.) ja, das geht prinzipiell.
zu 2.)
per VBA-Script:
Option Explicit

Sub test()
Dim c As Range
Dim Auto As Boolean
Application.ScreenUpdating = False 'Bilschirmaktualisierung aus
If Application.Calculation = xlCalculationAutomatic Then Auto = True Else Auto = False
If Auto = True Then Application.Calculation = xlCalculationManual 'Berechnung auf Manuell,  _
falls noch nicht gesetzt
For Each c In Range("A3:A10")
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="D:\Bilder\" & c.Value _
, TextToDisplay:=c.Value
Next
If Auto = True Then Application.Calculation = xlAutomatic 'Berechnung wieder auf Auto, falls  _
vorher so
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub


Den Range() mußt du natürlich noch auf deine Tabelle anpassen.
Rückmeldung wäre nett.
Gruß
David

Anzeige
AW: HYPERLINK Funktion
07.11.2008 11:38:00
braleta
Hallo Caro,
das ist eine wirklich einfache Übung, die Du da machen musst:
1. In meinem Beispiel habe ich in C1 den Path der Datei mit den Bildern, z.B. "c:\dummy"
2. in der Spalte "A" habe ich alle Namen der Bilder, z.B. "halle_berry_headshot-4185.jpg"
3. In die Spalte "C" schreibe ich diese Formel: "=HYPERLINK($C$1&"\"&A4; LINKS(A4;LÄNGE(A4)-4))" und kopiere sie bis ans Ende meiner Bildernamen in Spalte "A". Wegen des Kopiervorganges muss der Path absolut angegeben werden ($).
4. Als Ergebnis erhältst Du einen Hyperlink mit dem Namen des Bildes.....
...braleta
Anzeige
Feedback
07.11.2008 12:14:00
Carolina
zu Selly: Dateiendungen stehen bereits im Dateinamen, funktioniert, danke
zu braleta: Wenn ich deine Formel eingebe, bekomme ich eine Zirkelbezugswarnung und als Ergebnis bekomme ich einen Hyperlink mit dem Namen 0, der sich nicht öffnen lässt. Habe jetzt das Erste C zwischen den $ in ein A geändert, dadurch stimmt der Dateiname, aber öffnen lässt sich das ganze immer noch nicht.
zu den VBA Vorschlägen: ich habe noch nie mit VBA gearbeitet, ich habe nicht die geringste Ahnung, wo ich die vorgeschlagene Textpassage einfügen soll und wie ich das dann mit den Zellen in Spalte A verknüpfen soll...
ich denke ich bleibe dann doch bei der Version von Selly.
lg
caro
Anzeige
AW: Feedback
07.11.2008 12:18:00
Carolina
danke nochmal für eure Hilfe
Abschließende Frage
07.11.2008 12:17:38
Carolina
Die Formel =HYPERLINK(VERKETTEN("D:\Bilder\";A1);A1) sagt ja aufgrund des letzten A1 aus, dass als Bezeichnung des Hyperlinks der Inhalt der Zelle A1 ausgegeben werden soll. Wie muss ich diesen Eintrag abändern, dass er mir stattdessen eine Laufende Zahl von 1 bis 85534 ausgibt?
AW: Abschließende Frage
07.11.2008 12:37:00
Beverly
Hi Caro,
verwende ZEILE() - diese Funktion nennt die jeweilige Zeilennummer.

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
9
2
5