Herbers Excel-Forum - das Archiv
Hyperlink automatisch löschen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- Hyperlink automatisch löschen von Norbert vom 19.11.2003 06:33:09
- AW: Hyperlink automatisch löschen - von Franz W. am 19.11.2003 07:32:21
- AW: Hyperlink automatisch löschen - von Norbert am 19.11.2003 11:07:25
- AW: Hyperlink automatisch löschen - von Norbert am 19.11.2003 11:07:25
- AW: Hyperlink automatisch löschen - von Franz W. am 19.11.2003 07:32:21
 |
Betrifft: Hyperlink automatisch löschen
von: Norbert
Geschrieben am: 19.11.2003 06:33:09
Hallo ...,
habe folgendes programm:
Private Sub CommandButton1_Click()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="\\Daten\Allgemein\" & ActiveCell.Value & ".pdf"
ActiveCell.Offset(1, 0).Select
End Sub
in einer zelle steht z.b. eine zahl 140888888. zu dieser zahl könnte es eine pdf-file geben. mit dem oben angegebenen programm erstelle ich mir einen hyperlink auf diese datei. wie bekomme ich es aber hin, dass der hyperlink sofort wieder entfernt wird, wenn es diese pdf-datei nicht gibt?
Danke
Norbert
 |
Betrifft: AW: Hyperlink automatisch löschen
von: Franz W.
Geschrieben am: 19.11.2003 07:32:21
Hallo Norbert,
schau mal ob Dir das weiterhilft:
'## Prüfen ob Ordner ... existiert:
' von Berti Koern
Set FSo = CreateObject("Scripting.FileSystemObject")
Ordnername = ...
If Not FSo.FolderExists(Ordnername) Then
Cells(...,...).Hyperlinks.Delete
End If
'## Prüfen ob Datei... existiert:
' von Berti Koern
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "C:\...\...\... .xls"
MsgBox Fso.FileExists(Dateiname)
If Not Fso.FileExists(Dateiname) Then
Cells(...,...).Hyperlinks.Delete
End If
End Sub
Grüße
Franz
|
Betrifft: AW: Hyperlink automatisch löschen
von: Norbert
Geschrieben am: 19.11.2003 11:07:25
Hallo Franz,
ich hatte wohl vergessen E-Mailnachricht anzuhaken und habe deshalb gerade erst wieder reingeschaut.
Danke werde ich ausprobieren
Norbert
| |