Office: (Office 2007) hyperlink + überprüfung ob die datei existiert

hallo

hab schon im forum nach lösungegen gesucht, aber leider kam ich nur zu teillösungen, wo ich leider nicht im stande bin diese miteinander zu kombinieren *frown.gif*

aufgabenstellung:
----------------------
*) ich habe eine spalte in der dateinamen stehen (bilddateien welche sich im gleichen ordner wie die excel datei befinden)
*) in der neberen spalte soll ein hyperlink auf die bilddatei gemacht werden
*) dieser hyperlink soll nur dann angezeigt werden, wenn die datei wirklich existiert, sonst soll dort nichts angezeigt werden


bisherige vorgehensweise:
-------------------------------

x___A___|_____________________B______________________|_C_
3|Datein. | __________________hyperlink___________________|validierung
4| 1-001 | =WENN(C4=1; "=HYPERLINK(A4 & "".jpg""; ""test"")"; "") | 1
5| 1-002 | =WENN(C5=1; "=HYPERLINK(A5 & "".jpg""; ""test"")"; "") | 0
6| 1-003 | =WENN(C6=1; "=HYPERLINK(A6 & "".jpg""; ""test"")"; "") | 1


frage1:
--------
warum schreibt er mir in der zelle b4 und b6 wirklich:
=HYPERLINK(A4 & "".jpg""; ""test"")
rein und nicht:
test
????, also er behandelt das ganze irgendwie als reinen text und nicht als formel. Wenn ich aber die "" um das ganze herum weg mache, regt er sich wegen dem unerwarteten = bei =hyperlink auf.....


frage2:
--------
wie kann ich die spalte c automatisch befüllen, so dass er selbst nachschaut ob die datei 1-001.jpg, 1-002.jpg..... wirklich vorhanden ist?



hab dafür sogar ein VBA skript gefunden, welches aber alles in eine msgbox ausgibt, man müsste es "nur" so umschreiben dass es eben die spalte c befüllt. Nur wie gesagt ich kann es einfach nicht

Code:

hoffentlich könnt ihr mir helfen


grü
muehli

:)

 

Hallo muehli,

deine beiden Fragen lassen sich zusammenfassend beantworten. Du kannst auf die Weise wie in Spalte B keine Formeln in eine Zelle schreiben. Der Formeltext wird dabei immer als reiner Text behandelt. Eine Lösung deines Problems ist soweit ich weiß nur mit VBA möglich. Kopiere folgendes Makro in das Modul des betreffenden Tabellenblattes:
Code:

 

Hallo

Wenn man eine Anleihe bei Excel4 macht, geht auch was ohne VBA.
Schau es dir mal an:

Tabelle1

	A	B
1	Bild 001	Test

Zelle	Formel
B1	=WENN(ISTFEHLER(Datei_vorhanden);"";HYPERLINK( Datei_Pfad&"\"&A1&".jpg";"Test"))

Zelle	Name	Bezieht sich auf
B1	Datei_Pfad	=DATEI.ZUORDNEN(2)
B1	Datei_vorhanden	=DATEIEN(Datei_Pfad&"\"&Tabelle1!A1&".JPG")

Excel Jeanie HTML 4


Datei_Pfad gibt das Verzeichniss aus in dem die Excel Datei liegt.
Datei_Vorhanden prüft dann ob es die Bilddatei auch gibt.

Grundlage dieser nicht ganz ernst gemeinten (aber funktionierenden) Alternative zu VBA sind die alten Excel4 Befehle:

DATEIEN(Verzeichnistext)
und
DATEI.ZUORDNEN(Typ; Name)

Schwer zu erklären, am besten einfach mit experimentieren.

ransi

 

Hallo Ingolf

erstmals danke für die wirklich schnelle antwort!!!
hab damit nur ein paar problemchen *frown.gif*

grundsätzlich vertehe ich deinen code ja, ist ja eigentlich gar net so schwer, wenn man ihn mal vor sich stehen hat *rolleyes.gif*
und er müsste ja eigentlich genau das machen, was ich will, nur bekomme ich das makro net zu laufen

Ist sicher ne richtig blöde frage, aber wie kann ich deinen code ausführen??


Bei mir schaut die tabelle gerade so aus:






und im Editor:






nur erscheint unter:



kein makro welches ich ausführen könnte, da es doch ne private funktion ist, aber auch wenn ich sie zu einer public mache erscheint sie dort nicht, nur wenn ich den inhalt zwischen den klammern von
Code:

lösche, nur dann geht halt die funktion nicht mehr *frown.gif*


die datei kannst dir bei bedarf hier runterladen.


wäre super wenn du mir meine fehler zeigen könntest!


DANKE



@Ransi:
auch bei dir möchte ich mich herzlichst für deine hilfe bedanken, nur ist mir deine lösung noch ein wenig unverständlich. Muss mich dafür eindeutig noch in die verwendung von Namen einlesen. Da fehlt mir eindeutig backgroundwissen dafür....


grü
Muehli

 

Hallo muehli,

du hast das Makro in ein sogenanntes "Standardmodul" oder "allgemeines Modul" eingefügt. Das Makro muss aber in das Modul des Tabellenblattes "bilder". In dieses Modul kommst du per Doppelklick auf den entsprechenden Eintrag im Projektexplorer des VBA-Editors (siehe angehängten Screenshot).

Das Makro startet automatisch, sobald du in Spalte A, ab Zeile 4 eine Zelle änderst. Es wird dann immer der zu der geänderten Zelle gehörende Hyperlink angepasst. Das Ganze funktioniert auch, wenn du z.B. durch Kopieren mehrere Zellen gleichzeitig änderst.

Gruß Ingolf

 

hi Ingolf


SUPER DANKE, es funktioniert!!!!


eine bitte hätte ich noch an dich, sofern es net zu große umstände bereitet.

Kann ich irgendwie die Überprüfungsspalte, (wann er den Hyperlink neu setzt) welche ja jetzt die Spalte A ist, auch z.b. auf Spalte D legen und der Dateiname steht weiterhin in Spalte A?







auf jeden fall nochmals DANKE für die Hilfe


grü
Muehli

 

selbst geschafft

Code:

DANKE DANKE DANKE für die HIlfe


grü
Muehli