Hyperlink bei Excel 8.0
28.07.2003 17:08:04
Hans B.
mein Excelcode funktioniert unter Excel 9.0 ohne Probleme aber heute hab ich es unter Excel 8.0 laufen lassen und es hat dann einen Laufzeitfehler erzeugt. Muß ich in der Entwicklungsumgebung --> Extras/Verweiß etwas einstellen ? Wenn ja dann was ?
Vielleicht kennt einer von euch eine Kompatible Lösung
Sub Hyplin_benennen()
Dim i As Long
Dim Pfad As String, Datei As String
For i = 1 To Range("A65536").End(xlUp).Row
If IsEmpty(Cells(i, 1)) = False Then
Pfad = Cells(i, 1)
********************************** Diese Stelle ist Markiert beim Debuggen****
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=Pfad, _
TextToDisplay:="Protokoll"
********************************Bis hierher**********************
End If
Next i
End Sub
PS: Tut mir Leid das ich den genauen Wortlaut des Laufzeitfehlers nicht Wiedergebe.
Vielen Dank im Vorraus
MfG
Hans B.
Anzeige