Fehler bei Verlinkung
14.12.2005 11:41:22
deytschey
ich habe ein Programm zum Verlinken meiner Tabellen geschrieben. Wenn ich jedoch einen Hyperlink öffnen möchte, dann erscheint die Fehlermeldung "Verweis ist ungültig. Könnt ihr mir helfen.
Sub Verlinkung()
Dim inttab As Integer
Dim Blatt As Worksheet
Dim intzeile As Integer
Set Blatt = Worksheets.Add(before:=Worksheets(1))
intzeile = 1
For inttab = 1 To ActiveWorkbook.Worksheets.Count
Blatt.Cells(intzeile, 1).Value = Worksheets(inttab).Name
Blatt.Cells(intzeile, 1).Hyperlinks.Add _
Anchor:=Cells(intzeile, 1), Address:="", SubAddress:= _
Worksheets(inttab).Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(inttab).Name
intzeile = intzeile + 1
Next inttab
End Sub