Hallo,
ich hab das dem Titel entsprechende Problem.
Mein bisheriger Code sieht so aus:
Dim strName As String
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
Set wkb = Excel.Workbooks("Archiv.xlsx")
Set wks = wkb.Worksheets(Worksheets.Count)
strName = Chr(39) & wks.Name & Chr(39)
Range("D4").Select
Application.CutCopyMode = False
With ActiveSheet
.Hyperlinks.Add Anchor:=Range("D4"), Address:="", SubAddress:= _
strName & "!A1", TextToDisplay:=Range("D4").Value
.Range("D4").Hyperlinks(1).Follow
'NewWindow:=False = default
'AddHistory:=True = not used
End With
End Sub
Ich bekomme allerdings bereits einen Laufzeitfehler '9' "Index außerhalb des gültigen Bereichs" für die die Definition "Set wks = wkb.Worksheets(Worksheets.Count)"
Ich gehe davon aus, dass es sich hier um eine Kleinigkeit handelt, kann den Fehler aber gerade nicht finden.
Freue mich über Hilfe,
vielen Dank!
|