Tooltip - Optimierung möglich?
08.02.2015 10:59:54
erichm
habe aus diesem Forum folgenden Code, der bei mouseover aktiviert wird und einwandfrei funktioniert:
Sub HyperlinkErzeugen()
Dim StartSpalte As Long, EndSpalte As Long
Dim StartZeile As Long, EndZeile As Long
Dim zae1, zae2
On Error Resume Next
StartSpalte = 1 'Selection.Column
EndSpalte = 3 'StartSpalte + Selection.Columns.Count - 1
StartZeile = 1 'Selection.Row
EndZeile = 40 'StartZeile + Selection.Rows.Count - 1
For zae1 = StartSpalte To EndSpalte
For zae2 = StartZeile To EndZeile
With ActiveSheet
'If Not IsEmpty(.Cells(zae2, zae1)) Then
.Hyperlinks.Add Anchor:=.Cells(zae2, zae1), Address:="", _
ScreenTip:="HALLO", TextToDisplay:=.Cells(zae2, zae1).Text
'End If
End With
Next zae2
Next zae1
End Sub
Kann man diesen wie folgt optimieren:1. Die Anzeige erfolgt nur wenn die Taste F8 gedrückt wird!
2. In der Anzeige erscheint dann (statt HALLO): die letzte belegte Zelle in der Spalte, die aktuell benutzt wird.
Besten Dank, wäre auch schon daran interessiert, wenn nur Punkt 2 erfüllt werden kann.
mfg