|
Excel : Hyperlinks
startrek am 17.02.2003 um 23:01 Uhr (0)
hi,geh mal auf die zelle mit dem link, rechtsklick/hyperlink entfernenist es das was du wolltest? Um das mehrfach zu machen, *eigenschaften übertragen*gruss treck
| | In das Form Excel wechseln |
|
Excel : Verzeichnisse im Blatt mit Hyperlink erstellen
startrek am 22.02.2006 um 17:08 Uhr (0)
^||| sorry sh.o., lag am Binding, ich habs mal reineditiert in den Code.HTH, Nancy
| | In das Form Excel wechseln |
|
Excel : Probleme mit Raute-Zeichen in Hyperlink...
startrek am 14.03.2006 um 21:11 Uhr (0)
Hmm, Bernd ich als oller Outlook-N00b ...... aber ich gugge die Tage auch nochmal, geht bloss grade nicht, oki?;-)lg Nancy
| | In das Form Excel wechseln |
|
Excel : Probleme mit Raute-Zeichen in Hyperlink...
startrek am 01.03.2006 um 15:40 Uhr (0)
Hi Bernd,du kannst alternativ zu den Hyperdingens mal das BeforeDoublecklick() Ereignis antesten. Das gilt jetzt aber mal nur für *.txt filesCode:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 And ActiveCell "" Then Spalte A If Dir(ActiveCell) "" Then Shell "c:windows
otepad.exe " & ActiveCell, 1 End IfEnd SubGruss Nancy
| | In das Form Excel wechseln |
|
Excel : Probleme mit Raute-Zeichen in Hyperlink...
startrek am 01.03.2006 um 16:03 Uhr (0)
Okay, mach Dir mal testhalber eine Kopie der Tabelle (via Ziehen des Reiters mit gedrücktem Strg),so jetzt entfernst Du alle Hyperlinks, also dass nur noch Pfad & Dateiname in den Zellen steht.Jetzt machst einen RM-Klick Code anzeigen, dahinein einfach den Code kopieren.Das wars schon ...Achja, der Code springt nur bei Spalte A an, sollten deine Links woanders stehen:column = 2 Spalte B, column = 3, Spalte C uswGruss Nancy
| | In das Form Excel wechseln |
|
Excel : Verzeichnisse im Blatt mit Hyperlink erstellen
startrek am 22.02.2006 um 15:50 Uhr (0)
Hi,hier mal als grober Ansatz, ich hoffe der Code ist klar genug zum Selbstanpassen,um das richtige Explorerfeeling unter Excel [heavy] zu bekommen;-)HTH Nancy-- Code:Sub Explorer_zum_Selbstbausatz() Dim fso As New FileSystemObject Dim f As File Dim i&, x% Columns("A:E").ClearContents With Application.FileSearch .LookIn = "d:cad" .SearchSubFolders = True .Filename = "*.*" If .Execute() 0 Then For i = 1 To .FoundFiles.Count Set f = fso.GetFile(.FoundFiles(i)) Cells(i + 1 ...
| | In das Form Excel wechseln |
|
Excel : Probleme mit Raute-Zeichen in Hyperlink...
startrek am 01.03.2006 um 23:00 Uhr (0)
Also Bernd,msg kenn ich nur ausm chat, keine Ahnung von msg-Dateien und welcher Application die angehören;-)Du musst auf jedenfall über IF Abfrage abklingeln, um welchen FileTyp es sich handelt.Also grob so:Code:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 And Len(ActiveCell) Then Spalte A If Len(Dir(ActiveCell)) Then für Textfiles If Right(Dir(ActiveCell), 3) = "txt" Then Shell "c:winnt
otepad.exe " & ActiveCell, 1 für msg-Fi ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
