Excel vba + hyperlink

Computer: Software & Programmierung Visual Basic
1

hallo,

ich hab in ner excel-spalte (datei-)namen stehen - diese werden per hyperlink mit pdf´s und msg´s welche im netzwerk liegen verknuepft - nun heisst so ein datei name z. b. irgendwas 12/12/23 - excel bzw vba soll (wenn es geht) diese zelle mit der datei (ewig langer pfad\irgendwas 12_12_23 verknuepfen - also vba soll wenn ich diese zelle anklicke (sprich- activecell) dann will ich ueber nen button den vba code ausfuehren der entweder gleich die richtige datei raussucht aus dem projekt-ordner der eben ewig weit unten is im pfad oder er soll mir zumindest den ordner in welchen die files liegen oeffnen - ich habs ihm schon beigebracht das er mir auf ne zelle (wenn sie groesser als null ist) nen hyperlink legt mit aber immer nur der einen datei! kann vba mit den zell-namen auslesen und anhand dessen die richtige datei raussuchen?

puh - das war lenag - hoffe ihr hab ne idee!

danke und gruss manuel!

2

Dateiname (pdf,msg) in aktZelle per Button starten
Hi Manuel,
hol dir aus Formular-Symbolleiste eine Schaltfläche und weise ihr das Makro zu.
Ungetestet:

Sub öffne()
If Selection.Cells.Count \> 1 Then Exit Sub
PfadDatei = "C:\...\...\" & ActiveCell.Value
Select Case Right(PfadDatei, 4)
 Case ".pdf"
 Programm = "C:\Programme\Adobe\Acrobat 5.0\Reader\AcroRd32.exe"
 Case ".msg"
 Programm = "C:\Programme\...\...\Name.exe"
 Case Else
 MsgBox "unbek.Typ"
 Exit Sub
End Select
offen = Shell(Programm & " " & PfadDatei)
End Sub

Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

servus,

leider is es ned ganz des was ich brauche - aber ich versuch mal deins etwas umzubauen - vieleicht gehts dann

danke dir auf alle faelle mal!

gruss manuel!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]