Hyperlink funktioniert nicht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Hyperlink funktioniert nicht
von: Michael Gfrerer
Geschrieben am: 17.07.2002 - 09:16:25

Ich muss ein Feld (Tabelle Exportdaten, Zelle B2) als Hyperlink in eine Access-Datenbank schreiben. Ich habe in Access die feldeigenschaften als Hyperlink angegeben, aber der Link funzt nicht. es gibt da ja die Beschreibung als Hyperlink, ich weiss aber nicht wo ich das integriere. habe es auch mit Raute probiert, geht aber auch nicht.
Nachfolgend mein Code:

'Dateiname der Datenbank
Public Const dateiname = "Z:\geschuetzte_dateien\datenbank\angebotsverfolgung.mdb"
'Tabellenname in der Datenbank
Public Const Tabellenname = "Exportdaten"

Dim Datenbank As Database
Dim Datensatz As Recordset
Dim Tabelle As TableDef

'Daten aus einem Bereich in die Datenbank schreiben
Public Sub Daten_schreiben()

'Pfad integrieren - Suchen und Ersetzen
Cells(2, 2) = ThisWorkbook.FullName
Range("B2").Select
ActiveCell.Replace What:="\\Pdc_lidru\vorkalk", Replacement:="Z:", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

'Prüfen, Tabelle existiert
If Not TableExists(dateiname, Tabellenname) Then
MsgBox "Datenbank oder Tabelle ist nicht vorhanden !", vbExclamation
Exit Sub
End If
'Datenbank und Tabelle öffnen
Set Datenbank = OpenDatabase(dateiname)
Set Datensatz = Datenbank.OpenRecordset(Tabellenname)
With Datensatz
'Bereich B2:HQ2
For x = 2 To 2
.AddNew
For y = 2 To 225 'Spalte 2 bis 225
.Fields(Cells(1, y)).Value = Cells(x, y)
Next y
'Datensatz updaten
.Update
.Bookmark = .LastModified
Next x
End With
Datenbank.Close
If TableExists(dateiname, Tabellenname) Then
MsgBox "Daten erfolgreich geschrieben", vbExclamation
Exit Sub
End If

End Sub

Weiss jemand Hilfe? Vielen Dank im Voraus.
Michael

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink funktioniert nicht"