Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hyperlink automatisch löschen

Hyperlink automatisch löschen
19.11.2003 06:33:09
Norbert
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink automatisch löschen
19.11.2003 07:32:21
Franz W.
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
Anzeige
AW: Hyperlink automatisch löschen
19.11.2003 11:07:25
Norbert
Hallo Franz,

ich hatte wohl vergessen E-Mailnachricht anzuhaken und habe deshalb gerade erst wieder reingeschaut.

Danke werde ich ausprobieren

Norbert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige