AW: kein Problem
26.11.2003 12:49:40
Reinhard
Hallo Wolfi,
anbei noch die letzte Version deiner Datei:
Die Datei https://www.herber.de/bbs/user/2176.xls wurde aus Datenschutzgründen gelöscht
Da funktioniert es problemlos
Wahrscheinlich hast du Recht, es muss an der Version von Excel liegen dass es nicht klappt. Ich habe XL2000, also Xl 9.0 auf Win98.
Unklar ist mir allerdings, warum der folgende Code:
Private Sub Workbook_Open()
On Error Resume Next 'gibt sonst Fehler wenn der Name "DieserTag" nicht existiert
Worksheets("GLSD").Range("DieserTag").Interior.ColorIndex = 36
ActiveWorkbook.Names("DieserTag").Delete
For i = 1 To 256
If Worksheets("GLSD").Cells(7, i) = Date Then
ActiveWorkbook.Names.Add Name:="DieserTag", RefersToR1C1:="=GLSD!R7C" & i
End If
Next i
Worksheets("GLSD").Range("DieserTag").Interior.ColorIndex = 2
End Sub
manuell per F5 (Sub ausführen) ausgelöst, funktioniert, aber nicht beim Öffnen der Arbeitsmappe.
Beim Speichern der Arbeitsmappe klickst du auf 'Aktualisieren'?
Und der andere Code,
Sub Hyperlinkeinrichten()
ActiveCell.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="DieserTag"
Selection.Hyperlinks(1).TextToDisplay = "gehezu"
End Sub
klappt bei dir nicht. Du kannst ja mal ein Makro aufzeichnen wenn du den Hyperlinknamen "Gehezu" manuell für den Hyperlink zu "DieserTag" einträgst.
Ich habe irgendwo noch Office97 rumliegen, wenn ich es finde, spiel ich es mal auf, aber ohne Gewähr, da ich nicht genau weiss ob ich die CD noch habe.
Gruß
Reinhard